If  e.DataCol.name = "是否异常" AndAlso e.DataRow("是否异常") = "异常" Then
Select Case e.DataCol.name
   Case "生产调度令号"
       Dim dr As DataRow = DataTables("电装顾客财产异常处理").Find("生产调度令号 = \'" & e.NewValue & "\'")

         If dr Is Nothing Then
             dr = DataTables("电装顾客财产异常处理").AddNew()  
             dr("生产调度令号") = e.DataRow("生产调度令号")
             dr("客户单位") = e.DataRow("客户单位") 
             dr("姓名") = e.DataRow("姓名")
             dr("类别") = e.DataRow("类别")
             dr("财产名称") = e.DataRow("财产名称")
             dr("型号规格") = e.DataRow("型号规格")
             dr("单位") = e.DataRow("单位")
         Else
             dr("生产调度令号") = e.DataRow("生产调度令号")            
            
        End If
      
     Case "客户单位","姓名","类别","财产名称","型号规格","单位"
         Dim dr As DataRow = DataTables("电装顾客财产异常处理").Find("生产调度令号 = \'" & e.DataRow("生产调度令号") & "\'")
         If dr IsNot Nothing Then
         dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
         End If 
    
 End Select
End If

想实现表A的“是否异常”列为“异常”时，执行代码，否则不执行，应该怎么写？

放在Datacolchanged 事件中，不行。

反复在同一行中改动"生产调度令号"，而且"电装顾客财产异常处理"找不到此行的话，就会反复增加行，这就违反常识和逻辑。

不如放在BeforeSaveDataRow事件中，一次性处理。

If e.DataRow("是否异常") = "异常" Then
    Dim dr As DataRow
    dr = DataTables("电装顾客财产异常处理").Find("生产调度令号 = \'" & e.DataRow("生产调度令号") & "\'")
    If dr Is Nothing Then
        dr = DataTables("电装顾客财产异常处理").AddNew()
    End If
    dr("生产调度令号") = e.DataRow("生产调度令号")
    dr("客户单位") = e.DataRow("客户单位")
    dr("姓名") = e.DataRow("姓名")
    dr("类别") = e.DataRow("类别")
    dr("财产名称") = e.DataRow("财产名称")
    dr("型号规格") = e.DataRow("型号规格")
    dr("单位") = e.DataRow("单位")
End If

我的数据肯定是要反复录入的呀，不可能只录入一次的

每次录入，都不保存？一保存不就执行代码了吗？在DataColChanged事件中，你改了一个号，发现错了，又改，这样就多增加了行。