主题：页面集合问题

请问，我想在页面集合的不同页面放同一个表的不同视图，而且每个页面还有其他控件，请问应该怎么处理。

窗口为独立窗口。
要求：一。Table1，加载表A视图1按窗口控件"图号"(随光标选择主表不同行而图号不同)筛选出"班组"列="车床组"的行。（第1页面，页面名=车床组）
        二。Table2，加载表A视图2按窗口控件"图号"(随光标选择主表不同行而图号不同)筛选出"班组"列="铣床组"的行。（第2页面，页面名=铣床组）
问题：1.加载窗口AfterLoad事件代码应怎么写。
         2.窗口控件"图号"的TextChanged事件代码应怎么写。

加载表和表视图已搞定：
Tables("窗口1_Table1").DataSource = DataTables("表A")
Tables("窗口1_Table2").DataSource = DataTables("表A")
Tables("窗口1_Table1").OpenView("1")
Tables("窗口1_Table2").OpenView("2")
就差筛选了

一个页面的筛选搞定：
Dim Filter As String
With e.Form.Controls("图号")
    If .Value IsNot Nothing Then
        Filter = Filter & "图号 = '" & .Value & "' and  班组 =  '车床组' "
    End If
End With
If Filter > "" Then
    Tables("窗口1_Table1").Filter = Filter
End If
第二个筛选应该怎么写代码，是否要用多个控件去绑定同一个列