Buscar un valor texto en una Grid en Vb6 Buen dia
Soy un poco novato en la programación, y tengo una duda acerca del control
Msflexgrid.
Tengo una form donde tengo un boton que le mando a buscar datos ya sea numerico o texto en otro form donde tengo una grid puesta para dezplazarme los datos de una tabla de una base de datos, la cual la tengo vinculada con un control data.
mi duda es la siguiente: ¿Como puedo posicionarme en una fila X y una columna X donde esa fila y columna coincida con el valor ke estoy buscando?
si busco un valor numérico no tengo problemas, el problema esta en buscar un texto. El codigo ke tengo para buscar el valor númerico es el siguiente
Private Sub Command1_Click()
Dim VarMarcador as Variant
If Combo1.Text = "ID" Then
VarID = InputBox("Indique el número de ID a buscar", "Localizar ID")
If VarID = "" Then
Exit Sub
End If
With Me.Data1.Recordset
VarMarcador = .Bookmark
.FindFirst "Id=" & VarID
If .NoMatch = True Then
.Bookmark = VarMarcador
MsgBox "No se localizó el ID [" & VarID & "]", vbCritical, "Error de Búsqueda"
Else
'Lo posisiona en el grid de acuerdo a lo que busco
For I = 1 To Form2.MSFlexGrid1.Rows - 1
If InStr(Form2.MSFlexGrid1.TextMatrix(I, 0), VarID) Then
Form2.MSFlexGrid1.Row = I
Form2.Show
End If
Next
End If
End With
End If
Gracias por su Ayuda...
