主题：[求助]关于列表项目（已解决）

一段代码可以生成菜单的列表项目。如何修改代码，来实现项目的表名和列名的列表项目，请各位老师指教，谢谢！！

菜单的列表项目代码：表PrepareEdit事件

Dim s,s1,s2,q As String
s1 = CurrentTable.Current("功能区")
s2 = CurrentTable.Current("功能组")
If e.Col.Name = "功能区" Then
    For Each r As RibbonMenu.Tab In RibbonTabs
        s = s + "|" + r.Name
    Next
    Tables("菜单授权").Cols("功能区").ComboList = s
ElseIf e.Col.Name = "功能组" AndAlso s1 <> "" Then
    For Each g As RibbonMenu.Group In RibbonTabs(s1).Groups
        q = q + "|" + g.Name
    Next
    Tables("菜单授权").Cols("功能组").ComboList = q
ElseIf e.Col.Name = "控件" AndAlso s1 <> "" AndAlso s2 <> "" Then
    For Each g As RibbonMenu.RibbonItem In RibbonTabs(s1).Groups(s2).Items
        q = q + "|" + g.Name
    Next
    Tables("菜单授权").Cols("控件").ComboList = q
End If