Страница: 1 |
|
Вопрос: поиск по 2-м MSFlexGrid am
|
Добавлено: 24.11.09 10:19
|
|
Автор вопроса: Tegg2009
|
Всем, добрый день!
Есть 2-а ФлексГрида. Нужно осуществить поиск совпадающих строк. Т.е если строка из флекса 1 нашла свою копию во флексе2, добавить эти значения во флекс3.
Попытался вот так...запутался и получилась муть..
For r=1 to MSFlexGrid1.Rows-1
For h=1 to 4
for q=1 to MsflexGrid2.Rows-1
for w=1 to 4
If InStr(MSFlexGrid2.TextMatrix(q,w),Msflexgrid2.textmatrix(q,w)) then
.............
end if
next w
next q
next h
next r
Заранее спасибо!
Ответить
|
Номер ответа: 1 Автор ответа: Tegg2009
Вопросов: 4 Ответов: 5
|
Профиль | | #1
|
Добавлено: 26.11.09 09:59
|
С поиском разобрался, сделал. Но появился другой вопрос.
Задача. Осуществить поиск повторяющихся строк в MSFlexGrid.Если нашли удалить.
Я сделал так.
-
- FOR i=1 to MSFlexGrid1.rows-1
-
- a=Msflexgrid1.TextMatrix(i,1)
- b=Msflexgrid1.TextMatrix(i,2)
- c=Msflexgrid1.TextMatrix(i,3)
-
- For k=1 to MsFlexGrid1.Rows-1
- d=Msflexgrid1.TextMatrix(k,1)
- e=Msflexgrid1.TextMatrix(k,2)
- f=Msflexgrid1.TextMatrix(k,3)
-
- IF(a=d And b=e And c=f) Then
- MsflexGrid1.removeItem k
- Exit For
- End If
- Next k
- Next i
-
В итоге, все правильно делается, удаляется, НО...число строк в msflex сокращается и на цикле выпадает ошибка. Как исправить это?
Заранее спасибо.
Ответить
|
Страница: 1 |
Поиск по форуму