1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
|
" codeBody "
Dim cmd3 als Nieuwe SqlClient.SqlDataAdapter („selecteer * uit tblPatientNote waar lngPatientid = „“ & lngpatientid & „“ door bytNote opdracht geef tot, dtmcreate desc ", Connection1)
Verduister countnotes als Geheel
Verduister nota, strnote, strcreate, memnote, dtmcreate, notebc, notev, strnotev, strcreatev, memnotev, dtmcreatev
Probeer
countnotes = cmd3.Fill (dsNotes, „tblPatientNote“)
Vangst ex als Uitzondering
Ex MsgBox (. Bericht)
Het eind probeert
Schemerige numCtls als Geheel = 5
Schemerige I als Geheel = 0
Doe terwijl I <> countnotes
'Doe terwijl I < numCtls
Verduister ctlLabel als Nieuw Etiket
ctlLabel.Name = „Etiket“ & i.ToString ()
ctlLabel.Text = „hier is het vakje van de Tekst #“ & i.ToString () &“: „
Panel1.Controls.Add (ctlLabel, 0, I)
Schemerige ctlTextBox als Nieuwe TextBox
ctlTextBox.Name = „ctlTextBox“ & i.ToString ()
ctlTextBox.Text = „TextBox“ & i.ToString ()
Panel1.Controls.Add (ctlTextBox, 1, I)
i += 1
'Beëindig terwijl
'I = I + 1
Lijn
|