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