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

用窗口中的组合框选定当前表，表控件动态显示当前表的指定列，帮忙看看哪里不对？

1、'窗口的afterload事件
Dim bm As String     '获取表名下拉框
For Each dt As DataTable In DataTables
    If bm ="" Then
        bm = dt.Name
    Else
        bm = bm & "|" & dt.Name
    End If
Next
Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox1")
cmb.ComboList = bm

---------------------------------

2、'组合框的TextChanged事件
If Tables.Contains(e.Sender.Text) Then   '该表作为选中表
    Dim t As Table = Tables(e.Sender.text)
    MainTable = t
    t.Focus
    Tables("窗口1_Table1").DataSource = t

    Tables("窗口1_Table1").SetColVisibleWidth("第一列|90|第二列|120")
End If

此主题相关图片如下：gif.gif

附件：

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

点击浏览该文件:动态绑定表.table

参考代码

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