主题：子表自动增加行

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

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