| Вопрос: Как сделать цикл в цикл | Добавлено: 03.04.05 16:05 |
Автор вопроса:  Andrey999 | Web-сайт: www.radio-device.narod.ru | ICQ: 30852361 |
|
Подскажите как засунуть этот цикл
For Column = 3 To Index1 Column = (Index) .Data = Label1(Index) Next Column For i = 0 To Index в этот, перед data1.refresh Do While Not rs.EOF If Not IsNull(rs.Fields("SORTCODE")) Then Set Data3.Recordset = rs Text1(Index) = Data3.Recordset![ID_SORTCODE] Index = Index + 1 Set rstTemp = db.OpenRecordset("SELECT COUNT(yziID) AS Cnt " & _ "FROM danie where danie.yziID = " & CLng(Index)) Label1(Index) = rstTemp!Cnt ВОТ СЮДА Data1.Refresh If Index = Index1 - 2 Then Exit Do rs.MoveNext Loop Next i Заранее спасибо. |
| Ответы | Всего ответов: 10 |
|
Номер ответа: 1 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #1 | Добавлено: 03.04.05 17:40 |
|
For Column = 3 To Index1
Column = (Index) .Data = Label1(Index) Next Column For i = 0 To Index - а чё это за строка в конце??? |
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 03.04.05 18:45 |
| .Data = Label1(Index) - а тут нехватает структуры with..end with | ||
|
Номер ответа: 3 Автор ответа: Andrey999 ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #3 | Добавлено: 03.04.05 19:23 |
|
Строчка это я случайно скопировал.
Sne подскажи пожалуйсто как это сдедать, я просто не знаю. |
||
|
Номер ответа: 4 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 03.04.05 22:55 |
| Дык я же не телепат, чтобы угадывать че там у тебя за код... По выданным тобой кусочкам - ничего непопишешь... | ||
|
Номер ответа: 5 Автор ответа: Andrey999ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #5 | Добавлено: 03.04.05 23:39 |
| А что надо код формы? Может по мылу отправить? | ||
|
Номер ответа: 6 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #6 | Добавлено: 04.04.05 00:58 |
| ну отправь... | ||
|
Номер ответа: 7 Автор ответа: Andrey999ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #7 | Добавлено: 04.04.05 01:25 |
| Я отправил. На ящик указанный в профиле. | ||
|
Номер ответа: 8 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #8 | Добавлено: 04.04.05 10:35 |
И что ты мне сугул  ?
Откуда вообще вот этот код, ща уже начну настраивать телепатическую антену... 'For Row = 1 To 1
'For Column = 3 To Index1 ' Column = (Index) '.Data = Label1(Index) 'Next Column 'Next Row |
||
|
Номер ответа: 9 Автор ответа: Andrey999ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #9 | Добавлено: 04.04.05 13:43 |
|
Вот это то и надо воткнуть в тот цикл.
Между Label1(Index) = rstTemp!Cnt и Data1.Refresh чтобы выполнялся этот заремариный код. Index - это номер Column |
||
|
Номер ответа: 10 Автор ответа: Andrey999ICQ: 30852361 Вопросов: 73 Ответов: 168 |
Web-сайт: Профиль | | #10 | Добавлено: 05.04.05 01:29 |
| Все спасибо Sne, что подсказал "with" я сам догадался, уже работает как надо. | ||
Страница: 1 |