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需要的数据，还有就是这个循环 有没有其他更有效率的写法，怎么写
加好友 
发短信
Post By：2020/1/15 9:37:00 [只看该作者]
