With Tables("产品")
    If .Current Is Nothing Then
        Tables("订单").Filter = "False"
    Else
        Tables("订单").Filter = "产品编号 = " & .Current("产品编号")
    End IF
End With

4、关闭窗口设计器，回到产品表，打开表属性设置窗口，将其CurrentChanged事件设为：

If Forms("窗口1").Opened Then
    If e.Table.Current Is Nothing Then
        Tables("订单").Filter = "False"
    Else
        Tables("订单").Filter = "产品编号 = " & e.Table.Current("产品编号")
    End IF
End If

5、现在我们打开窗口1，可以看到在产品表选择一个产品，窗口1中的Table能够自动列出该产品的订单。
此方案实际上是直接将订单表，也就是Tables("订单")插入到产品表的窗口1中，然后在产品表中选择不同的产品时，动态修改订Tables("订单")的Filter属性，使得Tables("订单")只显示选定产品的订单。
因为直接用Tables("订单")来模拟实现关联表Tables("产品.订单")，所以我们可以直接在产品表中调用订单表的原窗口来输入数据；我们已经在订单表设计了一个窗口，名为"订单编辑"，你可以在窗口1中选择一个订单，然后单击按钮“编辑订单”，即可编辑此选定的订单。

6、到目前为止，还有一个不足，就是选择窗口1的Table，然后增加一个订单，不能象关联表一样，新增行自动输入产品编号。
要做到这一点很简单，选择订单表，将其DataRowAdding事件的代码设为：

If MainTable.Name = "产品" Then
    e.DataRow("产品编号") = MainTable.Current("产品编号")
End If

这样在窗口1中新增一个订单时，能够自动输入订单编号。

7、最后我们希望订单表能够自动调用产品表的单价，为此将订单表的DataColChanged事件设为：

If e.DataCol.Name = "产品编号" Then
    Dim dr As DataRow = DataTables("产品").Find("产品编号 = " & e.DataRow("产品编号"))
    If dr IsNot nothing Then
        e.DataRow("单价") = dr("单价")
    End If
End If

经过上述设置，窗口1中的Table控件，表现得完全就像一个关联表。

这个方案有一个不足：当我们将主表切换到订单表的时候，你会发现，什么也看不到，因为Tables("订单")被挪到产品表的窗口1了。
当然我们可以通过MainTableChanged事件，实现相关窗口的自动关闭和打开，来解决这个问题。
但是这样还是有不足，至少维护起来较为苦难，而且切换主表的时候，屏幕闪烁也是一个难题，所以接下来我们看看方案二。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:关联的替代.table