- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何一次增加多行，某列数据可以每行不同 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27039)
-- 发布时间：2012/12/20 14:41:00
-- 如何一次增加多行，某列数据可以每行不同
父表二保登记表有一列登记日期
子表二保办理表有一列办理日期
要求在关联表中固定新增四行，第一行办理日期等于父表登记日期。后面三行，依次在第一行基础上增加3个月。因为是一个季度办一次。
求要实现这样的功能代码要怎么写？最好是在窗
口中新增按钮实现。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:二级维护test_201212201438.zip |
口中新增按钮实现。
-- 发布时间：2012/12/20 14:55:00
--
修改主表的日期，自动新增行。代码在 表属性->事件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:二级维护test.table |
-- 发布时间：2012/12/20 15:26:00
--
哈哈 ，感谢，还是要好好学习啊 ，受教了
-- 发布时间：2012/12/20 16:29:00
--
但是有个问题，同一个车辆 因为每年登记一次，如果下次登记的时候，登记日期改变了，关联子表的数据只是时间更新了，还是四条数据，要求还要保留上年登记的四次记录，再新增第二年的四次时间，这个要怎么能实现？
-- 发布时间：2012/12/20 17:33:00
--
代码如下。
Select Case e.DataCol.Name
Case "登记日期"
Tables("二保登记表.二保办理表").AddNew(4)
Dim i As Integer = 0
For Each dr As DataRow In e.DataRow.GetChildRows("二保办理表")
dr("办理日期") = CDate(e.NewValue).AddMonths(3 * i)
i += 1
Next
End Select