主题：多条记录状态变更

老师，我一个表里会有多条记录，但是以下这个代码只能变更当前一条记录，我想多条记录同时变，请帮忙看看，谢谢！

    Dim dr5 As Row = Tables("刀具领用计划_计划明细").current
    If Tables("刀具领用计划_计划明细").current  IsNot  Nothing
        Dim  drs1 As  List(of  DataRow) = DataTables("库存明细记录").SQLSelect("刀具代码 = '" & dr5("刀具代码") & "' And 单刀编码= '" & dr5("单刀编码") & "' And 材料编码 = '" & dr5("材料编码") & "'")
        For Each  dr6 As  DataRow In drs1
            dr6("目前状态") = "领用"
            dr6("库位") = "生产车间"
        Next
        DataTables("库存明细记录").SQLUpdate(drs1)
    End  If
    DataTables("库存明细记录").load