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

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

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

点击浏览该文件:二级维护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