点击“过账/打印” 如何复制N行出货记录到另外一个表？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 点击“过账/打印” 如何复制N行出货记录到另外一个表？

共有10080人关注过本帖树形打印复制链接主题：点击“过账/打印” 如何复制N行出货记录到另外一个表？

yacity

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00

点击“过账/打印” 如何复制N行出货记录到另外一个表？ 发帖心情

Post By：2012/4/18 9:43:00 [显示全部帖子]

如图

图片点击可在新窗口打开查看此主题相关图片如下：256.jpg

销售信息--销售开单，打开销售录入界面

录入出货信息，点“过账打印”。如何把当前账单的 “日期” “产品id”“数量” 复制到库存流水账（kucun）

分别为 “日期”“产品id”“-数量” 其中产品名称，规格，单位是表达式列。

此主题相关图片如下：257.jpg

yacity

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00

Post By：2012/4/18 9:45:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:儋州琼富塑料管理系统1.0sql测试版.table

开发密码 666

yacity

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：532 积分：4020 威望：0 精华：0 注册：2011/6/18 12:41:00

Post By：2012/4/18 12:00:00 [显示全部帖子]

谢谢管理员！

可是这样只能复制最后一行。

还缺了一个循环，因为一个出货单可能有很多行，循环完所有当前出货单的行数。

实在不知道怎么写。

这样也不对

Dim r1 As Row = Tables("chuhuodan.chuhuo").Current

Dim r2 As Row = Tables("kucun").AddNew()
For Each dr3 As Row In Tables("chuhuodan.chuhuo")

r2("rdate") = r1("chuhuodate")

r2("chanpinid") = r1("chanpinid")

r2("shuliang") = r1("shuliang")
Next

[此贴子已经被作者于2012-4-18 12:01:07编辑过]

主题：点击“过账/打印” 如何复制N行出货记录到另外一个表？