请教：关于窗体问题

alittle

在一个窗体中打开另一个窗体时只显示相对应的记录，并且只能显示和操作该记录。它们之间只有自动编号来连接，是一对一的关系。请教斑主和各大侠，应该怎么做？谢谢各位！

hi-wzj

openform的语句中有where的区段，自己看帮助。

方漠

当在“供应商”窗体的记录中移动时，也许想要查看每个供应商在“产品”窗体中供应的产品。在“供应商”窗体的 Form_Current 事件过程中，设置“产品”窗体的 FilterOn 和 Filter 属性：

Private Sub Form_Current()

' Declare and set a variable to store the WHERE
' clause that describes the records you want to
' display.
Dim strCond As String
strCond = "SupplierID = Forms!Suppliers!SupplierID"

' Use the IsLoaded function from the Northwind
' sample database to check whether the Products
' form is open, then set the properties.
If IsLoaded("roducts") Then
Forms![Products].FilterOn = True
Forms![Products].Filter = strCond
End If

End Sub