以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]关于按表列行内容及当前页面集合执行指定控件代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157463)
--  作者：工匠
--  发布时间：2020/10/16 17:25:00
--  [讨论]关于按表列行内容及当前页面集合执行指定控件代码
老师好：
请帮看看这种需求，在PositionChanged里写什么代码实现

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:页面集合.table




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


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

谢谢！


[此贴子已经被作者于2020/10/16 17:29:31编辑过]
--  作者：有点蓝
--  发布时间：2020/10/16 17:32:00
--  
currentchanged事件

if e.table.current is nothing then return

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

if tab.SelectedIndex = 0 then
if e.table.current("第一列") = "张三"
e.Form.Controls("Button1").PerformClick()
elseif e.table.current("第一列") = "李四"
e.Form.Controls("Button2").PerformClick()
end if
elseif tab.SelectedIndex = 1 then
if e.table.current("第一列") = "张三"
e.Form.Controls("Button3").PerformClick()
elseif e.table.current("第一列") = "李四"
e.Form.Controls("Button4").PerformClick()
end if
end if