该项目中有好几个数据表,名字叫"套装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
加好友 
发短信
Post By：2013/5/10 14:56:00 [显示全部帖子]
