Dim cmd3 als neues SqlClient.SqlDataAdapter („* vom tblPatientNote vorwählen, wo lngPatientid = „“ u. lngpatientid u. „“ Auftrag durch bytNote, dtmcreate desc ", Connection1)
Countnotes als ganze Zahl verdunkeln
Anmerkung, strnote, strcreate, memnote, dtmcreate, notebc, notev, strnotev, strcreatev, memnotev, dtmcreatev verdunkeln
Versuch
countnotes = cmd3.Fill (dsNotes, „tblPatientNote“)
Fang ex als Ausnahme
MsgBox (ex. Mitteilung)
Enden-Versuch
Schwache numCtls als ganze Zahl = 5
I als ganze Zahl verdunkeln = 0
Tun während i <> countnotes
'Tun während i < numCtls
ctlLabel als neuer Aufkleber verdunkeln
ctlLabel.Name = „Aufkleber“ u. i.ToString ()
ctlLabel.Text = „ist hier Textkasten #“ u. i.ToString () u.“: „
Panel1.Controls.Add (ctlLabel, 0, i)
Schwaches ctlTextBox als neue area per informazioni
ctlTextBox.Name = „ctlTextBox“ u. i.ToString ()
ctlTextBox.Text = „area per informazioni“ u. i.ToString ()
Panel1.Controls.Add (ctlTextBox, 1, i)
I += 1
'Beenden während
'ich = i + 1
Schleife
|