记录移位怎么做

wangzgywzj

把某行数据的移到特定的行,   该用什么方法呀,我现在用追加到临时表,然后导入的相应行的方法,做了三四个查询,方法太笨了吧.如以下示列,仓库号不能修改.
仓库号        设备        数量
1        AA        20
2        BB        10
3                0
4                0

仓库号        设备        数量
1               
2        BB        10
3               
4        AA        20

wangzgywzj

问题解决了.
做了一个窗体,表1的数据,内嵌一个子窗体,还是表1的数据,两表的数据都以移入或移出为筛选条件

roych

按你的源文件来看，移动库存时是将相同设备的移到别的仓库吧？万一同一个仓库号有不同的设备时，这么移动？

wangzgywzj

这么没人气呢，帮帮我

wangzgywzj

感谢todaynew 指导,由于本人太菜,看不懂,
现附上示例,望todaynew 做成实例,万分感谢

todaynew

function MoveRe(原仓库号 as string,新仓库号 as string,设备 as string,数量 as integer)
    dim ssql as string
    ssql="insert into 库存表 (仓库号,设备,数量) values ('"
    ssql=ssql & 新仓库号 & "','"
    ssql=ssql & 设备 & "',"
    ssql=ssql & 数量 & ")"
    CurrentDb.Execute ssql
   
    ssql="delete * from 库存表 where 仓库号='" & 原仓库号 & "' and 设备='" & 设备 & "'"
    CurrentDb.Execute ssql
end function

或者:

function MoveRe(原仓库号 as string,新仓库号 as string,设备 as string,数量 as integer)
    dim ssql as string
    ssql="update 库存表 set 仓库号='"  & 新仓库号 & "'"
    ssql=ssql & " where 仓库号='" & 原仓库号 & "' and 设备='" & 设备 & "'"
    CurrentDb.Execute ssql
end function

roych

http://www.office-cn.net/forum.p ... 6orderby%3Ddateline