Foxtable(狐表)用户栏目专家坐堂 → [求助]动态增加表名


  共有3592人关注过本帖树形打印复制链接

主题:[求助]动态增加表名

帅哥哟,离线,有人找我吗?
huaziqiao1976
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:137 积分:1175 威望:0 精华:0 注册:2020/9/28 9:41:00
[求助]动态增加表名  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/9/12 16:25:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
huaziqiao1976
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:137 积分:1175 威望:0 精华:0 注册:2020/9/28 9:41:00
  发帖心情 Post By: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
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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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编辑过]

 回到顶部