此主题相关图片如下：1.png
如图所示，根据型号入库了，但是我想分开，
比如，sw01 均码 黑色 有多少条
sw01 均码 肉色 有多少条
也就是不同型号，不同尺码，不同颜色，分别入库出库
我现在的代码是：
Select Case e.DataCol.Name
Case "型号","入库","出库"
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
Dim drs As List(of DataRow)
dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [型号] = '" & mr("型号") & "'", "[_SortKey] Desc")
If dr Is Nothing Then '如果没有上一行,说明本行就是同产品的第一行
mr("库存") = mr("入库") - mr("出库")
dr = mr
End If
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [型号] = '" & dr("型号") & "'")
For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
drs(i)("库存") = drs(i-1)("库存") + drs(i)("入库") - drs(i)("出库")
Next
End Select
加好友 
发短信
Post By：2016/1/7 9:43:00 [显示全部帖子]
