Dim sqbt As WinForm.TextBox = e.Form.Controls("申请标题")
If MessageBox.Show("确定提交此物料申请单?", "请确认" ,MessageBoxButtons.YesNo, MessageboxIcon.Question) = DialogResult.Yes
'------主窗体中的主表赋值-------
Tables("物料申请主表").current("申请标题")=sqbt.text '---将申请单的申请标题赋值给《物料申请主表》
'------将模式窗体中"物料申请表"中的物料信息赋值给主窗体中的关联表《物料申请主表.物料申请明细表》------
For Each dr As Row In Tables("物料申请表").Rows
Dim dr0 As DataRow = DataTables("物料申请主表.物料申请明细表").addnew
dr0("物料编号")=dr("物料编号")
dr0("物料名称")=dr("物料名称")
dr0("型号规格")=dr("型号规格")
dr0("供货厂商")=dr("供货厂商")
Next
End If
DataTables("物料申请主表").save
DataTables("物料申请明细表").save
'====================
上述红色背景的部分代码是将模式窗体中表中的信息,赋值添加到主窗体中的关联的明细表,有问题,请老师指教,谢谢!