主题：子表自动增加行

请教：父表增加一行时，子表自动增加100行的代码！

可是老师，我写在里面的代码子表只能自动增加一行，并不是100行，假如注释掉（代码2）倒是实现的，可是父表子表的 下载日期 全部都成空白了，也就没有意义了

表事件

 

家乐福订单列表_DataColChanged  （代码1）

 

Select Case e.DataCol.Name

    Case "下载日期"

        If e.DataRow.IsNull("下载日期") = False Then '如果已经输入下载日期

            If e.DataRow.GetChildRows("家乐福订单明细").Count = 0 Then '而且无家乐福订单明细

                Dim dr As DataRow = DataTables("家乐福订单明细").AddNew(100)

                dr("下载日期") = e.DataRow("下载日期")

            End If

        End If

End Select

 

家乐福订单列表_DataRowAdded  （代码2）

 

'e.DataRow("下载日期") = Date.Today()

管用，谢谢啦！