| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2211 人关注过本帖
标题:求助:表单上表格控件的显示与刷新问题
只看楼主 加入收藏
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:7 
还没搞定啊?? 3楼和9楼都是正解~~~或者用下述代码~~~
 
 
loca for allt(用户名)==allt(thisform.text1.value).and.allt(密码)==allt(thisform.text2.value)
IF foun()
   IF messagebox("你确定删除该记录吗?",4+64+256,"提示")=6
      ls=recn()
      copy to c:\ls for recn()<>ls
      zap
      appe from c:\ls
   ENDIF  
ELSE
   =messagebox("此用户不存在或密码有误,请重新输入!",0+64,"警告;")
endif
go top  
stor "  " to thisform.text1.value, thisform.text2.value
thisform.grid1.columncount=1  
thisform.refresh()
收到的鲜花
  • olol612009-08-05 20:35 送鲜花  3朵  
2009-08-05 18:59
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
GEORGECHIN
Rank: 2
等 级:论坛游民
帖 子:43
专家分:16
注 册:2009-8-25
收藏
得分:0 
表格控件就经常出现这种问题,原因为用了PACK命令让数据源重生及表格重新刷新的结果。这种事情,我用再定义表格的RECORDSOURCE及表格列的RAWSOURCE解决了。
2009-08-25 10:29
快速回复:求助:表单上表格控件的显示与刷新问题
数据加载中...
 
   



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

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