以下是引用yin710在2014-5-24 22:50:52的发言:
各位老师,又重装的vf9系统,还是不行,提示:程序错误,表1必须由sele.....into table创建,把cursor换成table,也不行,仍有这个提示。
我的代码是:是不是代码有什么问题,老师给看看
IF thisform.optiongroup2.option1.Value=1 and empty(thisform.text1.value) AND empty(thisform.text2.value)
sele * from 数据库 into cursor 表 1
SELECT 表 1
SELECT RECNO() 序号,* FROM 表1 INTO cursor 表2
SELECT 表2
* 直接:各位老师,又重装的vf9系统,还是不行,提示:程序错误,表1必须由sele.....into table创建,把cursor换成table,也不行,仍有这个提示。
我的代码是:是不是代码有什么问题,老师给看看
IF thisform.optiongroup2.option1.Value=1 and empty(thisform.text1.value) AND empty(thisform.text2.value)
sele * from 数据库 into cursor 表 1
SELECT 表 1
SELECT RECNO() 序号,* FROM 表1 INTO cursor 表2
SELECT 表2
SELECT RECNO() 序号,* FROM 数据库 INTO cursor 表2
thisform.grid1.recordsource='表2'
thisform.grid1.backcolor=rgb(200,224,248)
else
sele * from 数据库 where BETWEEN(时间,thisform.text1.Value,thisform.text2.Value) ORDER BY 时间 ASC into cursor 表1
SELECT 表 1
SELECT RECNO() 序号,* FROM 表1 INTO cursor 表2
SELECT 表 2
* 直接SELECT 表 1
SELECT RECNO() 序号,* FROM 表1 INTO cursor 表2
SELECT 表 2
sele RECNO() 序号,* from 数据库 where BETWEEN(时间,thisform.text1.Value,thisform.text2.Value) ORDER BY 时间 ASC into cursor 表2
thisform.grid1.recordsource='表2'
thisform.grid1.backcolor=rgb(200,224,248)
ENDIF
*代码精简:
程序代码:
IF thisform.optiongroup2.option1.Value=1 and empty(thisform.text1.value) AND empty(thisform.text2.value) SELECT RECNO() 序号,* FROM 数据库 INTO cursor 表2 ELSE sele RECNO() 序号,* from 数据库 where BETWEEN(时间,thisform.text1.Value,thisform.text2.Value) ORDER BY 时间 ASC into cursor 表2 ENDIF thisform.grid1.recordsource='表2' thisform.grid1.backcolor=rgb(200,224,248)
坚守VFP最后的阵地