主题：for each 遍历方法效率是不是有点低？

这样看看：

For i As Integer = 0 To DtEmployee.DataRows.Count -1
    Dim r sa DataRow = DtEmployee.DataRows(i)
    strCName = r("员工姓名")
    If strCName = strCCName Then
        strTel = r("联系电话")
        '=====
        '面护
        '=====
        strF =strFilter2 & "  And [项目大类] = '面护'"
        nXCount = DtCstmCard.Compute("Sum(期初金额)", strF)
        DtEmployee.DataCols("面护_销售业绩").AllowEdit = True
        r("面护_销售业绩") =  nXCount
        DtEmployee.DataCols("面护_销售业绩").AllowEdit = False
       
        strF =strFilter & "  And [项目大类] = '面护'"
        nSCount = DtNurse.Compute("Sum(次数)", strF)
        DtEmployee.DataCols("面护_护理次数").AllowEdit = True
        r("面护_护理次数") =   nSCount
        DtEmployee.DataCols("面护_护理次数").AllowEdit = False
    Next
End If

如果还是不行，可以看看：

http://www.foxtable.com/help/topics/2225.htm