我做了个表单，上面有两个文本框（分别是用户名和密码）还有一个表格控件，打算里面只显示用户名，下面有三个命令按钮分别是，添加，删除，退出。当通过文本框添加用户时，表格显示正常{只显示用户名}。但是删除用户时，表格就会多出一列密码，请问这是为什么，该怎样解决。请高手们帮帮我，我是新手。

删除代码：

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" />

这个问题困扰我好长时间了，还望各位高手不吝赐教。因为是新手所以还请各位最好能将代码或是过程说的详细些。

加上这一句
thisform.grid1.columncount=1

收到的鲜花

• olol61 于 2009-08-05 19:52 送鲜花  3朵  
• olol61 于 2009-08-05 20:37 送鲜花  3朵  

sywzs你好，感谢你的回复，这句应该加到哪呢。

loca for allt(用户名)==allt(thisform.text1.value).and.allt(密码)==allt(thisform.text2.value)
IF .not.eof()
    IF messagebox("你确定删除该记录吗？",4+64+256,"提示")=6
       THISFORM.GRID1.RECORDSOURCE=''
       delete
       PACK
       thisform.grid1.recordsource="操作员表"
   ENDIF
ELSE
    =messagebox("此用户不存在，请重新输入！",0+64,"警告;")
endif
thisform.text1.value=" "
thisform.text2.value=" "
thisform.refresh()
不要搞得那么复杂，以上一些通过

thisform.grid1.columncount=1
thisform.grid1.recordsource="操作员表"
thisform.grid1.refresh()

sd_tysd你好，我试了你的办法，但是删除后密码列字段依然出现。

sywzs你好，很高兴，试了你的办法真的显示正常了，但是不知道为什么却显示“文件在另一个工作区被打开”请帮我再看看。多谢！
" border="0" />

[[it] 本帖最后由 olol61 于 2009-8-4 19:55 编辑 [/it]]

loca for allt(用户名)==allt(thisform.text1.value).and.allt(密码)==allt(thisform.text2.value)
IF .not.eof()
    IF messagebox("你确定删除该记录吗？",4+64+256,"提示")=6
       delete
       THISFORM.GRID1.RECORDSOURCE=''
       PACK
       thisform.grid1.recordsource="操作员表"
       thisform.grid1.columncount=1     &&表格只显示1列
       thisform.grid1.controlsource="用户名"   &&表格第一列 字段名

   ENDIF
ELSE
    =messagebox("此用户不存在，请重新输入！",0+64,"警告;")
endif
thisform.text1.value=" "
thisform.text2.value=" "
thisform.refresh()

[[it] 本帖最后由 sd_tysd 于 2009-8-4 23:04 编辑 [/it]]

收到的鲜花

• olol61 于 2009-08-05 20:36 送鲜花  3朵  
• olol61 于 2009-08-05 20:37 送鲜花  3朵  

loca for allt(用户名)==allt(thisform.text1.value).and.allt(密码)==allt(thisform.text2.value)
IF .not.eof()
    IF messagebox("你确定删除该记录吗？",4+64+256,"提示")=6
       delete
       THISFORM.GRID1.RECORDSOURCE=''           &&先使表格与数据脱开
       PACK
       thisform.grid1.recordsource="操作员表"    &&在给表格添加数据来源
       thisform.grid1.columncount=1              &&表格只显示1列
       thisform.grid1.controlsource="用户名"     &&表格第一列 字段名

   ENDIF
ELSE
    =messagebox("此用户不存在，请重新输入！",0+64,"警告;")
endif
thisform.text1.value=" "
thisform.text2.value=" "
thisform.refresh()

[[it] 本帖最后由 sd_tysd 于 2009-8-4 23:03 编辑 [/it]]