主题：老爹看下这个代码怎么写？(已解决)

就应该这样提问，自己先写一下，否则别人不能理解你的意思

这样就可以多行了：

Dim r1 As Date  = e.Form.Controls("r1").Value
Dim r2 As Date  = e.Form.Controls("r2").Value
Dim drs As List(of DataRow) = DataTables("生产进度").Select("日期 = #" & r1 & "#")
Dim dr2 As DataRow
If drs.Count =0 Then
    MessageBox.Show("未发现该日订单,请核查!","温馨提示")
Else
    For Each dr1 As DataRow In drs
        If dr1("领取数量") > dr1("完成数量") + dr1("废品数量") Then
            dr2 = DataTables("生产进度").AddNew()
            dr2("日期") = r2
            dr2("员工") = dr1("员工")
            dr2("部门") = dr1("部门")
            dr2("产品批次") = dr1("产品批次")
            dr2("产品编号") = dr1("产品编号")
            dr2("加工工序") = dr1("加工工序")
            dr2("领取数量") = dr1("领取数量") - dr1("完成数量") - dr1("废品数量")
        End If
    Next
End If

谢谢老大，已经搞定了！