共4 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：[求助]动态增加表名

1楼

huaziqiao1976 发表于：2023/9/12 16:22:00

在 LoadUserSetting 增加外表，怎么判断数据源中没有这个表名，

Dim Builder As New ADOXBuilder("GJ")

Dim tbl As ADOXTable

Builder.Open()

tbl = Builder.NewTable("创建单位") '创建表

With tbl

.AddColumn("单位号" ,ADOXType.String, 4)

.AddColumn("单位名称" ,ADOXType.String, 50)

.AddColumn("单位编码" ,ADOXType.String, 20)

.AddColumn("业务口令" ,ADOXType.String, 20)

' .AddColumn("地址" ,ADOXType.String, 50)

' .AddColumn("业务类型" ,ADOXType.String, 8)

' .AddColumn("占用费率" ,ADOXType.Double)

' .AddColumn("业务日期" ,ADOXType.DateTime)

' .AddColumn("密码" ,ADOXType.String, 20)

' .AddColumn("身份证号" ,ADOXType.String, 20)

End With

Builder.AddTable(tbl,True, True) '增加表

Builder.Close()

Syscmd.Project.Exit()

2楼

有点蓝 发表于：2023/9/12 16:25:00

如果没有加载的表，参考：http://www.foxtable.com/webhelp/topics/1943.htm

如果已经加载的表：http://www.foxtable.com/webhelp/topics/0365.htm

3楼

huaziqiao1976 发表于：2023/9/12 16:37:00

是不是这样？

Dim lst As List(Of String)
lst = Connections("GJ").GetTableNames
For Each nm As String In lst
if nm ="创建单位" then

return

else