主题：数据复制到没有关联的表

Select Case e.DataCol.name
    Case "编号"
        Dim dr2 As DataRow
        If e.OldValue = Nothing Then
            dr2 = DataTables("投保金").Find("编号 = '" & e.newvalue & "'")
        Else
            dr2 = DataTables("投保金").Find("编号 = '" & e.OldValue & "'")
        End If
        If dr2 Is Nothing Then
            dr2 = DataTables("投保金").AddNew()
            dr2("编号") = e.DataRow("编号")
            dr2("区域") = e.DataRow("区域")
            dr2("资质") = e.DataRow("资质")
            dr2("是否自投") = e.DataRow("是否自投")
            dr2("开标时间") = e.DataRow("开标时间")
            dr2("取消投标") = e.DataRow("取消投标")
            dr2("取消原因") = e.DataRow("取消原因")
        Else
            dr2("编号") = e.DataRow("编号")
            dr2("区域") = e.DataRow("区域")
            dr2("资质") = e.DataRow("资质")
            dr2("是否自投") = e.DataRow("是否自投")
            dr2("开标时间") = e.DataRow("开标时间")
            dr2("取消投标") = e.DataRow("取消投标")
            dr2("取消原因") = e.DataRow("取消原因")
        End If
    Case "区域","资质","取消原因","取消投标","开标时间","是否自投"
        Dim dr2 As DataRow = DataTables("投保金").Find("编号 = '" & e.DataRow("编号") & "'")
        If dr2 IsNot Nothing Then
            dr2(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select

删除
Dim dr As DataRow = DataTables("投保金").Find("编号 = '" & e.DataRow("编号") & "'")
If dr Is Nothing dr = DataTables("投保金").sqlFind("编号 = '" & e.DataRow("编号") & "'")
    If dr IsNot Nothing Then
        dr.Delete()
    End If
end if