按钮的代码如下：
Dim tbl As Table = e.Form.Controls("Table1").Table
tbl.Cols("代理人编码").AllowEdit = True
tbl.Cols("立案编码").AllowEdit = False
Tables(Vars("fsDangQianB")).Cols("立案编码").AllowEdit = False ‘加载的是Vars("fsDangQianB")这张表。
Tables(Vars("fsDangQianB")).Cols("代理人编码").AllowEdit = True
msgbox("ok")
执行结果如图，没有起作用。何解。
窗体里面的表是通过动态加控件创建的。
Dim tbl As WinForm.Table
Dim pnlTable As WinForm.Panel = e.Form.Controls("pnlTable")
tbl = e.Form.CreateTable("Table1", Vars("fsDangQianB"),False)
tbl.SetBounds(0, 0, pnlTable.width, pnlTable.height)
e.Form.Controls("pnlTable").AddControl(tbl)
tbl.tabindex = 0
此主题相关图片如下：无标题.jpg
加好友 
发短信
Post By：2020/4/13 13:20:00 [显示全部帖子]
