主题：[求助]关于刷新菜单组合框的列表项目

一段代码，用于加载菜单组合框的列表项目；放在菜单的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

LoadUserSetting就是切换用户的时候执行，除非你你使用的是自定义用户管理。