真是见鬼了，高手来捉鬼
a6.RecordSource = "select bjcode,xysl from SBK_BJ where bjcode = ' " & LCODE.Caption & " ' "
a6.Refresh
a6.Recordset.Fields( "xysl ") = Int(Val(a6.Recordset.Fields( "xysl "))) + Int(Val(tsl.Text))
a6.Recordset.Update
记录中的bjcode字段没有重复，a6.Recordset.RecordCount的值也是1，为什么在执行了上面的代码以后，表中所以记录的xysl字段都被更新了，是VB的问题还是SQL Server2000的问题，还是我的问题，高手帮忙啊！
[解决办法]
a6.Recordset.Fields( "xysl ") = Int(Val(a6.Recordset.Fields( "xysl "))) + Int(Val(tsl.Text))
a6.Recordset.Update
天啊,你都让a6.Recordset.Fields( "xysl ") =一个值并且Update了,当然更新了
[解决办法]
a6.Recordset.RecordCount确实是一是因为a6.RecordSource = "select bjcode,xysl from SBK_BJ where bjcode = ' " & LCODE.Caption & " ' "返回的记录数是一。
update 的是全部
[解决办法]
關注中.....
[解决办法]
我用access是没有问题，只更新满足条件的记录
[解决办法]
你好象问过一次吧
如果不行 就用update语句直接写吧
[解决办法]
......................................
[解决办法]
建议用update 语句写。如下：
"update SBK_BJ set xysl = " & Int(Val(a6.Recordset.Fields( "xysl "))) + Int(Val(tsl.Text)) & "where bjcode = ' " & LCODE.Caption & " ' "
======================================================
红松软件 http://hongsong.huanqiuit.com/
软件论坛 http://5x51.com/hongsong/
本网站推出只要注册本站会员，就送一套正版软件活动，此
活动截至日期2007-08-15。所需要点软件在本网站中自己挑
选一个。
论坛前10位会员，赠送VIP会员资格！！！
======================================================
[解决办法]
"update SBK_BJ set xysl = xysl + " Int(Val(tsl.Text)) & "where bjcode = ' " & LCODE.Caption & " ' "
