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
加好友 
发短信
Post By：2020/10/16 17:32:00 [显示全部帖子]
