Dim dr1 As DataRow = DataTables("订单明细表").SQLFind("客户代号 = '" & Forms("订单变更").controls("客户代号").text & "' and 客户订单号 = '" & Forms("订单变更").controls("客户订单号").text & "' and 作废 = false")
dr1("作废") = True
dr1.save
Dim dd As String = dr1("客户订单号")
Dim ss As String = dr1("物料代码")
Dim r As Row = Tables("订单明细表").addnew
Tables("订单明细表").AllowEdit = True
r("标记") = dd & ss
r("变更人") = _UserName
r("变更日期") = Date.Today
r("订货日期") = Forms("订单变更").Controls("订货日期").value
r("客户订单号") = Forms("订单变更").Controls("客户订单号").value
r("客户代号") = Forms("订单变更").Controls("客户代号").value
r("物料类型") = Forms("订单变更").Controls("物料类型").value
r("物料代码") = Forms("订单变更").Controls("物料代码").value
r("型号") = Forms("订单变更").Controls("型号").value
r("规格") = Forms("订单变更").Controls("规格").value
r("物料等级") = Forms("订单变更").Controls("物料等级").value
r("厂商代号") = Forms("订单变更").Controls("厂商代号").value
r("交货日期") = Forms("订单变更").Controls("交货日期").value
r("订货重量") = Forms("订单变更").Controls("订货重量").value
r("基材来源") = Forms("订单变更").Controls("基材来源").value
r("基材类型") = Forms("订单变更").Controls("基材类型").value
r("基材代码") = Forms("订单变更").Controls("基材代码").value
r("基材型号") = Forms("订单变更").Controls("基材型号").value
r("基材规格") = Forms("订单变更").Controls("基材规格").value
r("基材等级") = Forms("订单变更").Controls("基材等级").value
r("已下生产重量") = Forms("订单变更").Controls("已下生产重量").value
r("已交重量") = Forms("订单变更").Controls("已交重量").value
r("备注") = Forms("订单变更").Controls("备注").value
r("是否计价") = Forms("订单变更").Controls("是否计价").checked
r("是否生产") = Forms("订单变更").Controls("是否生产").checked
r("变更") = True