以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  combolist  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145290)
--  作者：zaq3574020
--  发布时间：2020/1/15 9:37:00
--  combolist
For Each drs As DataRow In DataTables("滞销品调度").Select(Filter)
    For Each ck As String In DataTables("销售款号统计").GetValues("仓库","款号=\'" & drs("款号") & "\' And 花色码=\'" & drs("花色码") & "\' and 尺码码 = \'" & drs("尺码码") & "\'","数量 desc")
        If DataTables("销售统计").Find("仓库=\'"& ck &"\'") IsNot Nothing Then
            If DataTables("库存表").Compute("sum(数量)","款号=\'" & drs("款号") & "\' And 花色=\'" & drs("花色") & "\' and 尺码 = \'" & drs("尺码") & "\' and 仓库=\'" & ck & "\'") <= 0 Then
                drs("可调入仓库")=drs("可调入仓库") & "|" & ck
            End If
        End If
    Next   
Next

drs("可调入仓库")=drs("可调入仓库") & "|" & ck 有没有办法变成下拉列表combolist需要的数据，还有就是这个循环 有没有其他更有效率的写法，怎么写
--  作者：有点蓝
--  发布时间：2020/1/15 9:47:00
--  
直接赋值给combolist就可以了。

这里关联了好几个表，要有效率一点可以使用sql处理。