在帮助文件有个代码,按照代码输入之后,点击窗口增加订单后,foxtable崩溃然后退出,是怎么回事?
附:
有的时候,希望父表增加一行后,能够在子表自动对应增加一行,以提高输入效率。
例如订单和订单明细表,通过订单编号建立关联,希望新增一订单,并输入订单编号后,能自动为该订单增加一个订单明细。
为此可以设置订单表的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