以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态增加一个逻辑列遇到问题，求解  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152107)
--  作者：fytea
--  发布时间：2020/7/9 4:19:00
--  动态增加一个逻辑列遇到问题，求解

蓝老师：您好！

动态增加一个逻辑列，希望是重新打开项目时，该逻辑列全部勾选。

目前代码实现不了。

问题一：不能勾选。

问题二：自动重新启动时报错，报错内容：此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据。

以下代码，帮我看看。谢谢！！！

Dim Builder As New  ADOXBuilder
Dim nds As String = e.Form.Controls("ComboBox1").text
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("表A")
    .AddColumn(nds ,ADOXType.Boolean,True ) 
End  With

MessageBox.show("重新启动后才能生效!","提示")

Builder.Close()

Syscmd.Project.Open(ProjectFile)

[此贴子已经被作者于2020/7/9 4:29:34编辑过]
--  作者：有点蓝
--  发布时间：2020/7/9 9:37:00
--  
1、项目afteropenproject
datatables("表A").replacefor("xx逻辑列",true)

2、试试
……

MessageBox.show("重新启动后才能生效!","提示")

Builder.Close()

e.cancel = true

Syscmd.Project.Open(ProjectFile)
--  作者：fytea
--  发布时间：2020/7/9 21:26:00
--  

表A 的"xx逻辑列”是动态生成的，

项目afteropenproject

datatables("表A").replacefor("xx逻辑列",true)不能运行吧，因为表a 还没有("xx逻辑列"）
--  作者：有点蓝
--  发布时间：2020/7/9 21:54:00
--  
重启项目后正常就有了