GlobalVariableChanged事件可参考下面的代码:
If e.Name = "mtb" Then ‘var变量名
If Forms("主窗口").Opened Then
Dim btn As WinForm.Button = Forms("主窗口").Controls("加载") '动态加载"主窗口_Table1"的按扭,设为不可见
btn.PerformClick
If Vars("mtb") > "" Then
Dim tbl As WinForm.Table = Forms("共有窗口").Controls("Table1")
Dim tb As Table = tbl.Table ‘代替父表,设为不可见
Dim cmd As new SQLCommand
cmd.ConnectionName = "数据库名称"
cmd.CommandText = "Select DISTINCT 关联ID From {" & Vars("mtb") & "} order by 关联ID"
dim dtb as datatable = cmd.ExecuteReader
tb.DataSource = dtb
End If
End If
If Forms("共有窗口").Opened Then
Dim btn As WinForm.Button = Forms("共有窗口").Controls("加载")
btn.PerformClick
End If
End If
[此贴子已经被作者于2013-3-3 22:35:05编辑过]