- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码无效 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=148688)
-- 发布时间：2020/4/13 13:20:00
-- 代码无效
按钮的代码如下：
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
-- 发布时间：2020/4/13 14:12:00
--
Dim tbl As Table = e.Form.Controls("Table1").Table
tbl.AllowEdit = True
tbl.Cols("代理人编码").AllowEdit = True
tbl.Cols("立案编码").AllowEdit = False
Tables(Vars("fsDangQianB")).AllowEdit = True
Tables(Vars("fsDangQianB")).Cols("立案编码").AllowEdit = False ‘加载的是Vars("fsDangQianB")这张表。
Tables(Vars("fsDangQianB")).Cols("代理人编码").AllowEdit = True
msgbox("ok")