| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 797 人关注过本帖
标题:每次添加记录时多出空行的问题
只看楼主 加入收藏
sun1019
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-2-28
收藏
 问题点数:0 回复次数:5 
每次添加记录时多出空行的问题

我在按钮中用如下代码添加记录:
sele main
go bottom
lsllr=alltrim(thisform.txtllr.value)
lslb=alltrim(thisform.combo1.value)
lsrq=alltrim(thisform.rq.value)
INSERT into main(llr,lb,rq) values(lsllr,lslb,lsrq)
thisform.txtllr.value=''
thisform.combo1.value=''
thisform.rq.value=''
thisform.refresh
thisform.txtllr.setfocus

每次运行添加记录的表单输入记录后,在main中总会多出一行空记录,请问怎么解决?

搜索更多相关主题的帖子: 记录 
2006-03-05 08:51
zengxingye
Rank: 1
等 级:新手上路
帖 子:48
专家分:0
注 册:2006-2-24
收藏
得分:0 
这不应该每次都出现空行啊?又没有使用append,我不知道你其它地方有没有其它代码了,据估计是你多点了一下按钮,因为你最后把三个值都设为空了,只要一点同样插入一条记录,是条空记录.
你把代码改这样试试:

sele main
go bottom
lsllr=alltrim(thisform.txtllr.value)
lslb=alltrim(thisform.combo1.value)
lsrq=alltrim(thisform.rq.value)
if empty(lsllr) or empty(lslb) or empty(lsrq)
messangebox("有值为空,不能保存",16,"错误提示")
thisform.txt11r.setfocus
else
INSERT into main(llr,lb,rq) values(lsllr,lslb,lsrq)
thisform.txtllr.value=''
thisform.combo1.value=''
thisform.rq.value=''
endif
thisform.refresh
thisform.txtllr.setfocus

2006-03-05 10:30
sun1019
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-2-28
收藏
得分:0 
还是出现空行

sele main
go bottom
lsllr=alltrim(thisform.txtllr.value)
lslb=alltrim(thisform.combo1.value)
lsrq=alltrim(thisform.rq.value)
if empty(lsllr) or empty(lslb) or empty(lsrq)
messangebox("有值为空,不能保存",16,"错误提示")
thisform.txt11r.setfocus
else
INSERT into main(llr,lb,rq) values(lsllr,lslb,lsrq)
thisform.txtllr.value=''
thisform.combo1.value=''
thisform.rq.value=''
endif
thisform.refresh
thisform.txtllr.setfocus

我的FORM只有保存和退出两个按钮,如果初次运行form,如果不点保存按钮刷新,则表单显示的是数据库表main的第一条记录值,并且如改过的值只按一次按钮后,将盖掉原来的第一条记录值.

2006-03-05 11:00
sun1019
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2006-2-28
收藏
得分:0 
其他地方无代码了
2006-03-05 11:01
zengxingye
Rank: 1
等 级:新手上路
帖 子:48
专家分:0
注 册:2006-2-24
收藏
得分:0 
明白,你可能设置了表单txtllr,combo1,rq的controlsource属性了,这样就把这个控件的值直接绑定在数据表上了,你不用insert也能加数据了,
把这些controlsource属性都去掉
在表单的init事件中增加代码:thisform.txtllr.value=main.llr
thisform.combo1.displayvalue=main.lb
thisform.rq.value=main.rq
thisform.refresh
2006-03-05 16:44
YCJDW
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-3-4
收藏
得分:0 
以我的经验,最好增加一个添加按钮
2006-03-05 23:28
快速回复:每次添加记录时多出空行的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.040060 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved