关联与增加行

关联与增加行

有的时候，希望父表增加一行后，能够在子表自动对应增加一行，以提高输入效率。
例如订单和订单明细表，通过订单编号建立关联，希望新增一订单，并输入订单编号后，能自动为该订单增加一个订单明细。
为此可以设置订单表的DataColChanged事件为：

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()
                dr("订单编号") = e.DataRow("订单编号")
            End If
        End If
End Select

本页地址：http://www.foxtable.com/webhelp/topics/2477.htm