Select Case e.DataCol.Name
Case "购油量","发油量"
For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))
Dim Val1 As Double = e.DataTable.Compute("Sum(购油量)","[_SortKey] <= " & dr("_SortKey"))
Dim Val2 As Double = e.DataTable.Compute("Sum(发油量)","[_SortKey] <= " & dr("_SortKey"))
dr("库存") = Val1 - Val2
Next
End Select
这段代码 怎么有的数据表可以用 有个不能用呢 设置都是一样的