以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  临时表编辑  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179389)

--  作者:qaz17909
--  发布时间:2022/8/21 9:41:00
--  临时表编辑
 在命令窗口用如下代码生成的临时表,是可以编辑的
Dim dtb As New DataTableBuilder("临时表")
dtb.AddDef("编号", GetType(String), 32)
dtb.AddDef("名称", GetType(String), 32)
dtb.AddDef("型号", GetType(String), 100)
dtb.Build()
MainTable = Tables("临时表")
Tables("临时表").AddNew()

但是如果在窗口设计的时候,用下面代码生成的临时表,却是锁定无法编辑,应该怎么弄才可让其可编辑?
Dim dtb As New DataTableBuilder("临时表")
dtb.AddDef("设备编号", GetType(String), 32)
dtb.AddDef("设备名称", GetType(String), 32)
dtb.AddDef("规格型号", GetType(String), 100)
dtb.Build()
Dim t As Table = e.Form.Controls("Table1").Table
t.DataSource = dtb.BuildDataSource

--  作者:有点蓝
--  发布时间:2022/8/21 21:00:00
--  
t.DataSource = dtb.BuildDataSource
t.allowedit = true