DataColChanged事件
Select Case e.DataCol.Name
Case "品名","日均销量"
Dim filter As String = "品名='" & e.DataRow("品名") & "'"
Dim sum As Double = e.DataTable.Compute("Sum(日均销量)",filter)
If sum > 0 Then
For Each dr1 As DataRow In e.DataTable.Select(filter)
dr1("标准库存天数") = dr1("供应商起订量") / sum
Next
End If
If e.DataCol.Name = "品名" AndAlso e.OldValue > "" Then
filter = "品名='" & e.OldValue & "'"
sum = e.DataTable.Compute("Sum(日均销量)",filter)
If sum > 0 Then
For Each dr1 As DataRow In e.DataTable.Select(filter)
dr1("标准库存天数") = dr1("供应商起订量") / sum
Next
End If
End If
End Select
加好友 
发短信
Post By：2017/7/11 22:45:00 [只看该作者]
