以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  加载表a现有的行对应的明细表代码求助~  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=37888)
--  作者：temblar
--  发布时间：2013/7/14 11:06:00
--  加载表a现有的行对应的明细表代码求助~

采购单表有条件加载后，要加载采购单明细表。采购单明细表 只加载 采购单 里的现有行对应的明细，我的代码见灰色部分，有没有更简单的办法？我怕数据多了这种方式会很慢。

 

\'采购单加载
DataTables("采购单").LoadFilter = "del = 1 and ([实际总价] > [已通知金额] or (Select count(*) from{采购订单} where del = 1 And 发货 = 0 And {采购订单}.采购订单编号 = {采购单}.编号) > 0 Or [已通知金额] Is null)"
DataTables("采购单").load


\'采购订单明细加载
Dim jz As String
For Each jr As DataRow In DataTables("采购单").DataRows
    jz = jz & "," & jr("编号")
Next
DataTables("采购订单明细").LoadFilter = "del = 1 and 采购订单编号 in (" & jz.trim(",") & ")"
DataTables("采购订单明细").load
--  作者：lsy
--  发布时间：2013/7/14 13:03:00
--  

也许有，比你这更高效的，但我没发现。