CurrentChanged 事件
If Forms("窗口1").Opened Then
If e.Table.Current IsNot Nothing Then
If e.Table.Current("第一列")>""
Tables("窗口1_table1").DataSource =DataTables(e.Table.Current("第一列"))
End If