以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样用代码删除一个指定的表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118442)

--  作者:yellow
--  发布时间:2018/5/3 0:14:00
--  怎样用代码删除一个指定的表
设计的菜单按钮当中有那么一段代码,用于删除名为“临时”的表:

If Tables.Contains("临时") Then
    MainTable = Tables("临时")
    Syscmd.Table.Delete()
End If

设计时运行没问题,但项目发布后这段代码却不起作用,删除不了指定的表。弄了一天也没找到问题所在。

--  作者:yellow
--  发布时间:2018/5/3 0:33:00
--  
真不好意思,原来在论坛里已经有解决方法,之前没找到……

If DataTables.Contains("临时") Then
    Dim Builder As New ADOXBuilder
    Builder.Open()
    With Builder
        .DeleteTable("临时")
    End With
    Builder.Close()
    DataTables.Unload("临时")
End If

至于为什么,我也不清楚。

--  作者:有点甜
--  发布时间:2018/5/3 8:58:00
--  
回复1楼,发布后的一些菜单功能、系统命令,是无效的,比如【窗口管理】【新建表】【命令窗口】等等.....