Dim Result As DialogResult
Result = MessageBox.Show("确定将新的订单提交到制造部?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim dt1 As DataTable = DataTables("订单明细") '指定数据来源
Dim dt2 As DataTable = DataTables("产品制造跟踪")
Dim drs As List(Of DataRow) = dt1.Select("确认下单 = true")
If drs.Count > 0 Then
Dim dr As DataRow = dt2.AddNew
dr("产品名称") = drs(0)("产品名称")
dr("产品编号") = drs(0)("产品编号")
dr("产品小计") = drs(0)("产品小计")
dr("产品规格_长") = drs(0)("产品规格_长")
dr("产品规格_宽") = drs(0)("产品规格_宽")
dr("产品规格_高") = drs(0)("产品规格_高")
dr("产品规格_单位") = drs(0)("产品规格_单位")
dr("产品规格_数量") = drs(0)("产品规格_数量")
dr("产品备注") = drs(0)("产品备注")
dr("订单编号") = drs(0)("订单编号")
dr("产品类别") = drs(0)("产品类别")
dr("使用区域") = drs(0)("使用区域")
systemready = False
For i As Integer = 1 To drs.Count - 1
Dim ndr As DataRow = dt2.AddNew
ndr("产品类别") = drs(i)("产品类别")
ndr("使用区域") = drs(i)("使用区域")
ndr("产品名称") = drs(i)("产品名称")
ndr("产品编号") = drs(i)("产品编号")
ndr("产品小计") = drs(i)("产品小计")
ndr("XT_日期") = dr("XT_日期")
ndr("产品规格_长") = drs(i)("产品规格_长")
ndr("产品规格_宽") = drs(i)("产品规格_宽")
ndr("产品规格_高") = drs(i)("产品规格_高")
ndr("产品规格_单位") = drs(i)("产品规格_单位")
ndr("产品规格_数量") = drs(i)("产品规格_数量")
ndr("产品备注") = drs(i)("产品备注")
ndr("制造编号") = dr("制造编号")
ndr("订单编号") = drs(i)("订单编号")
Next
systemready = True
DataTables("订单明细").DeleteFor("确认下单 = true")
End If
DataTables("产品制造跟踪").Save()
MessageBox.Show("好了,已经将新的订单转交给了制造部.","提示")
Else
MessageBox.Show("好吧,等你准备好.","提示")
End If
加好友 
发短信
Post By：2015/6/7 20:40:00 [只看该作者]
此主题相关图片如下：qq截图20150607210002.png
此主题相关图片如下：ccc.gif