以下是引用狐狸爸爸在2011-5-31 15:26:00的发言:
就应该这样提问,自己先写一下,否则别人不能理解你的意思
这样就可以多行了:
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
谢谢老大,已经搞定了!