以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口表的行事件和列事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107355)
--  作者：jyh7081
--  发布时间：2017/9/26 16:24:00
--  [求助]窗口表的行事件和列事件
我在窗口表设置了行事件，用以打开右边不同的页签；同时，我想当点击表格最后一列时，打开最右边的页签，见图： 

  

CurrentChanged事件代码：

If e.Table.Current Is Nothing Then Return

If e.Table.Current("审判程序") = "一审" Then

    Forms("送达管理").Controls("TabControl1").SelectedPage = Forms("送达管理").Controls("TabControl1").TabPages("一审")

ElseIf e.Table.Current("审判程序") = "二审" Then

    Forms("送达管理").Controls("TabControl1").SelectedPage = Forms("送达管理").Controls("TabControl1").TabPages("二审")

Else       \'If e.Table.Current("审判程序") = "行审" Then

    Forms("送达管理").Controls("TabControl1").SelectedPage = Forms("送达管理").Controls("TabControl1").TabPages("行审")

End If


这段代码怎么用：

If e.Col.Name = "信件信息" Then

    Forms("送达管理").Controls("TabControl1").SelectedPage = Forms("送达管理").Controls("TabControl1").TabPages("信件信息")

End If


图片点击可在新窗口打开查看此主题相关图片如下：截屏图片.jpg
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2017/9/26 18:06:00
--  

你可以编写click事件

 

If e.Col.Name = "信件信息" Then

    Forms("送达管理").Controls("TabControl1").SelectedPage = Forms("送达管理").Controls("TabControl1").TabPages("信件信息")

End If
--  作者：jyh7081
--  发布时间：2017/9/26 18:28:00
--  
我是这么做的，没反应，才来请教的。
我感觉代码有冲突，因为点击最后一列时，同时触发了两个事件。
但自己改不了。
--  作者：有点甜
--  发布时间：2017/9/26 18:39:00
--  

currentChanged事件

 

If e.Table.Current Is Nothing Then Return

If e.Table.cols(e.table.colsel).name = "信件信息" Then Return