主题：跨表增减行

规格变动，相同行随着增减，这里的增减是什么意思？

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

点击浏览该文件:管理项目3.rar

留给你做练习用。

这个有点粗暴，等于先删除所有的了。

这个问题我写的时候就留意到了，解决方法：

 

将：

 

    Dim Parts1() As String = e.OldValue.Split("\")
    Dim Parts2() As String = e.NewValue.Split("\")

改为：

 

Dim Parts1() As String
Dim Parts2() As String
If e.OldValue > "" Then
    Parts1 = e.OldValue.Split("\")
End If
If e.NewValue > "" Then
    Parts2  = e.NewValue.Split("\")
End If

'数据DataColChanged
If e.DataCol.Name = "规格" Then '
    Dim Parts1() As String = {}
    Dim Parts2() As String = {}
    If e.OldValue > "" Then
        Parts1 = e.OldValue.Split("\")
    End If
    If e.NewValue > "" Then
        Parts2  = e.NewValue.Split("\")
    End If
    For Each part As String In Parts2
        Dim dr As DataRow = DataTables("规格表").Find("货品编号 = '" & e.DataRow("货品编号") & "' And 规格 = '" & part & "'")
        If dr IsNot Nothing
            Tables("规格表").Position = Tables("规格表").FindRow(dr)
        Else
            Dim r As Row = Tables("规格表").AddNew()
            r("货品编号") = e.DataRow("货品编号")
            r("货品名称") = e.DataRow("货品名称")
            r("规格") = part
        End If
    Next
    Dim lst As new List(of String)
    lst.AddRange(parts2)
    For Each part As String In Parts1
        If lst.contains(part) = False Then
            Dim dr As DataRow = DataTables("规格表").Find("货品编号 = '" & e.DataRow("货品编号") & "' And 规格 = '" & part & "'")
            If dr IsNot Nothing Then
                dr.Delete
            End If
        End If
    Next
End If