代码从changed 改到changing就出现这个了问题了，请问一下：

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

代码：
e.DataCol.Name = "内部审计年度风险评估调查表_主流程维度_流程编号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("内部审计年度风险评估调查表_主流程维度_流程编号") = Nothing
    Else
        dr = DataTables("流程架构维护").Find("[流程编号]= \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then
            e.DataRow("内部审计年度风险评估调查表_主流程维度_一级业务流程") = dr("一级业务流程")
            e.DataRow("内部审计年度风险评估调查表_主流程维度_二级业务流程") = dr("二级业务流程")
            e.DataRow("内部审计年度风险评估调查表_主流程维度_三级业务流程") = dr("三级业务流程")
        End If
    End If
End If