主题：这段关联加载的代码要怎么修改？

此主题相关图片如下：1.jpg

Dim ids As String
If Tables("工序_Table2").DataTable.DataRows.Count = 0 Then '如果订单表没有数据
    Tables("工序_Table1").DataTable.loadFilter = "合同号 Is Null" '不加载订单明细
Else
    For Each dr As DataRow In Tables("工序_Table2").DataTable.DataRows
        If ids="" Then
            ids="'" & dr("合同号") & "'"
        Else
            ids=ids & ",'" & dr("合同号") & "'"
        End If
    Next
    ids="(" & ids & ") And 加工工序 ='大锯' And 是否完成 = 0 "
    Tables("工序_Table1").DataTable.loadFilter = "合同号 In " & ids
    Tables("工序_Table1").DataTable.load
End If

这段代码要怎么改 才可以保持这个不变的情况下  让工序_table2指加载 产品名称=烤漆橱柜的 订单呢  图片中 上半部分是 tale2  下半部分是 table2

看见那个产品名称列了吗  我想只加载 烤漆橱柜 其他 吸塑 箱体不加载 要怎么改呢

看见那个产品名称列了吗  我想只加载 烤漆橱柜 其他 吸塑 箱体不加载 要怎么改呢

狐狸爸爸 您这个更改的是 工序_table1 那个是截图中下半部分的 代码  我想更改的是 上半部分 就是工序_table2的 请问该如何弄呢

谢谢 狐狸爸爸 我按照您修改的代码 我找到了问题的所在 问题已经解决了 谢谢您 还有个问题问问您，狐表可以配合网站实时查询我的订单进度到哪里了吗 还有狐狸爸爸 我可以吧我的项目上传给您 您给看看我还有那些地方血药完善 或者有什么缺陷吗