Dim t As Table = Tables("入库材料表")
t.ResumeRedraw
t.StopRedraw
For Each dc As Col In t.Cols
If dc.Name.Contains("A") OrElse dc.name.Contains("H") OrElse dc.name.Contains("X") Then
t.DataTable.ReplaceFor(dc.name, Nothing)
End If
Next
Dim temp = DataTables("入库材料表").DataCols("剩余数量").Expression
DataTables("入库材料表").DataCols("剩余数量").Expression = ""
For Each dr As DataRow In DataTables("出库统计表").Select("")
Dim sum As Double = dr("实发数量")
Dim drs = DataTables("入库材料表").Select("商品长代码 = '" & dr("商品长代码") & "' and 商品名称 = '" & dr("商品名称") & "'", "单据编号")
For i As Integer = 1 To drs.Count-1
If drs(i)("实收数量") = -drs(i-1)("实收数量") Then
drs(i-1)("单位") = "对冲"
drs(i)("单位") = "对冲"
i += 1
Else
drs(i-1)("单位") = Nothing
End If
Next
For Each cdr As DataRow In drs
If cdr("单位") <> "对冲" Then
If cdr("fa piao号码") <> "" Then'fa piao为空的不勾稽
Dim sysl As Double = 0
For Each dc As Col In t.Cols
If dc.Name.Contains("A") OrElse dc.name.Contains("H") OrElse dc.name.Contains("X") Then
sysl += cdr(dc.name)
End If
Next
If cdr("实收数量")-sysl > 0 Then
If dr("勾稽标签") = "勾稽" Then'勾稽标签显示勾稽的项目材料才勾选数量
If sum >= (cdr("实收数量")-sysl) Then
sum = sum - (cdr("实收数量")-sysl)
cdr(dr("项目简码")) += cdr("实收数量")-sysl
Else
cdr(dr("项目简码")) += sum
sum = 0
Exit For
End If
End If
End If
End If
End If
Next
If sum = 0 Then
dr("使用库存数量") = Nothing
Else
dr("使用库存数量") = sum
End If
Next
DataTables("入库材料表").DataCols("剩余数量").Expression = temp
t.ResumeRedraw
加好友 
发短信
Post By：2017/6/24 20:25:00 [显示全部帖子]
此主题相关图片如下：qq截图20170625211254.jpg
