Dim r As Row = Tables("合同管理表").Current

    Dim drs As List(of DataRow) = DataTables("合同明细表").Select("合同编号 = \'" & r("合同编号") & "\'")

    For Each dr As DataRow In drs

        Dim Filter As String = "明细编号 = \'" & dr("明细编号") & "\'"

        If  DataTables("合同操作_table6").Find(Filter) Is Nothing Then \'如果对应的明细没有加载过，合同操作_table6是验收记录表，与合同明细对应。

            DataTables("合同操作_table6").AppendLoad(Filter) \'则追载明细

            MessageBox.Show("开始追载了")

        End If

    Next

所属关系：合同-合同明细-验收记录

我想实现的是：单击某条合同后，打开“合同操作”窗口，里面的表“合同操作_table6”自动显示该合同下的所有验收记录。验收记录是通过明细编号和合同明细对应的。