Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 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





Заранее спасибо!

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 Tegg2009



Вопросов: 4
Ответов: 5
 Профиль | | #1 Добавлено: 26.11.09 09:59
С поиском разобрался, сделал. Но появился другой вопрос.

Задача. Осуществить поиск повторяющихся строк в MSFlexGrid.Если нашли удалить.
Я сделал так.


  1.  
  2. FOR i=1 to MSFlexGrid1.rows-1
  3.  
  4. a=Msflexgrid1.TextMatrix(i,1)
  5. b=Msflexgrid1.TextMatrix(i,2)
  6. c=Msflexgrid1.TextMatrix(i,3)
  7.  
  8. For k=1 to MsFlexGrid1.Rows-1
  9.  d=Msflexgrid1.TextMatrix(k,1)
  10.  e=Msflexgrid1.TextMatrix(k,2)
  11.  f=Msflexgrid1.TextMatrix(k,3)
  12.  
  13. IF(a=d And b=e And c=f) Then
  14. MsflexGrid1.removeItem k
  15. Exit For
  16. End If
  17. Next k
  18. Next i
  19.  


В итоге, все правильно делается, удаляется, НО...число строк в msflex сокращается и на цикле выпадает ошибка. Как исправить это?

Заранее спасибо.

Ответить

Номер ответа: 2
Автор ответа:
 SHDZ



ICQ: 209382104 

Вопросов: 39
Ответов: 244
 Профиль | | #2 Добавлено: 27.11.09 17:39
проверять сразу после
For k=1 to MsFlexGrid1.Rows-1
 If k = MsFlexGrid1.Rows-1 Then Exit For

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам