Dim i As String = e.Form.Controls("ComboBox1").value '定义一个组合框,以供在窗口显示表用 If i = "表A" Then '如果组合框显示为"表A" Tables("窗口1_Table1").DataSource = DataTables("表A") '主窗口则显示表A Else If i = "表B" Then Tables("窗口1_Table1").DataSource = DataTables("表B") '主窗口则显示表A Else If i = "表C" Then Tables("窗口1_Table1").DataSource = DataTables ("表C") '主窗口则显示表A End If With Tables("窗口1_Table1") .Filter = "[_Identify] = " & .Rows(.Rows.Count -1)("_Identify") End With
|