在全局表事件中排除窗口副表代码没有作用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在全局表事件中排除窗口副表代码没有作用

共有2189人关注过本帖树形打印复制链接主题：在全局表事件中排除窗口副表代码没有作用

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

在全局表事件中排除窗口副表代码没有作用 发帖心情

Post By：2019/3/6 12:45:00 [只看该作者]

在全局表CurrentChanged事件中排除窗口副表代码没有作用：

如何排除窗口副表名称？

If CurrentTable.Name <> "合同管理台帐_Table5" OrElse CurrentTable.Name <> "合同管理台帐_Table1" OrElse CurrentTable.Name <> "投标资料台帐_Table1" Then '因为与合同管理台帐有冲突,所以加了这

If e.Table.Current Is Nothing Then '如果Current为Nothing

Return

Else

Dim dr As DataRow = e.Table.Current.DataRow

Dim t As Table = Tables(e.Table.DataTable.name)

Dim wz As Integer = t.FindRow(dr)

If wz >= 0 Then

Systemready = False

t.Position = wz

Systemready = True

End If

[此贴子已经被作者于2019/3/6 14:23:40编辑过]

y2287958

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

加好友

发短信

等级：狐神帖子：4752 积分：34568 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2019/3/6 14:28:00 [只看该作者]

试试这样

If (CurrentTable.Name <> "合同管理台帐_Table5" OrElse CurrentTable.Name <> "合同管理台帐_Table1") AndAlso CurrentTable.Name <> "投标资料台帐_Table1" Then '因为与合同管理台帐有冲突,所以加了这

ZJZK2018

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

加好友

发短信

等级：三尾狐帖子：767 积分：6119 威望：0 精华：0 注册：2018/2/1 17:26:00

Post By：2019/3/6 14:37:00 [只看该作者]

不行，我的需求是：要排除这三个窗口副表名称，“合同管理台帐_Table5”，“合同管理台帐_Table1”，“投标资料台帐_Table1”

有点甜

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

加好友

发短信

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

Post By：2019/3/6 14:38:00 [只看该作者]

1、CurrentTable 改成 e.table

2、

If e.table.Name <> "合同管理台帐_Table5" andalso e.table.Name <> "合同管理台帐_Table1" andalso e.table.Name <> "投标资料台帐_Table1" Then

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

主题：在全局表事件中排除窗口副表代码没有作用