在 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()
加好友 
发短信
Post By：2023/9/12 16:22:00 [只看该作者]
