以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  修改符合条件的记录  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61974)
--  作者：aduydgd
--  发布时间：2014/12/23 11:52:00
--  修改符合条件的记录

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

 

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
--  作者：jialihaha
--  发布时间：2014/12/23 11:56:00
--  
刷新下表了么？
--  作者：有点甜
--  发布时间：2014/12/23 11:59:00
--  

 说明条件不成立。

 

msgbox看一下筛选条件

 

msgbox("pici like \'%" & bj.Text & "%\' " & _
        "And danjuzhuangtai = \'待包装\' and jieshoujigou = \'" & _UserGroup & "\' " & _
        " and changjia = \'" & SH.Text & "\'")
--  作者：aduydgd
--  发布时间：2014/12/23 12:02:00
--  
条件成立，我同样的条件查询就可以
--  作者：有点甜
--  发布时间：2014/12/23 14:02:00
--  

 满足条件，就会执行下面的内容。不可能没反应的。

 

 你加入msgbox测试是否进去了。
--  作者：aduydgd
--  发布时间：2014/12/23 14:59:00
--  
晕死了，我的表是SQLtable，操作的不是这个表