| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]动态增加表名 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=188289) |
| -- 作者：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()
|
| -- 作者：有点蓝 -- 发布时间：2023/9/12 16:25:00 -- 如果没有加载的表，参考：http://www.foxtable.com/webhelp/topics/1943.htm |
| -- 作者：huaziqiao1976 -- 发布时间：2023/9/12 16:37:00 -- 是不是这样？ lst = Connections("GJ").GetTableNames For Each nm As String In lst if nm ="创建单位" then return else 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() endif Next |
| -- 作者：有点蓝 -- 发布时间：2023/9/12 16:43:00 -- Dim lst As List(Of String) lst = Connections("GJ").GetTableNames if lst .contains("创建单位") then http://www.foxtable.com/webhelp/topics/0217.htm return else
[此贴子已经被作者于2023/9/12 16:42:45编辑过]
|