- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 无法删除表格？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128885)
-- 发布时间：2018/12/17 15:06:00
-- 无法删除表格？
老师，您帮忙看看怎么回事，我尝试删除表格、创建表格。我将帮助中的代码粘贴到命令窗口，无法删除表格
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
.DeleteTable("表c")
End With
Builder.Close()
messagebox.show (1)
Dim Builder1 As New ADOXBuilder
Dim tbl As ADOXTable
Dim i As Integer
Builder1.Open()
tbl = Builder1.NewTable("Excel123") \'创建表
With tbl
For i =1 To 15
.AddColumn("列" & i ,ADOXType.String, 250)
Next
End With
Builder1.AddTable(tbl) \'增加表
Builder1.Close()
此主题相关图片如下：捕获.png
之后我新增一个表，名为表a，将上述代码的表c改为表a后，可以执行到 messagebox.show (1)，但是，表a并没有删除，而新表也没有增加。（手工删除表a，给出提示：表a不存在或已经删除）。之后在命令窗口load Excel123，表格Excel123显示出来了。我估计，出现上述错误的原因是要删除的表已经不存在了，但还在界面上显示存在；增加新表后，没有及时在界面上显示，需要加载才能显示。是不是datatable与table不同步？如果真是这样，如何刷新界面？
请老师指点！谢谢！
-- 发布时间：2018/12/17 16:08:00
--
Dim Builder As New ADOXBuilder
Builder.Open()
With Builder
.DeleteTable("表c")
End With
Builder.Close()
DataTables.Unload("表C")
messagebox.show (1)
Dim Builder1 As New ADOXBuilder
Dim tbl As ADOXTable
Dim i As Integer
Builder1.Open()
tbl = Builder1.NewTable("Excel123") \'创建表
With tbl
For i =1 To 15
.AddColumn("列" & i ,ADOXType.String, 250)
Next
End With
Builder1.AddTable(tbl) \'增加表
Builder1.Close()
DataTables.load("Excel123")