vfp中在表单command控件要实现“查找”功能,请问如何编程?这是我在做考勤维护系统时的问题,有全程序吗
这是我编的。有个致命问题,每次按“查找”按钮后实现下列代码,却无法实现查找功能,并且对表中的第一条记录按照text框里输入的修改了,大侠们,求解!课程设计就要交了,小弟才...
这是我编的。有个致命问题,每次按“查找”按钮后实现下列代码,却无法实现查找功能,并且对表中的第一条记录按照text框里输入的修改了,大侠们,求解!课程设计就要交了,小弟才再次求助各位大侠,在线等。。。。
go top
locate for 员工信息表.姓名=alltrim(thisform.txt员工编号.value)
thisform.release
set defa to D:\vf实习341
do form 考勤维护.scx
thisform.release
sheming2009,用你的方法表不会修改了,但是还是无法实现查找功能,你能不能帮忙把程序修改下实现查找功能 展开
go top
locate for 员工信息表.姓名=alltrim(thisform.txt员工编号.value)
thisform.release
set defa to D:\vf实习341
do form 考勤维护.scx
thisform.release
sheming2009,用你的方法表不会修改了,但是还是无法实现查找功能,你能不能帮忙把程序修改下实现查找功能 展开
3个回答
展开全部
“对表中的第一条记录按照text框里输入的修改了”
这是问题的关键,你的文本框不要从数据环境里拖出来用(从你的文本框的名称就能看出来:“txt员工编号”),拖出来的就会和数据表建立联系,当你修改文本框内的内容时,自然表中的记录也会改变。所以要自己新建一个文本框(直接用表单控件工具栏里的,名称一般自动为text1)来输入内容,这样就不会改到表中的数据了。
sele 员工信息表
go top
t1=alltrim(thisform.text1.value)
loca for 姓名=t1
if found()
&&下面就是你需要将内容显示到什么地方了,如thisform.text2.value=员工编号等
else
messagebox("查无此人!",64,"提示")
endif
这是问题的关键,你的文本框不要从数据环境里拖出来用(从你的文本框的名称就能看出来:“txt员工编号”),拖出来的就会和数据表建立联系,当你修改文本框内的内容时,自然表中的记录也会改变。所以要自己新建一个文本框(直接用表单控件工具栏里的,名称一般自动为text1)来输入内容,这样就不会改到表中的数据了。
sele 员工信息表
go top
t1=alltrim(thisform.text1.value)
loca for 姓名=t1
if found()
&&下面就是你需要将内容显示到什么地方了,如thisform.text2.value=员工编号等
else
messagebox("查无此人!",64,"提示")
endif
展开全部
问题讲的不是很清楚,是不是locate命令定位不到记录,如果是,看看GO TOP 以前工作表是不是处在当前,还有字符比较时的大小写问题和空格问题(你去掉了控件输入值的空格,有没有想过表中数据也有可能有空格),至于其它的,你的问题描述的不是很清楚,我也不好说了
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把thisform.release改为thisform.refresh
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询