主题：复制

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