主题：菜单添加中出现的新问题

 呃，楼主，你把菜单的实践演练看一下，看看是否有什么启示。

 看完先自己做一下，遇到问题再提问 http://www.foxtable.com/help/topics/1131.htm

 第一个问题这样写

Dim dr As DataRow = DataTables("数据字典").Find("单位代码='" & e.ComboBox.Text & "'")
If dr IsNot Nothing Then
    Dim r As Row = Tables("当前单位").Current
    r("区域")=dr("区域")
    r("单位名称")=dr("单位名称")
    r("单位代码")=dr("单位代码")
    Dim mc As RibbonMenu.ComboBox = RibbonTabs("更改单位").Groups("单位名称或代码").Items("单位名称")
    mc.Text = dr("单位名称")
End If

 第二个问题，菜单那里无法使用目录树。