请教老师，为什么用 sele ...into sursor 表不行？ - VFP论坛

得分:5

以下是引用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

*   直接：
   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

*  直接
   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)

收到的鲜花

yin710 于 2014-05-25 00:37 送鲜花 3朵附言：谢谢

坚守VFP最后的阵地

第 12 楼

得分:0

tlliqi老师好，我试了一下，把几个select表1去掉，还是不行。我通过多次测试觉得是如果没有IF thisform.optiongroup2.option1.Value=1 and empty(thisform.text1.value) AND empty(thisform.text2.value)这句话或者这个代码里如果加入where....就不会出现错误提示啦，能正常运行。这个if。。。句子有错么？

第 13 楼

得分:0

程序代码：

 IF thisform.optiongroup2.option1.Value=1 and !empty(thisform.text1.value) AND !empty(thisform.text2.value)
    sele * from 数据库 where BETWEEN(时间,allt(thisform.text1.Value),allt(thisform.text2.Value)) ORDER BY 时间 ASC into cursor 表1 
  else
    sele * from 数据库 into cursor 表1

 ENDIF
thisform.grid1.recordsource='表1'
thisform.grid1.backcolor=rgb(200,224,248)

第 14 楼

得分:0

sdta老师，你的办法有效，能运行啦，但也有个问题，只查询数据库的一多半内容，我的数据库的内容是从excel表转换来的，没有序号编排。以前我用上述的代码能全部查询。这是怎么回事？谢谢

第 15 楼

得分:0

另外我不喜欢用table ，老有个覆盖表的对话框
你用table时，加set safety off就不出现覆盖表的对话框了
如：
set safety off
sele * from 数据库 into table 表1

第 16 楼

得分:5

以下是引用yin710在2014-5-25 00:25:36的发言：

sdta老师，你的办法有效，能运行啦，但也有个问题，只查询数据库的一多半内容，我的数据库的内容是从excel表转换来的，没有序号编排。以前我用上述的代码能全部查询。这是怎么回事？谢谢

可能有的数据不规范

收到的鲜花

yin710 于 2014-05-25 00:36 送鲜花 3朵附言：谢谢

第 17 楼

得分:0

tlliqi老师，谢谢，解决了，能查询全部内容啦。也谢谢sdta老师。