mshflexgrid (movefirst)

SUSANA
22 de Abril del 2005
HOLA


TE COMENTO QUE EL MSHFLEXGRID NOS MUESTRA DATOS QUE TOMA DE UNA BASE DE DATOS CREADA CON EL DATA CONTROL

Y PARA DETERMINAR EL ANCHO DEL MSHFLEXGRID USAMOS EL SGTE. CODIGO



Private Sub Form_Resize()
With Me.MSHFlexGrid1
.Left = 0
.Top = 0
.Height = Me.ScaleHeight
.Width = Me.ScaleWidth
.ColWidth(0) = .Width * 0.33
.ColWidth(1) = .Width * 0.33
.ColWidth(2) = .Width * 0.33
.ColWidth(3) = .Width * 0.33
.ColWidth(4) = .Width * 0.33
.ColWidth(5) = .Width * 0.33
End With
End Sub

Private Sub MSHFlexGrid1_DblClick()
With Me.MSHFlexGrid1
If .Col = 0 Then
cosecha.clave = .Text
Me.Hide
End If
End With
End Sub




USAMOS DOS FORMULARIOS, UNO CONTIENE EL CONTROL MSHFLEXGRID DEL CUAL OBTENEMOS LOS DATOS QUE VOLCAMOS AL OTRO FORMULARIO(PRINCIPAL) LA PRIMER VEZ QUE EJECUTAMOS EL FORMULARIO PRINCIPAL OBTIENE LOS DATOS EN FORMA CORRECTA, PERO LA SEGUNDA VEZ NO DA ERROR EN EL MOVEFIRST
EL CODIGO DEL BOTON QUE LLAMA AL MSHFLEXGRID ES EL SIGUIENTE

Option Explicit
Public clave As String

Private Sub ver_lista_cosecha_Click()
Me.clave = ""
frm_lista_lote_cosecha.Show vbModal
If Me.clave <> "" Then
With campo_cosecha.rscom_cosecha
.MoveFirst
.Find "nro=" & CInt(Me.clave)
End With
End If
Unload frm_lista_lote_cosecha
tipo_cereal_cosecha.Enabled = True
tipo_cereal_cosecha.SetFocus
End Sub

usamos un data control para guardar los registros
ayuda urgente