Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新手问题，请高手解决。


  共有4209人关注过本帖树形打印复制链接

主题：新手问题，请高手解决。
帅哥哟，离线，有人找我吗？
wzl0927
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：99 积分：720 威望：0 精华：0 注册：2013/11/20 21:37:00 		新手问题，请高手解决。  发帖心情 Post By：2013/12/29 19:21:00 [只看该作者]

For Each r1 As Row In Tables("生产进度表.笔都铣")
Dim r2 As Row = Tables("质检表").AddNew
r2("生产编号")=r1("生产编号")
r2("产品名称")=r1("产品名称")
r2("质检数量")=r1("单次交货量")
r2("工序顺序")=r1("工序顺序")
r2("加工部门")=r1("加工部门")
r2("交货日期")=r1("交货日期")
Next

这个复制代码。把表里的所有行都添加过去了。。如何才能只复制当前行
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/12/29 19:23:00 [只看该作者]

 获取表的当前行

 dim r as row = Tables("xxx").current

 回到顶部
帅哥哟，离线，有人找我吗？
wzl0927
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：99 积分：720 威望：0 精华：0 注册：2013/11/20 21:37:00 		  发帖心情 Post By：2013/12/29 19:26:00 [只看该作者]

3Q    问题已解决。。。
 回到顶部
帅哥哟，离线，有人找我吗？
新福星
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1959 积分：15526 威望：0 精华：0 注册：2011/7/16 20:59:00 		  发帖心情 Post By：2013/12/29 19:26:00 [只看该作者]

dim r1 as row=tables("生产进度表.笔都铣").Current
if r1 isnot nothing then
Dim r2 As Row = Tables("质检表").AddNew
r2("生产编号")=r1("生产编号")
r2("产品名称")=r1("产品名称")
r2("质检数量")=r1("单次交货量")
r2("工序顺序")=r1("工序顺序")
r2("加工部门")=r1("加工部门")
r2("交货日期")=r1("交货日期")
end if
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.02344 秒, 4 次数据查询