If e.DataCol.Name = "编号" Then
    If e.DataRow.IsNull("编号") Then
    Else
        Dim dr As DataRow = DataTables("派工").Find("[_Identify] = \'" & e.DataRow("编号") & "\'")
        If dr IsNot Nothing Then
            e.DataRow("日期") = dr("截止日期")
            e.DataRow("户名") = dr("户名")
            e.DataRow("地址") = dr("详细地址")
            e.DataRow("编号2") = dr("客户id")
            e.DataRow("客户编号") = dr("编号")
            e.DataRow("类型") = dr("类型")
            e.DataRow("业务途径") = dr("业务途径")
            e.DataRow("转账银行") = dr("转账银行")
            e.DataRow("付款方式") = dr("付款方式")
            e.DataRow("应收金额") = dr("收款")
            e.DataRow("部门") = dr("部门")
            e.DataRow("业务人员") = dr("业务人员")
        Else
            e.DataRow("编号") = Nothing
        End If
    End If
End If

If e.DataCol.name = "审批" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("派工")
    If pr IsNot Nothing Then
        Dim crs As List(of DataRow) = pr.GetChildRows("财务")
        Dim cnt As Integer
        For Each cr As DataRow In crs
            If cr("审批") = True
                cnt = cnt + 1
            End If
        Next
        pr("审批") = (crs.Count = cnt)
    End If
End If

Select Case e.DataCol.name
    Case "编号","付款方式"
        Dim count As Integer = e.DataTable.compute("count(_Identify)", "付款方式 = \'" & e.DataRow("付款方式") & "\' and 编号 = \'" & e.DataRow("编号") & "\'")
        If count > 1 Then
            msgbox("重复了")

            e.DataRow.Delete
        End If
End Select

 去你的AddNew的代码那里，先判断一下子表有没有存在对应的数据，有就不要新增

Dim count As Integer = DataTables("子表").compute("count(_Identify)", "付款方式 = \'" & e.DataRow("付款方式") & "\' and 编号 = \'" & e.DataRow("编号") & "\'")

If count > 1 Then

     msgbox("不能新增")

End If

If e.DataCol.Name = "是否" AndAlso e.DataRow("是否") = True Then
    Dim nma() As String = {"派工id"} \'A表数据来源列
    Dim nmb() As String = {"编号"} \'B表数据接收列
    Dim dr As DataRow = DataTables("财务").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

是在这里改吗？怎么改呢？谢谢！

If e.DataCol.Name = "是否" AndAlso e.DataRow("是否") = True Then
    Dim nma() As String = {"派工id"} \'A表数据来源列
    Dim nmb() As String = {"编号"} \'B表数据接收列
    Dim dr As DataRow = DataTables("财务").AddNew
    Dim count As Integer = DataTables("财务").compute("count(_Identify)", "付款方式 = \'" & e.DataRow("付款方式") & "\' and 编号 = \'" & e.DataRow("编号") & "\'")
    If count > 1 Then
        msgbox("不能新增")
    End If
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

这样改不对，请忙指教一哈。错在哪？

.NET Framework 版本：2.0.50727.8689
Foxtable 版本：2016.6.26.1
错误所在事件：表，财务，DataColChanged
详细错误信息：
调用的目标发生了异常。
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

还是有这个问题。好像没有执行判定子行重复，不能新增行，这个代码。。。

还是错误。