主题：统计

你得先告诉大家正常生产、联号、工序这三列的数据类型。

Select e.DataCol.name '按照生产批号汇总自动添加到生产计划单中.
    Case "联号"
    Dim dr As DataRow = e.DataRow
    Dim lf1 As String = dr("联号")
    Dim lf2 As String = dr("上工序")
    Dim cmd As New SQLCommand
    cmd.CommandText = "Select sum(正品数) From {日报表} Where 生产状态 = '" & dr("正常生产") & "' And 联号 = '" &  lf1 & "' And 工序 ='" &  lf2 & "'"
    dr("上工序数")=cmd.ExecuteScalar()
End Select

 

建议看看：

http://www.foxtable.com/help/topics/1284.htm