主题：优化代码

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

这个代码很好用，只是执行起来相当慢，有没有快点的代码啊

 

修改后的代码还是很慢

从代码上看，删除或添加一次才执行，不可能很慢，你代码加入这两句试试

e.DataTable.StopRedraw

代码

e.DataTable.ResumeRedraw

直接连表都没了？？？

 同感不会太慢，生产表数据多少行？执行时间多少秒？

一般几百行的数据就会要10几秒

感觉狐表在双核机器上运行速度较快，但是单核的机器速度慢的要死啊

这样试试：

 

If e.DataCol.Name = "熔铸编号" Then
    Dim nms() As String = {"合同号","生产批号","客户","合金","状态","分卷A","分卷B","分卷C","分卷D"}
    Dim dr As DataRow
    dr = 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
End If

 十几秒感觉太离谱了。做个例子放上瞧瞧。

谢谢程兴刚，代码还要明天拿到公司的古董上试过以后才能知道效果

这两句，一句放在你代码最前面，一句放在最后面。程版代码跟你原来没有什么区别，效果应该差不多。可能是你机器的原因吧。顺便说下，据个人测试，狐表对多核心支持不好，不能调用多核。