这段关联加载的代码要怎么修改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这段关联加载的代码要怎么修改？

共有9835人关注过本帖树形打印复制链接主题：这段关联加载的代码要怎么修改？

litiemiao

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00

这段关联加载的代码要怎么修改？ 发帖心情

Post By：2012/12/16 22:11:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：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

sloyy

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2012/12/17 0:58:00 [只看该作者]

最简单的办法用关联表

lin_hailun

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/12/17 9:30:00 [只看该作者]

代码没有写错，没看懂楼主的意思。

litiemiao

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00

Post By：2012/12/17 23:54:00 [只看该作者]

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

litiemiao

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00

Post By：2012/12/17 23:54:00 [只看该作者]

以下是引用lin_hailun在2012-12-17 9:30:00的发言：
代码没有写错，没看懂楼主的意思。

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

muhua	小大 6楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/12/18 8:28:00 [只看该作者] 用户已被锁定

狐狸爸爸

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/12/18 8:33:00 [只看该作者]

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
    Tables("工序_Table1").DataTable.loadFilter = "合同号 In (" & ids & ") And And 加工工序 = '大锯' And 是否完成 = 0 And 产品名称 = '烤漆橱柜' "
    Tables("工序_Table1").DataTable.load
End If

litiemiao

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：116 积分：998 威望：0 精华：0 注册：2012/10/11 11:11:00

Post By：2012/12/18 13:18:00 [只看该作者]

以下是引用狐狸爸爸在2012-12-18 8:33:00的发言：
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
    Tables("工序_Table1").DataTable.loadFilter = "合同号 In (" & ids & ") And And 加工工序 = '大锯' And 是否完成 = 0 And 产品名称 = '烤漆橱柜' "
    Tables("工序_Table1").DataTable.load
End If

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