以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  AddColumn 错误  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160846)
--  作者：有点蓝
--  发布时间：2021/2/23 22:50:00
--  
表格没有AddColumn这种用法，如果要添加临时列参考：http://www.foxtable.com/webhelp/topics/1428.htm

如果要添加永久列，参考：http://www.foxtable.com/webhelp/topics/2122.htm
--  作者：有点蓝
--  发布时间：2021/2/25 8:41:00
--  
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
For Each nm As String In Connections("city").GetTableNames
    cmd.CommandText = "SELECT * From " & nm & " where false"
    dt = cmd.ExecuteReader()
    If dt.datacols.contains("sys_日期") = false Then
        
        Dim Builder As New ADOXBuilder("数据源名称")
        Dim tbl As ADOXTable
        Builder.Open()
        tbl = Builder.Tables(nm) 
        With tbl
            .AddColumn("sys_日期" ,ADOXType.DateTime)
            .AddColumn("sys_姓名" ,ADOXType.String, 5) \'增加字符型列,长度指定为12
            .AddColumn("部门" ,ADOXType.String, 10)
        End With
        Builder.Close()
        
    End If
Next
MessageBox.Show("city字段检索并填完成添加完成 ","提示")
--  作者：有点蓝
--  发布时间：2021/2/25 16:29:00
--  
去掉单引号，不要画蛇添足

cmd.CommandText = "SELECT * From " & nm & " where false"
--  作者：有点蓝
--  发布时间：2021/2/27 9:15:00
--  
如果是SqlServer

cmd.CommandText = "SELECT * From " & nm & " where 1=2"