请帮忙修改程序,在线等待(急)

likly1 2003-05-22 01:42:47
我用VFP6.0制作了一个含一个数据库的表单,想通过命令按钮实现对数据库的操作,现在碰到的问题是:增加记录后,按下“保存”按钮,想防止新增加的记录的内容(产品代号或产品名称)与原有记录重复。
1(二维表形式)
a=RECNO()
if column1.value=a.column1.value *column1是二维表的第一列
yn=messagebox(此人员代号重复,请重新输入,(0+48+0),提示)
tablerevert(.t.)
else
=tableupdate(.t.)
endif

2(不是二维表形式)
if 类别.类别代号=thisform.txt类别代号 *运行后提示操作符/操作数类型不匹配
bb=messagebox('类别代号重复,请重新输入!',4+48+256,'警告')
if bb=6
thisform.txt类别代号.setfocus


请大家帮我改改,谢谢了,急急急!
...全文
34 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
whint 2003-05-22
  • 打赏
  • 举报
回复
你的几句程序简直乱七八糟。
1里面a是变量还是个控件对象啊,column1又是什么,表名还是控件对象名?
2里面也是问题多多,类别.类别代号是什么类型的?“thisfrom.txt类别代号”是什么,看你后面的代码好像是个控件对象,那你的写法全然不对。我这里只好假设你的类别代码是字符型的,而“txt类别代码”是个文本框,那么做如下改动
if allt(类别.类别代号)==allt(thisform.txt类别代号.value)
bb=messagebox('类别代号重复,请重新输入!',4+48+256,'警告')
if bb=6
thisform.txt类别代号.setfocus
firesay 2003-05-22
  • 打赏
  • 举报
回复
在 if 前面加入 loca for 查询
alltrim(类别.类别代号)=alltrim(thisform.txt类别代号)

2,749

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧