| Вопрос: Сранение значений в MSFlexGrid | Добавлено: 16.05.06 02:30 |
Автор вопроса:  Tony Corleone | Web-сайт: corleone.name | ICQ: 312123 |
|
Есть таблица, с 4мя колонками: Фио, Норма Выработки, Фио2, Норма Выработки2.
Нужно сделать так, если Норма Выработки больше Норма Выработки2, то данная строка удалялась из MSFlexGrid. Если нет, то оставалась на прежнем месте. Зарание спасибо за помощь. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  SRV ICQ: 254226129 Вопросов: 30 Ответов: 107 |
Профиль | | #1 | Добавлено: 16.05.06 10:59 |
Єто впринципе можно делать с помощью SQL програмно! К сожалению примера нету, но если разобраться, то должно работать 
|
||
|
Номер ответа: 2 Автор ответа: Tony Corleone ICQ: 312123 Вопросов: 11 Ответов: 19 |
Web-сайт: Профиль | | #2 | Добавлено: 16.05.06 13:03 |
| Не. У меня эти колонки импортируются из Access и Excel, поэтому sql мне не нужен. | ||
|
Номер ответа: 3 Автор ответа: ПалычВопросов: 8 Ответов: 25 |
Профиль | | #3 | Добавлено: 16.05.06 19:51 |
|
А я бы сделал так:
Dim i as long Dim a as long Dim b as long Data1.Refresh Data1.Recordset.MoveLast Data1.Recordset.MoveFirst MSFlexGrid1.Rows = Data1.Recordset.RecordCount Do Until Data1.Recordset.EOF a=label1.Caption b=label2.Caption If a>b Then MSFlexGrid1.TextMatrix(i, 0) = Label1.Caption MSFlexGrid1.TextMatrix(i, 1) = Label2.Caption i = i + 1 End If Data1.Recordset.MoveNext Loop MSFlexGrid1.Rows = i А Лэйблы привязал к полям Data1 |
||
Страница: 1 |