Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]增加行，子表增加行


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

主题：[求助]增加行，子表增加行
帅哥哟，离线，有人找我吗？
whyxd
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1904 威望：0 精华：0 注册：2016/2/17 12:11:00 		[求助]增加行，子表增加行  发帖心情 Post By：2017/7/6 13:41:00 [只看该作者]

表A(父表，关联列“ID”)共计5行，当前行：第五行
表B（子表,关联列“ID”）

表A的DataRowadded事件中代码：
Tables("表A.表B").AddNew(10)

表A新增行后，tables("表A.表B")新增的10行关联"ID"列的值等于 “表A”第五行（新增行之前的当前行）的“ID”列的值。


想要实现的效果是，新增行，触发表事件（datarowadded），实现tables("表A.表B")新增的10行关联"ID"列的值等于 “表A”新增行（第六行）的“ID”列的值。

请教如何实现
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/6 14:11:00 [只看该作者]

你应该在表A的DataColChanged事件写代码

 

If e.DataCol.Name = "ID" Then

    Tables("表A.表B").AddNew(10)

End If
 回到顶部
帅哥哟，离线，有人找我吗？
whyxd
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1904 威望：0 精华：0 注册：2016/2/17 12:11:00 		回复：（有点甜）你应该在表A的DataColChanged事件写代...  发帖心情 Post By：2017/7/6 14:33:00 [只看该作者]

试过了，结果一样，子表增加行不是父表新增行的子表。。。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/6 14:49:00 [只看该作者]

以下是引用whyxd在2017/7/6 14:33:00的发言：
试过了，结果一样，子表增加行不是父表新增行的子表。。。

 

这样写

 

If e.DataCol.Name = "ID" Then

    for i as integer = 1 to 10

        Dim nr As DataRow = DataTables("表B").AddNew

        nr("ID") = e.DataRow("ID")

    next

End If
 回到顶部
帅哥哟，离线，有人找我吗？
whyxd
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：204 积分：1904 威望：0 精华：0 注册：2016/2/17 12:11:00 		回复：（有点甜）以下是引用whyxd在2017/7/6 14:33:00...  发帖心情 Post By：2017/7/6 14:59:00 [只看该作者]

好吧，这样可以了。多谢图片点击可在新窗口打开查看

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03320 秒, 4 次数据查询