为什么要用字符列?改成数据值列。
如果用字符列,你就需要循环每一行累计
If e.DataCol.Name = "批号" Then Dim sum As Double = 0 For Each dr As DataRow In DataTables("入库").Select("批号 = '" & e.NewValue & "'") sum += dr("数量") Next e.DataRow("数量") = sumEnd If