For Each adr As DataRow In DataTables("商品信息").Select("商品代码 is not null")
For Each adc As DataCol In DataTables("商品信息").DataCols
If adc.Name.StartsWith("门店") AndAlso adr.IsNull(adc.Name) = False Then
Dim dm As String = adc.Name.split("_")(1)
Dim bdr As DataRow = DataTables("分货单").Find("商品代码='" & adr("商品代码") & "' And 店名='" & dm & "'")
If bdr Is Nothing Then
bdr = DataTables("分货单").AddNew()
bdr("店名") = dm
bdr("供应商") = adr("供应商代码")
bdr("商品代码") = adr("商品代码")
End If
bdr("数量") = adr(adc.Name)
End If
Next
Next
加好友 
发短信
Post By：2019/12/31 9:08:00 [只看该作者]
