AddColumn 错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → AddColumn 错误

共有2952人关注过本帖树形打印复制链接主题：AddColumn 错误

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

AddColumn 错误 发帖心情

Post By：2021/2/23 22:14:00 [只看该作者]

---------------------------

错误

---------------------------

编译错误:“AddColumn”不是“DataTable”的成员。

错误代码：.AddColumn("sys_日期" ,ADOXType.DateTime)

---------------------------

确定

---------------------------

此主题相关图片如下：企业微信截图_20210223221553.png

If dt.datacols.contains("sys_日期") Then

Else

With dt

.AddColumn("sys_日期" ,ADOXType.DateTime)

.AddColumn("sys_姓名" ,ADOXType.String, 5) '增加字符型列,长度指定为12

.AddColumn("部门" ,ADOXType.String, 10)

End With

End If

[此贴子已经被作者于2021/2/23 22:15:00编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/23 22:50:00 [只看该作者]

表格没有AddColumn这种用法，如果要添加临时列参考：http://www.foxtable.com/webhelp/topics/1428.htm

如果要添加永久列，参考：http://www.foxtable.com/webhelp/topics/2122.htm

yifan3429

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2021/2/24 23:37:00 [只看该作者]

---------------------------

错误

---------------------------

编译错误:“dt”不是“ADOXBuilder”的成员。

错误代码：With Builder.dt

---------------------------

确定

---------------------------

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

For Each nm As String In Connections("city").GetTableNames

cmd.CommandText = "SELE CT * Fr om " & nm & " where false"

dt = cmd.ExecuteReader()

If dt.datacols.contains("sys_日期") Then

Else

Dim Builder As New ADOXBuilder

Builder.Open() '打开ADOXBuilder

With Builder.dt

dt.AddColumn("sys_日期" ,ADOXType.DateTime)

dt.AddColumn("sys_姓名" ,ADOXType.String, 5) '增加字符型列,长度指定为12

dt.AddColumn("部门" ,ADOXType.String, 10)

End With

End If

Builder.Close() '关闭ADOXBuilder

MessageBox.Show("city字段检索并填完成添加完成 ","提示")

[此贴子已经被作者于2021/2/24 23:37:35编辑过]

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

MessageBox.Show("city字段检索并填完成添加完成 ","提示")

yifan3429

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2021/2/25 16:18:00 [只看该作者]

---------------------------

版本:2020.5.29.8

---------------------------

代码执行出错，错误信息：

System.NullReferenceException: 未将对象引用设置到对象的实例。

在 UserCode.Test()

---------------------------

确定

---------------------------

此主题相关图片如下：企业微信截图_20210223221553.png

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/25 16:29:00 [只看该作者]

去掉单引号，不要画蛇添足

cmd.CommandText = "SELECT * From " & nm & " where false"

yifan3429

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2021/2/26 22:24:00 [只看该作者]

还是会有报错

此主题相关图片如下：企业微信截图_20210223221553.png

有点蓝

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111407 积分：567105 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/2/27 9:15:00 [只看该作者]

如果是SqlServer

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

下一主题 >> << 上一主题

主题：AddColumn 错误