主题：优化代码

原因正是C版说的，因为我的两个表里面都有这个类似的代码，造成循环执行了

不过还是谢谢程版热心帮助

再次谢谢C版

貌似只能把不同内容的数据拆成两个表了

 

受程版启发，我把代码简化成下面这样了

 

 

Select Case e.DataCol.Name      '自动填数据
    Case "熔铸编号"
      Dim nms() As String = {"合金","坯料规格","当前规格","库位","流程","完成情况"}
      Dim dr As DataRow = DataTables("生产").Find("[熔铸编号] = '" & e.NewValue & "'")
       For Each nm As String In nms
           If dr IsNot Nothing
              e.DataRow(nm) = dr(nm)
           Else
              e.DataRow(nm) = Nothing
           End If
       Next

    Case "合金","坯料规格","当前规格","库位","流程","完成情况"
    DataTables("生产").ReplaceFor(e.DataCol.Name, e.NewValue, "[熔铸编号] = '" & e.DataRow("熔铸编号") & "'")
End Select