主题：如何一次增加多行，某列数据可以每行不同

 修改主表的日期，自动新增行。代码在 表属性->事件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:二级维护test.table

哈哈 ，感谢，还是要好好学习啊 ，受教了

但是有个问题，同一个车辆  因为每年登记一次，如果下次登记的时候，登记日期改变了，关联子表的数据只是时间更新了，还是四条数据，要求还要保留上年登记的四次记录，再新增第二年的四次时间，这个要怎么能实现？

 代码如下。

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