1、新增的窗口;
2、打开后肯定在第一条位置;
3、合同一览表currentChanged事件
If Forms("合同一览窗口").Opened Then
If e.Table.current IsNot Nothing
Forms("合同一览窗口").Controls("Table2").Table.Filter = "合同编号 = '" & e.Table.current("合同编号") & "'"
Else
Forms("合同一览窗口").Controls("Table2").Table.Filter = "1=2"
End If
End If
[此贴子已经被作者于2015/9/14 17:48:01编辑过]