以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]新手求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87449)
--  作者：jasoncool3883
--  发布时间：2016/7/12 1:19:00
--  [求助]新手求助
 求高手支招，想做一个简单的类似进销存的查询录入表。
大致内容是这样，3个表，A,B,C
买进5个东西1,2,3,4,5
A表代表进货1,2,3,4,5
B表代表在售比如1,3在售，那么1,3的整行数据就从A表移动到B表
C表代表售出比如2,4,5售出，那么2,4,5的整行数据就从B表移动到C表

还有任意一个表都可以编辑1,2,3,4,5的状态（进货，在售，售出），也就是数据可以在3个表之间移动。

求高手支招要如何做到
--  作者：Hyphen
--  发布时间：2016/7/12 8:45:00
--  
比如移动到B表：
1、B表新增行
Dim drB As Row = Tables("表B").AddNew
2、把A表指定行的数据赋值到B表
Dim drA As Row = Tables("表B").Current
drB("第一列") = drA("第一列")
\'......
3、删除A表指定行
drA.Delete

既然是数据的移动，在哪个表就说明是什么状态，没有必要编辑状态了。

---------------------------
另外一种作法是，就一个表，用一个状态列区分不同订单的状态，如“在售”，就把状态改为“在售”即可。