主题：[求助] 关于条件审核的代码优化

   说明一下：Chk列是用于记录选择需审核的物料，临时增加上去的

    dt 表是将生产任务单中的相同子阶ID，车间，组别，任务单号的物料统计在一起的。

我现在的方法是遍历表单的方法去处理的，便数据比较多的时候，就比较慢，各位老师，有没有更好的方法或者思路

     Dim drs As List(of DataRow) = dt.Select("chk = 'Y'")
        For Each dr As DataRow In drs
            fil = "任务单号 = '" & dr("任务单号") & "' and 子阶ID = '" & dr("子阶ID") & "' and 车间 = '" & dr("车间") & "' and 组别 = '" & dr("组别") & "'"
            cmd.CommandText = "UPD ATE {生产任务单} SET [状态] = 1,[审核] = '" & _UserName & "',[审核日期] = '" & Functions.Execute("返回服务器日期").Date & "' WHERE " & fil
            cmd.ExecuteNonQuery()
            dr("审核标志") = "Y"
            dr("审核") = _UserName           
        Next
        fil = Nothing
        MessageBox.Show("【审核单据成功】","信息提示",MessageBoxButtons.ok,MessageBoxIcon.Information)