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("可调入仓库")这个列的数据，要怎么变成下拉列表
加好友 
发短信
Post By：2019/11/24 23:02:00 [只看该作者]
