主题：[求助]新增备注列，报错

外部access数据源，新增备注列，可能重复新建了列

已经删了列：增加备注列，还报错怎么解决?

新增列前加判断如果，增加备注列，已经存在就不新增列代码怎么写呢？

 

Dim Builder As New ADOXBuilder("database")
Builder.Open() '打开ADOXBuilder
With Builder.Tables("室内设计项目")
    .AddColumn("增加备注列" ,ADOXType.Text) '增加备注列
End With
Builder.Close() '关闭ADOXBuilder

 

此主题相关图片如下：bc.png

1、unload表格，然后load表格；

 

2、datacols比较是否存在对应的列；

 

3、最后要unload表格，load表格。

 

Dim Builder As New ADOXBuilder("database")

Builder.Open() '打开ADOXBuilder

 

With Builder.Tables("室内设计项目")

    Dim str As String = e.Form.Controls("TextBox1").Text  

        .AddColumn(str,ADOXType.Text) '增加备注列

'.AddColumn("增加日期型列" ,ADOXType.DateTime) '增加日期型列

End With

Builder.Close() '关闭ADOXBuilder

 

If DataTables.Contains("室内设计项目")  Then '如果表C已经加载

    DataTables.Unload("室内设计项目") '卸载表C

End If

 

DataTables.Load("室内设计项目")

Forms("自己的项目").Open()

MainTable = Tables("室内设计项目")

 

师傅，

1、'增加备注列，重新加载表后，不要打开备注列窗口，上面代码怎么增加？

此主题相关图片如下：备注列窗口.jpg

 

2、如果是日期列，新增后，要打开内置输入器，代码怎么写？

此主题相关图片如下：打开日期输入器.jpg

 

3、新增列前加判断如果，增加备注列，已经存在就不新增列代码怎么写呢？

4、新增列前加判断如果，增加备注列，已经存在，要删除这列代码怎么写呢？

1、http://www.foxtable.com/webhelp/scr/0586.htm

 

2、写代码处理

 

http://www.foxtable.com/webhelp/scr/1783.htm

 

3、http://www.foxtable.com/webhelp/scr/1428.htm

 

系统重启后，不能保存设置的关闭bz备注列窗口，打开rq日期列内置输入器

系统重启后，要怎样才能保持上面设置（关闭备注列窗口+打开日期列内置输入器）

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:备注列窗口+日期输入器.zip

 

4、新增列前加判断如果，增加备注列，已经存在，要删除这列代码怎么写呢？

不可以保存设置的，只能临时设置。

 

如果要保存，你要把信息保存在表格，afterOpenProject事件读取表格信息重新设置一次。

 

4、删除列同样这样做 http://www.foxtable.com/webhelp/scr/2122.htm

 

 信息保存在表格，是把代码写在表的单元格里？
afterOpenProject事件读取表格里面的代码吗？afterOpenProject事件读取表格里面的代码怎么写呢？

回复7楼，不是。

 

比如，表结构这样：表名，列名，列窗口，内置编辑器，然后输入数据

 

表A,第一列,false,false

表B,备注,true,false

表A,日期,false,true

 

然后afterOpenProject事件循环每一行，分别设置各个属性。