回复 10楼 茵梦湖
呵呵,代码团成一团了???

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 编辑 ]

回复 12楼 茵梦湖
谢谢您的回复，我在"放弃"的按钮中加上：&GR1LJ.RECORDSOURCE="" ,整個代碼運行OK了.
至於為何要同時定義列及列中的控件要同時為唯讀,也是因為在沒有釋放表單的情況下再執行顯示表格的操作的時候,其列中的TEXT1竟然可以讀寫(也是不知是為什麼),所以我就把父控件及子控件都寫上了這一段.