PARA EXPERTOS
Publicado por celso (96 intervenciones) el 28/07/2001 11:14:39
Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
frmbuscar.Show 1
DataGrid1.Columns(ColIndex) = objBuscado
DataGrid1.Columns("titulo") = objBuscado2
MsgBox ("Aceptar")
If ColIndex = 2 Then
DataGrid1.Columns(3) = " "
Else
DataGrid1.Columns(2) = " "
End If
DataGrid1.Col = 4
End Sub
Tengo esta rutina en el buttonclick de una celda datagrid, que me sirve para llamar a un formulario que selecciona un campo de otra tabla que me pone en esa celda.
Pues mi problema esta en que solo me funciona si yo paro el programa con un msgbox . Alguien sabe por que ?, Como puedo evitar tener que poner ese msgbox.
Muchas gracias
frmbuscar.Show 1
DataGrid1.Columns(ColIndex) = objBuscado
DataGrid1.Columns("titulo") = objBuscado2
MsgBox ("Aceptar")
If ColIndex = 2 Then
DataGrid1.Columns(3) = " "
Else
DataGrid1.Columns(2) = " "
End If
DataGrid1.Col = 4
End Sub
Tengo esta rutina en el buttonclick de una celda datagrid, que me sirve para llamar a un formulario que selecciona un campo de otra tabla que me pone en esa celda.
Pues mi problema esta en que solo me funciona si yo paro el programa con un msgbox . Alguien sabe por que ?, Como puedo evitar tener que poner ese msgbox.
Muchas gracias
Valora esta pregunta
0