连编后不能写入表的问题
我写了一个程序,用来记录玩过的空挡接龙的局号,如果输入的局号在数据表中没有存储,就写入表,否则就不写表。
两个按钮,
1、“检测”,用来检测输入的局号是否已经存在了。代码如下:
jh=alltrim(thisform.text1.value)
use 空挡接龙
locate for alltrim(局号)==jh
if not found()
messagebox("没有该局,可以存储!",0+0+48,"提示")
thisform.command1.enabled=.t.
else
messagebox("已有该局",0+0+48,"警告")
thisform.text1.value=""
thisform.text1.setfocus
endif
close all
2、“存储”,用来将未存储的局号写入表。表中只有一个字段“局号”
jh=alltrim(thisform.text1.value)
use 空挡接龙
append blank
replace 局号 with jh
messagebox("存储成功!",0+0+64,"提示")
this.enabled=.f.
thisform.text1.value=""
thisform.text1.setfocus
thisform.refresh
close all
问题是:“存储”按钮的代码在vfp环境中运行的好好的,只要连编后,在windows中单击时,就会出现“cannot update the
cursor”啥原因??
[解决办法]
不能更新游标。
你的"空挡接龙"数据表是否包含在EXE中,正常情况下是不包含在EXE中。
这两个按钮下的代码可以放在一起,没必要分开来。
CLOSE ALL &&在表单中最好不要这样用
USE 空挡接龙 &&这样打开数据表不合适,最好将该表加入表单的数据环境中。
[解决办法]
把表一块编译到EXE文件中了,在项目中把表排除就可以 了
[解决办法]
打开你的程序,在“项目管理器”中找到出问题的那个表,对它点右键,出菜单后左键单击“排除”
重新编译成exe,运行再看
[解决办法]