You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
43 lines
1.6 KiB
43 lines
1.6 KiB
Public Class FrmSearchDialog
|
|
Private Sub FrmSearchDialog_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim db As New clsDB
|
|
db.Get_Tabledata("Patienten", "", "select NrPrivat as Nr, Name, Vorname, Strasse, PLZ, Ort from privat order by Name, Vorname, plz")
|
|
Me.c1daten.DataSource = db.dsDaten.Tables(0)
|
|
Me.c1daten.DataMember = db.dsDaten.Tables(0).TableName
|
|
For i = 0 To Me.c1daten.Splits(0).DisplayColumns.Count - 1
|
|
Me.c1daten.Splits(0).DisplayColumns(i).AutoSize()
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Me.DialogResult = DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub c1daten_DoubleClick(sender As Object, e As EventArgs) Handles c1daten.DoubleClick
|
|
If Me.TextBox1.Text <> "" Then
|
|
Me.TextBox1.Text = Me.TextBox1.Text + ","
|
|
End If
|
|
Me.TextBox1.Text = Me.TextBox1.Text + c1daten.Columns(0).Value.ToString
|
|
End Sub
|
|
|
|
Private Sub c1daten_Click(sender As Object, e As EventArgs) Handles c1daten.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub AuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswählenToolStripMenuItem.Click
|
|
c1daten_DoubleClick(sender, e)
|
|
End Sub
|
|
|
|
Private Sub c1daten_MouseDown(sender As Object, e As MouseEventArgs) Handles c1daten.MouseDown
|
|
Try
|
|
c1daten.Bookmark = c1daten.RowContaining(e.Y)
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
End Class |