| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助--模式窗体中信息与主窗体中Table数值的赋值问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39116) |
| -- 作者：Joe -- 发布时间：2013/8/15 20:54:00 -- 求助--模式窗体中信息与主窗体中Table数值的赋值问题 请教专家赐教： 我在主窗体中建立了一个物料申请主表，一个物料申请明细表，二者以申请单号关联，Table绑定相应的表，为了不让人不小心修改到主表或关联表明细中的数值，这两表在主窗体中设置为不可编辑。 我是想通过一个模式窗体将来进行一个新的物料申请单的信息填写窗口，然后通过“提交”按钮代码将模式窗体中相关信息赋值给主窗体的主表和关联的物料申请明细表，但是在“提交”按钮运行存在一点问题，提示“不存在为名称为‘物料申请主表.物料申请明细表’的Datatable”，下面是提交大妈，请老师指教：
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 |
| -- 作者：有点甜 -- 发布时间：2013/8/15 21:06:00 -- 保存两个表，关联表就被保存了的。 DataTables("物料申请主表").save
DataTables("物料申请明细表").save |
| -- 作者：Joe -- 发布时间：2013/8/15 21:09:00 -- 谢谢有点甜， 但是关键是如何将模式窗体中表中的信息赋值给主窗体中关联表？ 请指教！谢谢
|
| -- 作者：Joe -- 发布时间：2013/8/15 21:13:00 -- Dim sqbt As WinForm.TextBox = e.Form.Controls("申请标题")
上述红色背景的部分代码是将模式窗体中表中的信息，赋值添加到主窗体中的关联的明细表，有问题，请老师指教，谢谢！ |
| -- 作者：有点甜 -- 发布时间：2013/8/15 21:33:00 -- 改成这样 dim dr0 as row = Tables("物料申请表.物料申请明细表").addnew 或者 DataTables("物料申请明细表").addnew
|
| -- 作者：Joe -- 发布时间：2013/8/15 21:40:00 -- 谢谢 “有点甜”，真是有点甜呀，OK啦。 叩谢！！！！ |