Fråga : använd variabeln för att ladda text boxas.

Hur kan kretsa och ladda, text boxas genom att använda variabler.  thanks

I har fäst mitt kodifierar den dos inte work > för

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:

" codeBody " " >Dim cmd3 för class= " för countnotes för stunder i notera = notera & I & ”. Text”, notebc = noterar & I & ”.BackColor”, strnote = strnote & I & ”. Text”, strcreate = strcreate & I & ”. Text”, memnote = memnote & I & ”. Text”, dtmcreate = dtmcreate & I & ”. Text”, notev = noterar & I & ”.visible”, strnotev = strnote & I & ”.visible”, strcreatev = strcreate & I & ”.visible”, memnotev = memnote & I & ”.visible”, dtmcreatev = dtmcreate & I & ”.visible”, 'tillfoga noterar och gör varje synligt Om IsDBNull (dsNotes.Tables (”tblPatientNote”). Ror (I). Objekt (”bytnote”)) = falskt därefter Om (dsNotes.Tables (”tblPatientNote”). Ror (I). Objekt (”bytnote”)) = ”1” därefter notebc = System.Drawing.Color.Red notera = (dsNotes.Tables (”tblPatientNote”). Ror (I). Objekt (”bytnote”)) Annars notebc = System.Drawing.Color.White Avsluta om strnotev = True strcreatev = True memnotev = True dtmcreatev = True notev = True Avsluta om Om IsDBNull (dsNotes.Tables (”tblPatientNote”). Ror (I). Objekt (”strnote”)) = falskt därefter strnote = (dsNotes.Tables (”tblPatientNote”). Ror (I). Objekt (”strnote”)) Avsluta om Om IsDBNull (dsNotes.Tables (”tblPatientNote”). Ror (I). Objekt (”memnote”)) = falskt därefter memnote = (dsNotes.Tables (”tblPatientNote”). Ror (I). Objekt (”memnote”)) Avsluta om Om IsDBNull (dsNotes.Tables (”tblPatientNote”). Ror (I). Objekt (”dtmcreate”)) = falskt därefter dtmcreate = (dsNotes.Tables (”tblPatientNote”). Ror (I). Objekt (”dtmcreate”)) Avsluta om Om IsDBNull (dsNotes.Tables (”tblPatientNote”). Ror (I). Objekt (”strcreate”)) = falskt därefter strcreate = (dsNotes.Tables (”tblPatientNote”). Ror (I). Objekt (”strcreate”)) Avsluta om i = I + 1 Kretsa Avsluta suben " klar "

Svar : använd variabeln för att ladda text boxas.

Försök något något liknande detta (exemplet endast):

1:	notera = ctypen (Me.Controls (notera & i.ToString ()), TextBox). Text