主题：表名自动收集问题

请问，我的项目中有三十多个表，如何实现在授权表的表名列中自动列出这些表名供选择输入呢。

prepareEdit事件

If e.Col.Name = "bm"Then   
    Dim s As String = ""
    For Each t As Table In Tables
        s = s & "|" & t.name
    Next
    e.Col.ComboList = s   
End If