主题：子表自动增加行

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

DataColChanged事件

 

If e.DataCol.Name = "关联列" Then

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

End If

参考 http://www.foxtable.com/help/topics/2477.htm

 

可是老师，我写在里面的代码子表只能自动增加一行，并不是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()

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("下载日期")
                For i As Integer = DataTables("家乐福订单明细").DataRows.Count - 1 To DataTables("家乐福订单明细").DataRows.Count - 100 Step -1
                    DataTables("家乐福订单明细").DataRows(i)("下载日期") = e.DataRow("下载日期")
                Next
            End If
           
        End If
       
End Select

管用，谢谢啦！