08/05/2004, 18:40
|
| | | Fecha de Ingreso: mayo-2004
Mensajes: 14
Antigüedad: 20 años, 6 meses Puntos: 0 | |
| este es el codigo que uso para llenarlo
'*CICLO PÀRA MOSTRAR LA INFO DE LOS ABONOS EN EL COMBO BOX
Do While (x < 1)
Form3.Data3.Recordset.MoveFirst
Do While (Not Form3.Data3.Recordset.EOF)
If (Form3.Data3.Recordset.Fields("usuario").Value = usuario) Then
productoinfo = (Form3.Data3.Recordset.Fields("concepto").Value)
If (productoinfo = productobuscado) Then
Form3.Data3.Recordset.MoveNext
Else
Form3.Combo5.AddItem (CStr(Form3.Data3.Recordset.Fields("concepto").Val ue))
total_abonos = total_abonos + 1
Form3.Data3.Recordset.MoveNext
End If
productobuscado = productoinfo
Else
Form3.Data3.Recordset.MoveNext
End If
Loop
x = x + 1 |