08/07/2007, 22:26
|
 | | | Fecha de Ingreso: abril-2004 Ubicación: Mexico
Mensajes: 129
Antigüedad: 20 años Puntos: 0 | |
| Re: busquedas en un msflexgrid
If txt_dni.Text <> "" Then
data_consulta_factura.RecordSource = "Select * from BDfacta Where a_conta = '" & txt_dni & "'"
Else
data_consulta_factura.RecordSource = "Select a_nif, a_conta, a_dia, a_mes, a_año, a_totcob from BDfacta"
End If
data_consulta_factura.Refresh
Set MSFfacturas.DataSource = data_consulta_factura
MSFfacturas.Refresh
MSFfacturas.Width = 7600
MSFfacturas.ColWidth(1) = 6700
MSFfacturas.Row = 0
MSFfacturas.Col = 0
MSFfacturas.Text = "Nombre"
MSFfacturas.Col = 1
MSFfacturas.Text = "Nº Factura"
MSFfacturas.Col = 2
MSFfacturas.Text = "Día"
MSFfacturas.Col = 3
MSFfacturas.Text = "Mes"
MSFfacturas.Col = 4
MSFfacturas.Text = "Año "
MSFfacturas.Col = 5
MSFfacturas.Text = "Importe" |