主题：关联与增加行导致崩溃退出的问题

Select Case e.DataCol.Name
    Case "订单编号"
        If e.DataRow.IsNull("订单编号") = False Then '如果已经输入订单编号
            If e.DataRow.GetChildRows("订单明细").Count = 0 Then '而且无订单明细
                systemready = False
                Dim dr As DataRow = DataTables("订单明细").AddNew()
                dr("订单编号") = e.DataRow("订单编号")
                systemready = True
            End If
        End If
End Select

谢谢，这个问题已经解决了。 另外还有个问题是，按照帮助文件的代码订单和订单明细互相删除会出现错误：

1. 在订单表的BeforeDeleteDataRow事件代码设置为：

这个方法貌似不行啊

以下是引用有点甜在2015/2/23 16:17:00的发言：
   

下载信息  [文件大小：404.0 KB  下载次数：0]

点击浏览该文件:管理项目152.foxdb

删除订单明细可以了，但是倒过来删除订单又不行了

 主表删除代码

If e.DataRow.GetChildRows("订单明细").Count > 0 Then
    Dim s As String = "此订单存在订单明细, 是否确定要删除此订单及其订单明细?"
    If MessageBox.Show(s,"提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.No
        e.Cancel= True
    Else
        systemready = False
        DataTables("订单明细").DeleteFor("单号 = '" & e.DataRow("单号") & "'")
        systemready = True
    End If
End If