以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [原创]同步加载子表，有3个关联项怎么办？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22604)
--  作者：kunge
--  发布时间：2012/8/18 12:14:00
--  [原创]同步加载子表，有3个关联项怎么办？
我的订单表，和订单详情表，有3项关联起来的，

If DataTables("订单").DataRows.Count = 0 Then \'如果订单表没有数据
    DataTables("订单明细").LoadFilter = "订单ID Is Null" \'不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("订单").DataRows
        ids = ids & "," & dr("订单ID")
    Next
    ids= ids.Trim(",")
    DataTables("订单明细").LoadFilter = "订单ID In (" & ids & ")"
End If
DataTables("订单明细").Load()



帮助文件中的订单ID,不是唯一的，怎么联动加载啊
--  作者：kunge
--  发布时间：2012/8/18 17:04:00
--  
  我的订单表没有订单ID列，是通过3列，日期，客户名，供应商，3列建立的关联，如果按照帮助文件，说的，需要3项，如果，订单详情的，日期在ids中，and 客户名在bds中，and供应商在cds中，这个条件会扩大加载范围的，就像有3个集合，里面的元素随意组合，是会扩大范围的
--  作者：kunge
--  发布时间：2012/8/18 17:08:00
--  
需要判断3项同时相同才行，加载条件是i不是很复杂啊？实在不行，只能加一列了
--  作者：czy
--  发布时间：2012/8/18 20:21:00
--  
应该复杂不到哪去，先组合成表达式字符串，然后执行就好了。