Cita:
Iniciado por lokoman
No entendi bien, pero si quieres que al cargar tu FROM el grid tenga el foco, pues asignale el TABINDEX=0
Mejor pongo el código:
Código:
Sub cargar2()
If Not Conectar Then Exit Sub
sql = "Select * from Informes order by Codigo asc"
Set Rs = Cn.Execute(sql)
lin = 0
If Not Rs.EOF Then
grdInf.Clear
Do While Not Rs.EOF
With grdInf
.Cols = 1
.ColAlignment(0) = 4
.TextMatrix(0, 0) = "Código del Interesado"
.ColWidth(0) = 4000
lin = lin + 1
.AddItem ""
.TextMatrix(lin, 0) = Rs!Codigo
Rs.MoveNext
End With
Loop
grdInf.Col = 0
grdInf.Row = 1
grdInf.SetFocus
Else
cargar3
End If
End Sub
Con esa sub, actualizo el registro en el grid y le indico el foco.
El problema es que la primer celda del grid se me pinta de rojo pero no se me pone en el foco.
Después no sé como hacer para que poner el foco a penas se carga el formulario porque pongo el tabindex del grid en cero pero no se donde en donde poner "grdInf.Setfocus" para darle la instrucción.