查人人中国名人网苏州微蓝科技怎么样:VFP的问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 07:21:10
有一段这样的代码
IF ""=ALLTRIM(thisform.text1.Value) THEN
MESSAGEBOX("在下面的单位名称处不能为空!请输入后再点此按钮.")
else
thisform.grid1.RecordSource =null
SELECT * FROM order1 WHERE order1.单位=ALLTRIM(thisform.text1.Value) INTO CURSOR alldw
thisform.grid1.RecordSource = "alldw"
endif
thisform.Refresh
如果select找不到记录,就会出错的呀,那么怎么去判断如果select是一个空集时就跳过后面的thisform.grid1.RecordSource = "alldw"呀?
IF ""=ALLTRIM(thisform.text1.Value) THEN
MESSAGEBOX("在下面的单位名称处不能为空!请输入后再点此按钮.")
else
thisform.grid1.RecordSource =null
SELECT * FROM order1 WHERE order1.单位=ALLTRIM(thisform.text1.Value) INTO CURSOR alldw
thisform.grid1.RecordSource = "alldw"
endif
thisform.Refresh
如果select找不到记录,就会出错的呀,那么怎么去判断如果select是一个空集时就跳过后面的thisform.grid1.RecordSource = "alldw"呀?
sele * from ……
sele alldw
count to nRec
if nRec!=0
thisform.grid1.recordsource="alldw"
endif
**count to 在set deleted on时不统计加删除标记的记录