Вопрос : используйте перемеююый для того чтобы нагрузить коробки текста.

Как смогите закрепить петлеть и нагрузить коробки текста using перемеююые.  thanks

I прикрепляло мое Кодего та доза не work class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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 " class= " id= " codeSnippet822424 
 I
            примечание = примечание & I & «. Текст»
            notebc = примечание & I & «.BackColor»
            strnote = strnote & I & «. Текст»
            strcreate = strcreate & I & «. Текст»
            memnote = memnote & I & «. Текст»
            dtmcreate = dtmcreate & I & «. Текст»
            notev = примечание & I & «.visible»
            strnotev = strnote & I & «.visible»
            strcreatev = strcreate & I & «.visible»
            memnotev = memnote & I & «.visible»
            dtmcreatev = dtmcreate & I & «.visible»
            'добавьте к примечаниям и сделайте каждое видимым
            Если IsDBNull, то (dsNotes.Tables («tblPatientNote»). Рядки (I). Деталь («bytnote»)) = ложно после этого
                Если (dsNotes.Tables, то («tblPatientNote»). Рядки (I). Деталь («bytnote»)) = «1» после этого
                    notebc = System.Drawing.Color.Red
                    примечание = (dsNotes.Tables («tblPatientNote»). Рядки (I). Деталь («bytnote»))
                Еще
                    notebc = System.Drawing.Color.White
                Закончитесь если
                strnotev = True
                strcreatev = True
                memnotev = True
                dtmcreatev = True
                notev = True
            Закончитесь если
            Если IsDBNull, то (dsNotes.Tables («tblPatientNote»). Рядки (I). Деталь («strnote»)) = ложно после этого
                strnote = (dsNotes.Tables («tblPatientNote»). Рядки (I). Деталь («strnote»))

            Закончитесь если
        
            Если IsDBNull, то (dsNotes.Tables («tblPatientNote»). Рядки (I). Деталь («memnote»)) = ложно после этого
                memnote = (dsNotes.Tables («tblPatientNote»). Рядки (I). Деталь («memnote»))
            Закончитесь если
            Если IsDBNull, то (dsNotes.Tables («tblPatientNote»). Рядки (I). Деталь («dtmcreate»)) = ложно после этого
                dtmcreate = (dsNotes.Tables («tblPatientNote»). Рядки (I). Деталь («dtmcreate»))
            Закончитесь если
            Если IsDBNull, то (dsNotes.Tables («tblPatientNote»). Рядки (I). Деталь («strcreate»)) = ложно после этого
                strcreate = (dsNotes.Tables («tblPatientNote»). Рядки (I). Деталь («strcreate»))
            Закончитесь если
            iий = I + 1
        Петля
    Подводная лодка конца
class=

Ответ : используйте перемеююый для того чтобы нагрузить коробки текста.

Попытка что-нибудь подобное (пример только):
1:

примечание = Ctype (Me.Controls (примечание & i.ToString ()), TextBox). Текст
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us