Frage : Variable verwenden, um Textkästen zu laden.

Wie Textkästen using Variablen schlingen und laden kann.  thanks

I angebracht meinen Code diese Dosis nicht work t 
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:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

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
        Tun während i <> countnotes
            Anmerkung = Anmerkung u. i u. „. Text“
            notebc = Anmerkung u. i u. „.BackColor“
            strnote = strnote u. i u. „. Text“
            strcreate = strcreate u. i u. „. Text“
            memnote = memnote u. i u. „. Text“
            dtmcreate = dtmcreate u. i u. „. Text“
            notev = Anmerkung u. i u. „.visible“
            strnotev = strnote u. i u. „.visible“
            strcreatev = strcreate u. i u. „.visible“
            memnotev = memnote u. i u. „.visible“
            dtmcreatev = dtmcreate u. i u. „.visible“
            'Anmerkungen hinzufügen und jedes sichtbar bilden
            Wenn IsDBNull (dsNotes.Tables („tblPatientNote“). Reihen (i). Einzelteil („bytnote“)) = falsch dann
                Wenn (dsNotes.Tables („tblPatientNote“). Reihen (i). Einzelteil („bytnote“)) = „1“ dann
                    notebc = System.Drawing.Color.Red
                    Anmerkung = (dsNotes.Tables („tblPatientNote“). Reihen (i). Einzelteil („bytnote“))
                Sonst
                    notebc = System.Drawing.Color.White
                Beenden wenn
                strnotev = ausrichten en
                strcreatev = ausrichten en
                memnotev = ausrichten en
                dtmcreatev = ausrichten en
                notev = ausrichten en
            Beenden wenn
            Wenn IsDBNull (dsNotes.Tables („tblPatientNote“). Reihen (i). Einzelteil („strnote“)) = falsch dann
                strnote = (dsNotes.Tables („tblPatientNote“). Reihen (i). Einzelteil („strnote“))

            Beenden wenn
        
            Wenn IsDBNull (dsNotes.Tables („tblPatientNote“). Reihen (i). Einzelteil („memnote“)) = falsch dann
                memnote = (dsNotes.Tables („tblPatientNote“). Reihen (i). Einzelteil („memnote“))
            Beenden wenn
            Wenn IsDBNull (dsNotes.Tables („tblPatientNote“). Reihen (i). Einzelteil („dtmcreate“)) = falsch dann
                dtmcreate = (dsNotes.Tables („tblPatientNote“). Reihen (i). Einzelteil („dtmcreate“))
            Beenden wenn
            Wenn IsDBNull (dsNotes.Tables („tblPatientNote“). Reihen (i). Einzelteil („strcreate“)) = falsch dann
                strcreate = (dsNotes.Tables („tblPatientNote“). Reihen (i). Einzelteil („strcreate“))
            Beenden wenn
            I = i + 1
        Schleife
    Enden-Unterseeboot

Antwort : Variable verwenden, um Textkästen zu laden.

Versuch etwas Ähnliches (nur Beispiel):
1:

Anmerkung = C (Me.Controls (Anmerkung u. i.ToString ()), Area per informazioni). Text
Weitere Lösungen  
 
programming4us programming4us