Tengo un datagrid en los que se cargan los datos (por ejemplo: Profesores) mediante una consulta realizada con un comando en un dataenvironment
Código:
Bien ahora tengo un formulario independiente encargado de realizar busquedas avanzadas de los profesores y cuando se selecciona un registro se le pasa un parametro(ClaveProfesor) a un sub de formulario que lo mando llamar encargado de seleccionar el registro encontrado en el datagrid: dteControlEscolar.rsqryProfesores.Open
dteControlEscolar.rsqryProfesores.Requery
dgdProfesores.DataMember = "qryProfesores"
Código:
Sub doBuscarRegistro(strParametro)
'INICIO DE OPTIMIZAR CÓDIGO
'adoProfesores.Recordset.Requery
dteControlEscolar.rsqryProfesores.Requery
dteControlEscolar.Commands.Item("qryBusquedaProfesor").Parameters.Item("ClaveProfesor").Value = strParametro
dteControlEscolar.rsqryBusquedaProfesor.Open
dteControlEscolar.rsqryBusquedaProfesor.Requery
txtClaveProfesor.Text = dteControlEscolar.rsqryBusquedaProfesor!ClaveProfesor
txtNombrePila.Text = dteControlEscolar.rsqryBusquedaProfesor!NombrePila
txtApellidoPaterno.Text = dteControlEscolar.rsqryBusquedaProfesor!ApellidoPaterno
txtApellidoMaterno.Text = dteControlEscolar.rsqryBusquedaProfesor!ApellidoMaterno
cboSexo.Text = dteControlEscolar.rsqryBusquedaProfesor!Sexo
txtProfesion.Text = dteControlEscolar.rsqryBusquedaProfesor!Profesion
txtDomicilio.Text = dteControlEscolar.rsqryBusquedaProfesor!Domicilio
txtColonia.Text = dteControlEscolar.rsqryBusquedaProfesor!Colonia
txtCiudad.Text = dteControlEscolar.rsqryBusquedaProfesor!Ciudad
cboEstado.Text = dteControlEscolar.rsqryBusquedaProfesor!Estado
txtCodigoPostal.Text = dteControlEscolar.rsqryBusquedaProfesor!CodigoPostal
txtTelefono.Text = dteControlEscolar.rsqryBusquedaProfesor!Telefono
Set Ffound = CreateObject("Scripting.FileSystemObject") 'Crear el objeto para verificar la existencia del archivo
strRutaFotografiaDefault = "C:\Archivos de programa\SoftwareSICE\Imagenes\Fotografias\imgDefault.jpg" 'Asignar ruta de la imagen default
blnResultado = Ffound.fileexists(dteControlEscolar.rsqryBusquedaProfesor!RutaFotografiaProfesor) 'Variable que almacena si existe o no la base de datos
If blnResultado = True Then 'Validar la existencia del archivo
pctrFotografiaProfesor.Picture = LoadPicture(dteControlEscolar.rsqryBusquedaProfesor!RutaFotografiaProfesor) 'Asignar el contenido del Recordset al control
Else
pctrFotografiaProfesor.Picture = LoadPicture(strRutaFotografiaDefault) 'Asignar imagen Default al control
End If 'Find evalidar la existencia del archivo
dteControlEscolar.rsqryBusquedaProfesor.Close
If dgdProfesores.SelBookmarks.Count <> 0 Then
dgdProfesores.SelBookmarks.Remove 0
End If
dteControlEscolar.rsqryProfesores.Find "ClaveProfesor = '" & strParametro & "'", , , 1
dgdProfesores.SelBookmarks.Add dteControlEscolar.rsqryProfesores.Bookmark
'FIN DE OPTIMIZAR CÓDIGO
End Sub
Aqui en estas lineas se selecciona el registro en el datagrid:
Código:
El punto en cuestion aqui es que si selecciona el registro en el datagrid pero la flechita que aparece a la izquierda del datagrid se queda al comienzo del datagrid como puedo hacer para que la flechita se baya a donde se selecciono el registro.
dteControlEscolar.rsqryProfesores.Find "ClaveProfesor = '" & strParametro & "'", , , 1
dgdProfesores.SelBookmarks.Add dteControlEscolar.rsqryProfesores.Bookmark
Desde ahora muchas gracias... por las aportaciones
solo necesite actualizar el grid una vez mas y realizar la busqueda ahora pongo el codigo para quien le sirva:
