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 生产状态 ='正常生产' and 联号 =' lf1' and 工序 =' lf2 '" dr("上工序数")=cmd.ExecuteScalar() End Select