Close Databases All
Use ventas Exclusive
txtfecha=Thisform.text1.Value
SET DATE BRITISH
SET EXACT ON
SET SAFETY ON
If !Empty(txtfecha) Then
Select fecha,codigo,articulo,importe From ventas Where fecha=txtfecha Order By fecha Into Cursor xx
Select xx
If Reccount() == 0 Then
Messagebox(eMessageText2, nDialogType2, eMessageTitle2)
ENDIF
thisform.list1.rowsource="xx"
thisform.list1.Refresh
Else
Messagebox("Debe colocar una fecha válida")
Endif