[求助]录入窗口的内容怎么保存在两个表内 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]录入窗口的内容怎么保存在两个表内

共有8568人关注过本帖树形打印复制链接主题：[求助]录入窗口的内容怎么保存在两个表内

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/5 19:11:00 [显示全部帖子]

具体怎么保存，要看你窗口是怎么设计的，如果窗口各个控件绑定到主表，那么，就只需要把对应的值拷贝到从表就行了。

判断一下是否选中加入品质追踪，然后做相应的操作。

做好有例子上传，楼主。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/5 19:48:00 [显示全部帖子]

以下是引用TTE114在2013-8-5 19:38:00的发言：
给上例子更好？

看看跨表的引用。找到从表对应的行，然后一个一个的拷贝到从表中。你上传你的项目有人帮你写的，不然不知道怎么帮你

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2013/8/5 22:59:00 [显示全部帖子]

代码

Dim t As Table = Tables("维修记录")

If e.Form.Controls("jrpzzz").Checked Then

Dim nr As Row = Tables("品质追踪").AddNew()

nr("品名") = t.Current("品名")

nr("品号") = t.Current("品号")

'nr("类别") = t.Current("类别")

nr("故障现象") = t.Current("故障现象")

nr("位置") = t.Current("位置")

'nr("不良原因") = t.Current("不良原因")

End If

t.Current.Save

Tables("维修记录").AddNew()

下载信息 [文件大小：下载次数： ]
点击浏览该文件:维修系统.table

主题：[求助]录入窗口的内容怎么保存在两个表内