用下面的代码在外部源access生成了一个新表
Dim Builder As New ADOXBuilder("我的外部源") '指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("htg695") '创建表 表名前加上
With tbl
.AddColumn("产品" ,ADOXType.String, 12)
.AddColumn("客户" ,ADOXType.String, 20)
.AddColumn("数量" ,ADOXType.Integer)
.AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl,True, True) '增加表
Builder.Close()
再用下面的代码判断是否存在这个表，结果是未找到
If DataTables.Contains("htg695") '如果存在统计表
MessageBox.Show("htg695表已经存在")
End If
但是用系统菜单生成的表,用上面这段代码却能找到，实在搞不懂了，老师指点一下吧
如果直接用代码删除这个表htg695，则提示 ：不存在名称为"htg695"的DataTable
[此贴子已经被作者于2015/4/6 12:33:21编辑过]
加好友 
发短信
Post By：2015/4/6 12:24:00 [只看该作者]
