以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]动态增加表名  (http://foxtable.net/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
--  
是不是这样?

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

--  作者:有点蓝
--  发布时间: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编辑过]