一段代码，用于加载菜单组合框的列表项目；放在菜单的CurrentTableChanged事件中，每当切换表时，列表项目就会刷新（不希望的效果）；而放在菜单的LoadUserSetting事件中，只有重新打开项目时才能刷新列表项目，不能达到像帮助中所说的切换用户就触发LoadUserSetting事件（希望的效果)。因为系统使用的是“自定义用户与权限管理”登录模块，我想可能与此有关。
请教各位老师，用什么方法，能够实现切换用户就能刷新菜单组合框的列表项目。谢谢！！
Dim cmd1 As New SQLCommand
Dim ct1 As DataTable
cmd1.C '外部数据源
cmd1.CommandText = "SELECT DISTINCT(报表年月) As 报表年月 From {日报源表}"
ct1 = cmd1.ExecuteReader()
Dim vals1() As String = ct1.GetComboListString("报表年月","","报表年月 DESC").Split("|") '倒序
Dim cmb1 As RibbonMenu.ComboBox = RibbonTabs("生产报表").Groups("生产日报").Items("日报年月")
With RibbonTabs("生产报表")("生产日报")("日报年月")
.Items.Clear '清除原有项目
For Each val1 As String In vals1
Dim btn1 As new RibbonMenu.Button(val1)
btn1.text = val1
cmb1.Items.Add(btn1)
Next
.Text= Vals1(0)
End With
加好友 
发短信
Post By：2012/4/29 11:06:00 [显示全部帖子]
