Vraag : gebruiks variabele om tekstvakjes te laden.

Hoe kan van een lus voorzien en tekstvakjes laden gebruikend variabelen.  thanks

I mijn code vastgemaakt die niet work doseren
" codeBody " 
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:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

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
        Doe terwijl I <> countnotes
            de nota = neemt van & I & „nota. Tekst“
            notebc = nota & I & „.BackColor“
            strnote = strnote & I & „. Tekst“
            strcreate = strcreate & I & „. Tekst“
            memnote = memnote & I & „. Tekst“
            dtmcreate = dtmcreate & I & „. Tekst“
            notev = nota & I & „.visible“
            strnotev = strnote & I & „.visible“
            strcreatev = strcreate & I & „.visible“
            memnotev = memnote & I & „.visible“
            dtmcreatev = dtmcreate & I & „.visible“
            'voeg aan nota's toe en maak elk zichtbaar
            Als IsDBNull (dsNotes.Tables („tblPatientNote“). Rijen (I). Punt („bytnote“)) = Vals toen
                Als (dsNotes.Tables („tblPatientNote“). Rijen (I). Punt („bytnote“)) = „1“ toen
                    notebc = System.Drawing.Color.Red
                    nota = (dsNotes.Tables („tblPatientNote“). Rijen (I). Punt („bytnote“))
                Anders
                    notebc = System.Drawing.Color.White
                Eind als
                strnotev = Waar
                strcreatev = Waar
                memnotev = Waar
                dtmcreatev = Waar
                notev = Waar
            Eind als
            Als IsDBNull (dsNotes.Tables („tblPatientNote“). Rijen (I). Punt („strnote“)) = Vals toen
                strnote = (dsNotes.Tables („tblPatientNote“). Rijen (I). Punt („strnote“))

            Eind als
        
            Als IsDBNull (dsNotes.Tables („tblPatientNote“). Rijen (I). Punt („memnote“)) = Vals toen
                memnote = (dsNotes.Tables („tblPatientNote“). Rijen (I). Punt („memnote“))
            Eind als
            Als IsDBNull (dsNotes.Tables („tblPatientNote“). Rijen (I). Punt („dtmcreate“)) = Vals toen
                dtmcreate = (dsNotes.Tables („tblPatientNote“). Rijen (I). Punt („dtmcreate“))
            Eind als
            Als IsDBNull (dsNotes.Tables („tblPatientNote“). Rijen (I). Punt („strcreate“)) = Vals toen
                strcreate = (dsNotes.Tables („tblPatientNote“). Rijen (I). Punt („strcreate“))
            Eind als
            i = I + 1
        Lijn
    Sub van het eind

Antwoord : gebruiks variabele om tekstvakjes te laden.

Probeer iets in die aard (voorbeeld slechts):
1:

nota = C (Me.Controls (nota & i.ToString ()), TextBox). Tekst
Andere oplossingen  
 
programming4us programming4us