主题：[求助]有请Bin,组合框怎样获取所有表名

组合框ComboBox3获取所有表名,

ComboBox4获取ComboBox3选中表的列名

蓝色部分不会写,请指教

Dim s As String
For Each dt As DataTable In DataTables
    If dt.Name <> "授权表" Then
        s = s & "|" & dt.Name
    End If
Next
e.Form.Controls("ComboBox3").ComboList = s

Dim rstr As String
For Each c As Col In Tables("s").Cols
    rstr = rstr & c.Name & "|"
Next
rstr =rstr.Trim("|")

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox4")
cmb.ComboList = rstr'