Dim i As String = e.Form.Controls("ComboBox1").value '定义一个组合框,以供在窗口显示表用 If i IsNot Nothing Then Dim r As Row = Tables(i).Rows(Tables(i).Rows.Count-1) Tables("窗口1_Table1").DataSource = DataTables(i) Tables("窗口1_Table1").Filter = "[_Identify] = " & r("_Identify") End If