| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1545 人关注过本帖
标题:VFP6.0的表格控件引用出错!
只看楼主 加入收藏
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:0 
回复 10楼 茵梦湖
呵呵,代码团成一团了???

2009-08-25 21:43
茵梦湖
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:31
帖 子:545
专家分:2180
注 册:2009-4-25
收藏
得分:0 
10楼代码 团成了一团,再发一次,如不行就算了~~~下述代码通过测试( "新增/放弃" 交替点击, "表a/表b"交替临时加载 ),供参考~


init, column2加上如下属性
          CurrentControl = "combo1"
          Sparse = .f.
         
         
         
proc cmd1.click  && 新增
     TEMP_BOM =iif(int(rand()*10)%2=0,"表a","表b")
     thisform.grd1.visible=.t.
     thisform.grd1.RECORDSOURCE=""
     thisform.caption =" >> 当前表为: &temp_bom"
     sele 1
     use &temp_bom excl     
     thisform.grd1.RECORDSOURCE="&TEMP_BOM"
     thisform.grd1.column1.CONTROLSOURCE="&TEMP_BOM..项目"
     thisform.grd1.column2.CONTROLSOURCE="&TEMP_BOM..内容"
     thisform.grd1.COLUMN1.TEXT1.READONLY=.T.
     thisform.grd1.COLUMN2.READONLY=.F.
proc cmd2.click  && 放弃
     thisform.grd1.visible=.f.

[ 本帖最后由 茵梦湖 于 2009-8-25 22:06 编辑 ]
2009-08-25 22:04
GEORGECHIN
Rank: 2
等 级:论坛游民
帖 子:43
专家分:16
注 册:2009-8-25
收藏
得分:0 
回复 12楼 茵梦湖
谢谢您的回复,我在"放弃"的按钮中加上:&GR1LJ.RECORDSOURCE="" ,整個代碼運行OK了.
至於為何要同時定義列及列中的控件要同時為唯讀,也是因為在沒有釋放表單的情況下再執行顯示表格的操作的時候,其列中的TEXT1竟然可以讀寫(也是不知是為什麼),所以我就把父控件及子控件都寫上了這一段.
2009-08-26 00:04
快速回复:VFP6.0的表格控件引用出错!
数据加载中...
 
   



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

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