以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]当前行联动页签事件代码没反应  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106727)

--  作者:jyh7081
--  发布时间:2017/9/14 16:51:00
--  [求助]当前行联动页签事件代码没反应

窗口表的Current事件,根据当前行[审判程序]值不同,打开不同页签,但没反应:

 

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("二审")

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

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

End If


--  作者:有点甜
--  发布时间:2017/9/14 18:26:00
--  

加入msgbox代码,看弹出什么

 

msgbox(e.Table.Current("审判程序"))

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

 

 


--  作者:jyh7081
--  发布时间:2017/9/14 21:03:00
--  

第一个显示当前行的列值;第二个显示true或false。


图片点击可在新窗口打开查看此主题相关图片如下:截屏图片.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2017/9/14 21:12:00
--  
 做个例子发上来。
--  作者:jyh7081
--  发布时间:2017/9/14 21:39:00
--  
是开发板的:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:事务管理-开发版.foxdb


--  作者:有点甜
--  发布时间:2017/9/14 21:45:00
--  

设置tabpage的名称

 

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20170914214334.png
图片点击可在新窗口打开查看