主题：[求助]窗口动态绑定指定的表

参考代码

Dim bm As String     '获取表名下拉框
Dim obj As object = basemainform.controls("mainpages")
For Each pg As object In obj.tabpages
    If bm ="" Then
        bm = pg.Name
    Else
        bm = bm & "|" & pg.Name
    End If
Next
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = bm

修改一下代码

If Tables.Contains(e.Sender.Text) Then   '该表作为选中表,TextChanged事件
    Dim t As Table = Tables(e.Sender.text)
    If t.Visible Then
        MainTable = t
        t.Focus
    End If
    Tables("窗口1_Table1").DataSource = t
    Tables("窗口1_Table1").SetColVisibleWidth("第一列|90|第二列|120")
End If