主题：在窗口中的关联表能用CurrentChanged吗？

在窗口中的关联表能用CurrentChanged吗？窗口中的关联表又不能作为副本（昨天受BIN和狐爸启发写下以下代码，又发现如果不能作为副本的话又不能用）

If Forms("领料单").Opened Then '如果窗口已经打开
Dim tbl As Table = Tables("领料单_Table2")  '为下图中“相关信息”中的“仓库物料表_主表”

Dim dr As DataRow = DataTables("仓库物料表_主表").Find("料号 = '" &  e.Table.Current("料号") & "'")
If dr Is Nothing Then
    tbl.Filter = "" '显示所有客户
Else
    tbl.Filter = "相同代码 = '" & dr("相同代码") & "'"
End If
End If

本想写在“领料单_明细”表中CurrentChanged的，但会出错，窗口中的table又不能作为副本！

此主题相关图片如下：领料单.jpg