该项目中有好几个数据表,名字叫"套装a","套装b","套装c","套装d"等,我希望达到效果是属于经理组的用户刚刚打开的时候不加载这些表,这样运行速度可以快一点,然后在菜单里设好的文本框输入套装名,按下按钮,就会加载相应的数据表
我先在BeforeLoadInnerTable事件里面写代码如下
If e.DataTableName.StartsWith("套装")
e.Cancel = (e.User.Group="经理")
End
If
然后在菜单设计器里面添加了一个文本框,名称"inputtablename"
一个标准按钮,名称"Load"
按钮的click事件代码如下:
Dim Setname As String= RibbonTabs("Table").Groups("统计").Items("加载套装表").Items("inputtablename").text
Dim
dt As DataTable=DataTables("套装" & Setname)
If
dt IsNot Nothing Then
dt.Load()
Else
MessageBox.Show(
"系统中无此套装!")
End
If
测试后先出来一个对话框(不是我预先设置的)
此主题相关图片如下:1.jpg
然后再出来一个对话框(是我预先设置的)
此主题相关图片如下:2.jpg