主题：[求助] 代码错误在什么地方

If e.DataCol.Name = "改善分类"

    Dim pr As DataRow

    If e.NewValue Is Nothing Then

        e.DataRow("提出激励考核_现金") = Nothing

    Else

        pr = DataTables("改善激励").Find("[改善分类] = " & e.NewValue)

        If pr
此主题相关图片如下：111.png

IsNot Nothing Then

            e.DataRow("提出激励考核_现金") = pr("提出激励考核_现金")

            If e.OldValue <> e.NewValue Then '如果新旧产品编号不同.

                DataTables("改善激励").DataCols("改善分类").RaiseDataColChanged(pr) 

            End If

        End If

     End If

     If e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then 

        pr = DataTables("改善激励").Find("[改善分类] = " & e.OldValue)

        If pr IsNot Nothing Then

            DataTables("改善激励").DataCols("改善分类").RaiseDataColChanged(pr) 

        End If

     End If

End If