主题：[求助] 这段代码运行时间太长了 足足3秒，怎么减少！

If user.group <> "客服部" Then
    DataTables("销售意向客户进度管制") .DeleteFor("[客户名称] Is Null and [联系地址] Is Null and [联系号码] Is Null And [欲购车型] Is Null and [意向级别] Is Null and [建档日期] Is Null and [最后联系日期] Is Null and [下次回访日期] Is Null and [最后一次回访情况] Is Null and [备注] Is Null and [客户来源] Is Null and [业务员申请] Is Null")
End If
For Each r As Row In Tables("销售意向客户进度管制")
    For Each cl As col In Tables("销售意向客户进度管制").Cols
        If "客户名称|意向级别|建档日期|最后联系日期|最后一次回访情况".IndexOf(cl.name) > -1
            If r.Isnull(cl.name) =True Then
                MessageBox.Show(cl.name & "未填写", "提示", MessageBoxButtons.ok, MessageBoxIcon.Information)
                Return
                Exit For
            End If
        End If
    Next
    If user.group = "销售部"
        If r("业务员申请")= "驳回 修改申请" Or r("业务员申请")= "驳回 删除申请" Or r("业务员申请")= "驳回 战败申请" Or r("业务员申请")= "驳回 战胜申请" Or r("业务员申请")= "驳回 修改申请" Or r("业务员申请")= "批准修改" Or r("业务员申请")= "批准删除" Or r("业务员申请")= "批准战胜" Or r("业务员申请")= "批准战败"  Then
            r("业务员申请")  =""
        End If
    End If
Next
If user.group <> "客服部" Then
    Dim f As New Filler
    f.SourceTable = DataTables("销售意向客户进度管制") '指定数据来源
    f.SourceCols = "编号,意向级别,最后联系日期,最后一次回访情况,备注" '指定数据来源列
    f.DataTable = DataTables("意向客户历史回访情况") '指定数据接收表
    f.DataCols = "编号,意向级别,最后联系日期,最后一次回访情况,备注" '指定数据接收列
    f.ExcludeExistValue =True
    f.ExcludeNullValue =False
    f.Distinct =True
    f.Append =True
    f.Fill()
    If user.name <> "销售经理" AndAlso user.name <> "开发者"
        For Each r As Row In Tables("销售意向客户进度管制")
            r("客户资料锁定") = True
        Next
    End If
End If
DataTables("销售意向客户进度管制").Save()

DataTables("意向客户历史回访情况").Save()

1、既然要删除空行，就应该放在最前面，可以让后面的循环语句少循环N次（N等于其后的循环语句个数乘以删除的空行数）也就是这一段放到最前面：

     If user.group <> "客服部" Then

这样的话，For Each r As Row In Tables("销售意向客户进度管制")……next就要少运行N次，n 等于删除的空行数，还有后面的遍历循环语句也跟着减少。

2、相同的循环语句可以合并，这样可以少循环N次（N等于该表的总行数）：

    您原来的For Each r As Row In Tables("销售意向客户进度管制") ……next 和For Each cl As Row In Tables("销售意向客户进度管制")其实遍历的都是一个表【销售意向客户进度管制】的所有行，只需将上述两个循环语句内的代码合并到一起即可。

3、除非万不得已，循环语句中的判断尽可能嵌套在在循环语句外：

     当判断条件不成立时，无需循环，而放在循环内，不管是否成立，先循环（遍历）再判断，导致很多时候（条件不成立时），出现N（N等于遍历的总行数）次循环来浪费时间，看这里：

调整后，非销售经理或非开发者进入系统时，就无需遍历所有行了，您这种代码的写法应该是犯了循环语句的大忌

4、不必要的循环嵌套，导致系统重复执行某一个相同的动作，多浪费很多时间：

看您的这一段代码：

For Each dt As DataTable In DataTables

您的第一层遍历所有表的目的，是想对所有表进行保存，而您又将遍历【销售意向客户进度管制】表的所有行的循环语句嵌套到其中，这就导致每遍历一个表，就要遍历【销售意向客户进度管制】表的所有行并判断修改【改客户资料锁定】列的值，这样又多循环了N遍（N等于总表数减1后乘以【销售意向客户进度管制】的总行数，象这种代码，如果确实需要保存所有表，也应该将这两层循环嵌套剥离，正确写法也应该这样：