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

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

 

 

菜单的列表项目代码：表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

上传一个案例。另外，能否生成用户组的列表项目，代码如何写，请各位老师指教，谢谢！！

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

 表名和列名很好弄吧？

 For Each dt As DataTable In DataRows

 Next

 For Each dc As Datarow In DataTables("")

 Next

用户组是 Groups

用户是 Users

谢谢lin_hailun老师的回复，但是学生还是不怎么明白，还请老师指教，谢谢！！

在命令窗口执行：

 

Dim s1 As String
Dim s2 As new List(of String)
Dim s3 As String
For Each u As UserInfo In Users
    s1 = s1 & "|" & u.Name
    If s2.Contains(u.Group) = False Then
        s2.add(u.Group)
        s3 = s3  & "|" & u.Group
    End If
Next
output.show(s1)
output.show(s3)

 

看看执行结果，你就知道了

谢谢有点甜老师的回复，收益匪浅。

 

生成用户组的列表项目成功，代码如下：

 

If e.Col.Name = "用户组" Then
    Dim s As String
    For Each u As UserInfo In Users
        s = s & "|" & u.Name
    Next
    e.Col.ComboList = s
End If

 

生成表名和列名的列表项目成功了一半，表名的列表项目成功，但是如何根据所选的表名生成列名的列表项目，还请各位老师指教，谢谢！！

 

Dim s1,s2,q As String
s2 = CurrentTable.Current("表名")
If e.Col.Name = "表名" Then
    For Each dt As DataTable In DataTables
        s1 = s1 + "|" + dt.Name
    Next
    Tables("表授权").Cols("表名").ComboList = s1
'ElseIf e.Col.Name = "列名" AndAlso s2 <> "" Then
'    For Each g As Col In dt.Cols
'        q = q + "|" + g.Name
'    Next
'    Tables("表授权").Cols("列名").ComboList = q
End If

 改成

 For Each g As Col In Tables(s2).Cols

谢谢lin_hailun老师的回复，问题得到圆满解决，再次衷心感谢lin_hailun老师的热情指教！！