Foxtable(狐表)用户栏目专家坐堂 → 怎样用代码删除一个指定的表


  共有1895人关注过本帖树形打印复制链接

主题:怎样用代码删除一个指定的表

帅哥哟,离线,有人找我吗?
yellow
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:256 积分:2880 威望:0 精华:0 注册:2014/12/24 9:51:00
怎样用代码删除一个指定的表  发帖心情 Post By:2018/5/3 0:14:00 [只看该作者]

设计的菜单按钮当中有那么一段代码,用于删除名为“临时”的表:

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
yellow
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:256 积分:2880 威望:0 精华:0 注册:2014/12/24 9:51:00
  发帖心情 Post By: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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/3 8:58:00 [只看该作者]

回复1楼,发布后的一些菜单功能、系统命令,是无效的,比如【窗口管理】【新建表】【命令窗口】等等.....

 回到顶部