Select Case e.DataCol.name Case "生成单号","工序" e.DataRow("累计完成") = DataTables("工序表").Compute("sum(完成数量)", "生产单号 = '" &e.DataRow("生产单号") & "' and 工序 = '" & e.DataRow("工序") & "'") End Select