标题:求助:表单上表格控件的显示与刷新问题
取消只看楼主
olol61
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2009-8-2
结帖率:50%
已结贴  问题点数:20 回复次数:5 
求助:表单上表格控件的显示与刷新问题
我做了个表单,上面有两个文本框(分别是用户名和密码)还有一个表格控件,打算里面只显示用户名,下面有三个命令按钮分别是,添加,删除,退出。当通过文本框添加用户时,表格显示正常{只显示用户名}。但是删除用户时,表格就会多出一列密码,请问这是为什么,该怎样解决。请高手们帮帮我,我是新手。

删除代码:

loca for 用户名=allt(thisform.text1.value).and.密码=allt(thisform.text2.value)
if 用户名=allt(thisform.text1.value).and.密码=allt(thisform.text2.value)
IF messagebox("你确定删除该记录吗?",4+64+256,"提示")=6
Thisform.LockScreen=.T.
THISFORM.GRID1.RECORDSOURCE=null
delete
PACK
thisform.grid1.recordsource="操作员表"
thisform.grid1.refresh()
Thisform.LockScreen=.F.
endif
ELSE
=messagebox("此用户不存在,请重新输入!",0+64,"警告;")
endif
thisform.text1.value=" "
thisform.text2.value=" "
thisform.text1.setfocus

" border="0" />

删除后多了一列密码(下图)
" border="0" />
搜索更多相关主题的帖子: 表单 控件 表格 
2009-08-02 22:27
olol61
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2009-8-2
得分:0 
这个问题困扰我好长时间了,还望各位高手不吝赐教。因为是新手所以还请各位最好能将代码或是过程说的详细些。
2009-08-02 22:33
olol61
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2009-8-2
得分:0 
回复 3楼 sywzs
sywzs你好,感谢你的回复,这句应该加到哪呢。
2009-08-03 19:25
olol61
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2009-8-2
得分:0 
回复 5楼 sd_tysd
sd_tysd你好,我试了你的办法,但是删除后密码列字段依然出现。
2009-08-04 19:32
olol61
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2009-8-2
得分:0 
回复 6楼 sywzs
sywzs你好,很高兴,试了你的办法真的显示正常了,但是不知道为什么却显示“文件在另一个工作区被打开”请帮我再看看。多谢!
" border="0" />

[[it] 本帖最后由 olol61 于 2009-8-4 19:55 编辑 [/it]]
2009-08-04 19:41
olol61
Rank: 1
等 级:新手上路
帖 子:11
专家分:0
注 册:2009-8-2
得分:0 
呵呵,问题解决了,把表格换成列表框了
loca for allt(用户名)==allt(thisform.text1.value).and.allt(密码)==allt(thisform.text2.value)
IF .not.eof()
    IF messagebox("你确定删除该记录吗?",4+64+256,"提示")=6
       delete        
       PACK
       thisform.list1.columncount=1     &&表格只显示1列
 
   ENDIF  
ELSE
    =messagebox("此用户不存在,请重新输入!",0+64,"警告;")
endif
thisform.text1.value=" "
thisform.text2.value=" "
thisform.refresh()
2009-08-05 19:48



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-281372-1-1.html




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

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