主题：修改符合条件的记录

老大们，我在某表中需要实现修改符合条件的记录，但是弄了下，没有反映，代码也通过了，帮忙给看看，谢谢

 

Dim Result As DialogResult
Result = MessageBox.Show("确定要出库吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    For Each dr As DataRow In DataTables("main").Select("pici like '%" & bj.Text & "%' " & _
        "And danjuzhuangtai = '待包装' and jieshoujigou = '" & _UserGroup & "' " & _
        " and changjia = '" & SH.Text & "'")
        dr("danjuzhuangtai") = "已完成"
    Next
    MessageBox.Show("出库完成!","提示:")
Else
    MessageBox.Show("您取消了出库操作,如果需要请点击出库按钮!","提示")
End If

条件成立，我同样的条件查询就可以

晕死了，我的表是SQLtable，操作的不是这个表