主题：[求助]关于页面合集的事件

回复1楼。

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

If tab.SelectedPage.Text = "Page2" Then
    Dim dt1 As DataTable
    dt1 = e.Form.controls("table数据").Table.DataTable
    dt1.LoadFilter = "code='" & e.Row("code") & "'"
    dt1.Load
ElseIf tab.SelectedPage.Text = "page1" Then
    Dim dt2 As DataTable
    dt2 = e.Form.controls("table1").Table.DataTable
    dt2.LoadFilter = "code='" & e.Row("code") & "'"
    dt2.Load
End If