首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

连编后不能写入表的有关问题

2012-04-17 
连编后不能写入表的问题我写了一个程序,用来记录玩过的空挡接龙的局号,如果输入的局号在数据表中没有存储,

连编后不能写入表的问题
我写了一个程序,用来记录玩过的空挡接龙的局号,如果输入的局号在数据表中没有存储,就写入表,否则就不写表。
两个按钮,
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,运行再看
[解决办法]

探讨
打开你的程序,在“项目管理器”中找到出问题的那个表,对它点右键,出菜单后左键单击“排除”
重新编译成exe,运行再看

热点排行