在afterclose中添加卸载外部表的代码无效 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在afterclose中添加卸载外部表的代码无效

共有1776人关注过本帖树形打印复制链接主题：在afterclose中添加卸载外部表的代码无效

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/11 12:06:00 [显示全部帖子]

无效指什么？报什么错吗？代码触发了没有？

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/11 12:21:00 [显示全部帖子]

AfterClose事件，看是否弹出msgbox

msgbox(1)

If DataTables.Contains("产品") Then

msgbox(2)
DataTables.Unload("产品|订单")
End If

msgbox(DataTables.Contains("产品"))

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/12 10:11:00 [显示全部帖子]

测试，没你说的问题，请做具体实例发上来。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/12 13:28:00 [显示全部帖子]

重命名为表名为 aaa、bbb，可以删除。应该是表名有冲突。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/12 14:36:00 [显示全部帖子]

以下是引用实话实说在2017/9/12 13:44:00的发言：
我来问个问题:If DataTables.Contains("产品") Then 这代码只要包含有"产品"字的表就会出错,比如产品甲,产品乙等。有没有关键词代替Contains来唯一判断表

没有你说的问题，DataTAbles.Contains判断的就是完整的表名，不是模糊匹配的。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/12 14:41:00 [显示全部帖子]

回复7楼。代码改成（注意大小写敏感）

DataTables.unload("g_Stock|g_StockDetail")

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/9/13 9:47:00 [显示全部帖子]

以下是引用实话实说在2017/9/13 9:17:00的发言：

我在设置角色权限的时候设置了一个"临时管理员"，只有部分权限，用了If _UserRole.Contains("临时管理员") Then 后与管理员的权限（全部权限）一样

你应该写有 If _UserRole.Contains("管理员") Then 这样的代码。

要改一改

Dim ary() As String = _UserRole.split(",")

If array.IndexOf(ary, "管理员") >= 0 Then

[此贴子已经被作者于2017/9/13 9:47:26编辑过]

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

主题：在afterclose中添加卸载外部表的代码无效