主题：复制

此主题相关图片如下：qq截图20120406111619.jpg

有一个问题，当我在年度列输入一个新值，当新值和旧值不一样时，保存新值并复制增加当前行其他列值，于是我在datachanging加入了以下代码，

Select Case e.DataCol.Name
Case "年度"
If e.NewValue<> e.OldValue AndAlso e.NewValue > "" AndAlso e.OldValue > ""  Then
     Dim nb As DataRow = e.DataTable.AddNew
         For Each dc As DataCol In e.DataTable.DataCols
         nb(dc.Name) = e.DataRow(dc.Name)
          Next
End If
End Select

但会出现一个问题，就是会出现两行一样的数据，后来，我又在datachanged加入以下代码，

Select Case e.DataCol.name
    Case "年度","编号"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("年度") = False AndAlso dr.IsNull("编号") = False Then
            If e.DataTable.Compute("Count([_Identify])","年度 = '" & dr("年度") & "' And 编号 = '" & dr("编号") & "'") > 1 Then
                MessageBox.Show("已经存在相同数据的行!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.DataRow(e.DataCol.Name) = e.OldValue
            End If
        End If
End Select

用来删除重复的数据行

现在的问题是，当我选择一个不同的年度值时，它会因为值重复而删除原先复制增加的数据行，

现在我想，当我选择不同年度值时，复制增加新行时，将新值保存在新复制增加的数据行中

那位哥哥帮我看看，万分感谢!

DataColChanged事件代码不要，设置DataColChanging事件代码：

 

Select Case e.DataCol.Name
    Case "年度"
        If e.NewValue<> e.OldValue AndAlso e.NewValue > "" AndAlso e.OldValue > ""  Then
            Dim nb As DataRow = e.DataTable.AddNew
            For Each dc As DataCol In e.DataTable.DataCols
                If dc.name = "年度"  Then
                    nb("年度") = e.NewValue
                Else
                    nb(dc.Name) = e.DataRow(dc.Name)
                End If
            Next
            e.cancel = True
        End If
End Select

现在问题又来了，当我重复点同年度时，会出击重复数据，现在该怎么办

4楼代码不会出现这个问题

还是会出现的