- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 点击“过账/打印” 如何复制N行出货记录到另外一个表？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=18585)
-- 发布时间：2012/4/18 9:43:00
-- 点击“过账/打印” 如何复制N行出货记录到另外一个表？
如图
此主题相关图片如下：256.jpg
销售信息--销售开单，打开销售录入界面
录入出货信息，点“过账打印”。如何把当前账单的 “日期” “产品id”“数量” 复制到库存流水账（kucun）
分别为 “日期”“产品id”“-数量” 其中 产品名称，规格，单位是表达式列。
此主题相关图片如下：257.jpg
-- 发布时间：2012/4/18 9:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:儋州琼富塑料管理系统1.0sql测试版.table |
开发密码 666
-- 发布时间：2012/4/18 11:05:00
--
Dim r1 As Row = Tables("表1").Current
Dim r2 AS Row = Tables("表2").AddNew()
r2("列1") = r1("列1")
r2("列2") = r1("列2")
r2("列3") = r1("列3")
-- 发布时间：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:11:00
--
For Each r1 As Row In Tables("chuhuodan.chuhuo").Rows
Dim r2 As Row = Tables("kucun").AddNew()
r2("rdate") = r1("chuhuodate")
r2("chanpinid") = r1("chanpinid")
r2("shuliang") = r1("shuliang")
Next