AYUDA POR FAVOR ... URGE... !!!
Publicado por juan (2 intervenciones) el 20/10/2017 14:51:36
buen dia ...
les comento ... !!! tengo que recorrer fisicamente todo un datagrid mi problema esta que al recorrer las celdas visibles y moverse el scroll mi busqueda se vuelve loca y comienza a brincar mi contador, y el datagrid se sigue recorriendo hasta el final brincando o saltandoce celdas ... !!!
para ser mas concreto el problema se da cuando datagrid1.row no acepta el valor de i
les comento ... !!! tengo que recorrer fisicamente todo un datagrid mi problema esta que al recorrer las celdas visibles y moverse el scroll mi busqueda se vuelve loca y comienza a brincar mi contador, y el datagrid se sigue recorriendo hasta el final brincando o saltandoce celdas ... !!!
para ser mas concreto el problema se da cuando datagrid1.row no acepta el valor de i
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
Private Sub Command5_Click()
Dim i As Integer
With DataGrid1
For i = 0 To .ApproxCount - 1
DataGrid1.Row = i
If DataGrid1.Row = i Then
'deselecciona las filas anteriores
With DataGrid1.SelBookmarks
While .Count > 0
.Remove 0
Wend
End With
On Error Resume Next
'selecciona la linea actual de busqueda
DataGrid1.SelBookmarks.Add DataGrid1.Bookmark
DataGrid1.Col = 1
buscar = DataGrid1
If Len(buscar) = 7 Then
balance (buscar)
If balance > 0 Then
txt1.Text = buscar
End If
End If
Else
End If
Next
End With
End Sub
Valora esta pregunta
0