主题：优化代码

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