Select Case e.DataCol.Name Case "工序","联号" If e.DataRow("工序") <> "" AndAlso e.DataRow("联号") <> "" Then Dim sum As Integer = DataTables("日报表").Compute("Sum(生产数)", "本工序 = '" & e.DataRow("上工序") & "' And 联号 = '" & e.DataRow("联号") & "'") e.DataRow("生产数") = sum End If End Select