主题：条件

表shzz中有“年度”列，我想实现以下功能，当某一行数据的列“年度”值不一样时，复制这一行数据到新增加的一行，请教专家，该如何编写代码

 

狐狸爸爸，你在吗，请帮忙看看吧

If e.DataRow("年度").NewValue <> e.OldValue Then
   Return
   End If
End If
Dim dr As DataRow
dr = DataTables("shzz").AddNew()
For Each ColName As String In ColNames
e.DataRow(ColName) = dr(ColName)
各位大哥，请看看上面代码在datarowadding事件中，为什么不对

就是说，当新输入的年度列的值与先前值不一样时，新增一行，并将这一行的所有列值复制到新增加的一行，

 

现在您能看懂吗，先判断“年度”列的值的变化，再复制新增加一行

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

这是我在添加代码后出现的提示，请问狐狸爸爸是什么意思

谢谢狐狸爸爸，我已经解决了，你给我的管理项目版本太高打不开

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

 

现在新问题来了，倒是新增加行了，但是在反复点击年度列选项时，会出现很多一样的记录，怎样才能避免出现这样的情况，请狐狸爸爸指点一下!!

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

现在新问题来了，当反复点击年度列时，如2011,2010,2011等，就会出现两个一样的2011的记录，如何避免出现这样的情况，请狐狸爸爸指点一下

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

还是这个问题，但是有新情况，当我反复点击年度列时，会重复复制很多条相同的记录，怎样避免出现这样的情况，请狐狸爸爸指点一下