SET FILTER TO YEAR(发货日期)=VAL() .and. IIF(EMPTY( ),.t.,MONTH(发货日期)=VAL())
COUNT TO n
thisform.grid1.Refresh
IF n=0 MESSAGEBOX("没有符合条件的记录,请重新输入查询条件!")
ENDIF
SET FILTER TO YEAR(发货日期)=VAL() .and. IIF(EMPTY( ),.t.,MONTH(发货日期)=VAL())
COUNT TO n
thisform.grid1.Refresh
IF n=0 MESSAGEBOX("没有符合条件的记录,请重新输入查询条件!")
ENDIF