Foxtable(狐表)用户栏目专家坐堂 → 求助--模式窗体中信息与主窗体中Table数值的赋值问题


  共有5389人关注过本帖树形打印复制链接

主题:求助--模式窗体中信息与主窗体中Table数值的赋值问题

美女呀,离线,留言给我吧!
Joe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:294 威望:0 精华:0 注册:2013/8/12 21:07:00
求助--模式窗体中信息与主窗体中Table数值的赋值问题  发帖心情 Post By:2013/8/15 20:54:00 [只看该作者]

请教专家赐教:
我在主窗体中建立了一个物料申请主表,一个物料申请明细表,二者以申请单号关联,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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/8/15 21:06:00 [只看该作者]

 保存两个表,关联表就被保存了的。

DataTables("物料申请主表").save
DataTables("物料申请明细表").save

 回到顶部
美女呀,离线,留言给我吧!
Joe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:294 威望:0 精华:0 注册:2013/8/12 21:07:00
  发帖心情 Post By:2013/8/15 21:09:00 [只看该作者]

谢谢有点甜, 但是关键是如何将模式窗体中表中的信息赋值给主窗体中关联表? 请指教!谢谢

 


 回到顶部
美女呀,离线,留言给我吧!
Joe
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:294 威望:0 精华:0 注册:2013/8/12 21:07:00
  发帖心情 Post By:2013/8/15 21:13:00 [只看该作者]

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


'====================

上述红色背景的部分代码是将模式窗体中表中的信息,赋值添加到主窗体中的关联的明细表,有问题,请老师指教,谢谢!


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/8/15 21:33:00 [只看该作者]

改成这样
dim dr0 as row = Tables("物料申请表.物料申请明细表").addnew
或者
DataTables("物料申请明细表").addnew

 回到顶部
美女呀,离线,留言给我吧!
Joe
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:33 积分:294 威望:0 精华:0 注册:2013/8/12 21:07:00
  发帖心情 Post By:2013/8/15 21:40:00 [只看该作者]

谢谢 “有点甜”,真是有点甜呀,OK啦。 叩谢!!!!


 回到顶部