一个按钮问题,再等!!!!再给分。

seek1978 2003-10-09 12:38:11
表1:GRID表形式
日期 姓名 产量 扣款
79.1 A 100 20
78.1 A 500 10
79.1 A 600 10
79.1 A 600 10
有增加,保存,退出三个按钮。点击增加按钮,GRID表增加了一条空记录,当不输入任何记录,点击保存或退出按钮,出现记录不能为空,请输入数据的提示框,选择“是”或“否”,点“是”时,重新输入数据,点“否”时,删除空记录。请问这个功能如何解决。
...全文
32 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
noproblem12 2003-10-11
  • 打赏
  • 举报
回复
结束了,该结贴了,:)
wwle 2003-10-10
  • 打赏
  • 举报
回复
淡然也可以 判断每个字段是否和要求!
field()-->
try it yourself!
wwle 2003-10-10
  • 打赏
  • 举报
回复
你的思路:如果是数据库中的表的话可以用规则来控制!空记录就进不去

如果是自由表的话:
方法可多了!
无论哪个表总要有一个关键字段是吧,只要这个不空就行!
前提是append blank 0->如果不是,自己记着那个记录号吧
go bottom ->记录号 你记了没?哈哈 放到变量中
if 条件 ->或者其他函数自己想吧
if messagebox('y/n',1,'')#1
dele
else
thisform.grid1.setfocus

endif

endif

mgan 2003-10-10
  • 打赏
  • 举报
回复
只要判断添加记录是否为空
append blank
if 添加记录为空 then
a=messagebox('记录不能为空,请输入数据!',68,'提示')
if a=6 then
thisform.grid1.setfocus
else
dele recond()
endif
else

将记录添加到表中
endif

westbulls 2003-10-10
  • 打赏
  • 举报
回复
1.set muti on
2.将你的grid的数据源的表的buffermodeoverride设置为5
3.save按钮中代码:
if GETFLDSTATE("你的表中的任一字段")=3
if messagebox("记录不能为空,是否输入数据?",1+32+256,"提示信息")=1
thisform.grid1.setfocus()
else
=tablerevert(.f.)
endif
else
=tableupdate(.t.)
endif



dfwxj 2003-10-09
  • 打赏
  • 举报
回复
if 产量<=0 &&由表可见产量是判断记录是否有效的依据
if messagebox('记录不能为空,请输入数据!',68,'提示')=6
thisform.grid1.setfocus
retu
else
dele
endi
endi
thisform.release &&这一句在退出按钮中

强调一下,代码中不能包含象楼上所说的“go bottom”语句,具体原因大家可以自行验证:如果记录指针不在末记录时并且当前记录符合空记录条件会误删末记录
520zyb 2003-10-09
  • 打赏
  • 举报
回复
做一个判断:
if messagebox('记录不能为空,请输入数据!',4+32,'提示')=6
select table1
go bottom
thisform.grid1.setfocus
return
else
select table1
go bottom
delete
endif

2,722

社区成员

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

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