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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这段关联加载的代码要怎么修改？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26889)

--  作者：litiemiao
--  发布时间：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
--  发布时间：2012/12/17 0:58:00
--
最简单的办法用关联表

--  作者：lin_hailun
--  发布时间：2012/12/17 9:30:00
--
代码没有写错，没看懂楼主的意思。

--  作者：litiemiao
--  发布时间：2012/12/17 23:54:00
--
看见那个产品名称列了吗我想只加载烤漆橱柜其他吸塑箱体不加载要怎么改呢

--  作者：litiemiao
--  发布时间：2012/12/17 23:54:00
--

以下是引用lin_hailun在2012-12-17 9:30: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

--  作者：litiemiao
--  发布时间：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的请问该如何弄呢

--  作者：狐狸爸爸
--  发布时间：2012/12/18 13:33:00
--

我被你搞糊涂了，你原来的代码就是这样啊，我帮你修正错误而已。

你要的是什么？你得让别人能理解你的问题，这样才能帮你的。

--  作者：litiemiao
--  发布时间：2012/12/18 15:39:00
--

以下是引用狐狸爸爸在2012-12-18 13:33:00的发言：

我被你搞糊涂了，你原来的代码就是这样啊，我帮你修正错误而已。

你要的是什么？你得让别人能理解你的问题，这样才能帮你的。

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

--  作者：lin_hailun
--  发布时间：2012/12/18 15:47:00
--
可以配合完整实时查询，不过你还需要编写额外的网页代码。