如何在窗口字表中自动增加记录并自动添加内容？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在窗口字表中自动增加记录并自动添加内容？

共有2822人关注过本帖树形打印复制链接主题：如何在窗口字表中自动增加记录并自动添加内容？

有点甜

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

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

Post By：2018/2/5 16:43:00 [显示全部帖子]

Dim r As Row = Tables("表A").Current

Dim nr As Row = Tables("表A").AddNew

nr("校准编号") = r("校准编号")

nr("本年计划检") = r("下一年检定")

nr("周期天数") = r("周期天数")

有点甜

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

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

Post By：2018/2/6 9:56:00 [显示全部帖子]

以下是引用malavazos在2018/2/6 9:48:00的发言：
实验了代码，发现新增的是一条空记录。没有需要自动添加的内容。因为我是在窗体中自动增加一条子表中的记录。我应该如何修改。

谢谢

你表名肯定写错了。贴出你写的代码。

有点甜

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

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

Post By：2018/2/6 10:14:00 [显示全部帖子]

Dim t As Table = e.form.controls("Table1").Table

Dim r As Row = t.current

Dim nr As Row = t.addnew

nr("校准编号") = r("校准编号")

nr("本年计划检定日期") = r("下一年检定日期")

nr("周期天数") = r("周期天数")

有点甜

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

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

Post By：2018/2/6 10:36:00 [显示全部帖子]

删除你原来的代码

主题：如何在窗口字表中自动增加记录并自动添加内容？