- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于动态修改表结构 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159362)
-- 发布时间：2020/12/23 17:28:00
-- [求助]关于动态修改表结构
For i As Integer = 0 To Tables("AAAB").Cols.Count - 1
If i = Tables("AAAB").Cols.Count - 1 AndAlso Tables("AAAB").Cols(i).Caption <> tc.Name Then
sr = "AAAB" & Format(i,"00")
Dim Builder As New ADOXBuilder("ERP")
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("AAAB")
.AddColumn(sr,ADOXType.Text) \'增加备注列
End With
Builder.Close() \'关闭ADOXBuilder
Continue For
End If
Next
请教老师，.AddColumn(sr,ADOXType.Text) \'增加备注列，这行代码中的列名（sr），如何使用变量呢？
-- 发布时间：2020/12/23 17:37:00
--
就这样用的呀。逻辑可以改改
Dim Builder As New ADOXBuilder("ERP")
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("AAAB")
For i As Integer = 0 To Tables("AAAB").Cols.Count - 1
If i = Tables("AAAB").Cols.Count - 1 AndAlso Tables("AAAB").Cols(i).Caption <> tc.Name Then
sr = "AAAB" & Format(i,"00")
.AddColumn(sr,ADOXType.Text) \'增加备注列
Continue For
End If
Next
End With
Builder.Close() \'关闭ADOXBuilder
-- 发布时间：2020/12/24 8:22:00
--
此主题相关图片如下：微信图片_20201224082044.png
可事实上却是报错呢
-- 发布时间：2020/12/24 8:24:00
--
而且也用mes输出诊断过了，就是“.AddColumn(sr,ADOXType.Text) \'增加备注列”代码那里出错
-- 发布时间：2020/12/24 9:23:00
--
用法没有问题，错误估计是添加了已经存在的同名的列
[此贴子已经被作者于2020/12/24 9:23:08编辑过]
-- 发布时间：2020/12/24 11:05:00
--
以下是引用有点蓝在2020/12/24 9:23:00的发言：
用法没有问题，错误估计是添加了已经存在的同名的列
用法没有问题，错误估计是添加了已经存在的同名的列
谢谢老师，确实是添加了同名的列
另外请问一下，修改表结构的时候，增加列如何设定增加列的列标题呢？
[此贴子已经被作者于2020/12/24 9:23:08编辑过]
-- 发布时间：2020/12/24 11:09:00
--
这个要在datatable里增加：http://www.foxtable.com/webhelp/topics/1275.htm
-- 发布时间：2020/12/24 11:49:00
--
以下是引用有点蓝在2020/12/24 11:09:00的发言：
这个要在datatable里增加：http://www.foxtable.com/webhelp/topics/1275.htm
这个要在datatable里增加：http://www.foxtable.com/webhelp/topics/1275.htm
Dim tb1 As Table = Tables("列表")
Dim tr1 As Row = tb1.Current
Dim sr As String
For Each tc As Col In tb1.Cols
For i As Integer = 0 To Tables("AAAB").Cols.Count -1
If i = Tables("AAAB").Cols.Count - 1 AndAlso Tables("AAAB").Cols(i).Caption <> tc.Name Then
sr = "AAAB" & Format(i+1,"00")
Dim Builder As New ADOXBuilder("ERP")
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("AAAB")
.AddColumn(sr,ADOXType.Text) \'增加备注列
End With
Builder.Close() \'关闭ADOXBuilder
If DataTables.Contains("AAAB") Then \'如果表C已经加载
DataTables.Unload("AAAB") \'卸载表C
Do While DataTables.Contains("AAAB")
Loop
End If
If DataTables.Contains("AAAB") = False Then \'如果表C没有加载
DataTables.Load("AAAB") \'加载表C
With DataTables("AAAB")
.DataCols(sr).Caption = tc.Name
.Save(True)
.BuildHeader()
End With
Do While DataTables.Contains("AAAB") = False
Loop
End If
Continue For
End If
Next
Next
老师，修改了之后，表重新加载后列标题就没有了，要如何实现永久性的添加列标题呢，加了保存表设置都没有用，哪里出错了呢？
-- 发布时间：2020/12/24 11:52:00
--
动态添加的列无法永久性的添加列标题，需要在加载后使用代码设置列标题。除非到外部表管理中刷新表格，在菜单里添加标题
-- 发布时间：2020/12/24 11:59:00
--
以下是引用有点蓝在2020/12/24 11:52:00的发言：
动态添加的列无法永久性的添加列标题，需要在加载后使用代码设置列标题。除非到外部表管理中刷新表格，在菜单里添加标题
动态添加的列无法永久性的添加列标题，需要在加载后使用代码设置列标题。除非到外部表管理中刷新表格，在菜单里添加标题
老师，那么如何在表加载后，通过代码永久的添加列标题呢？