主题：表名自动收集问题

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