| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 新手问题，请高手解决。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44390) |
| -- 作者：wzl0927 -- 发布时间：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 这个复制代码。把表里的所有行都添加过去了。。如何才能只复制当前行
|
| -- 作者：有点甜 -- 发布时间：2013/12/29 19:23:00 -- 获取表的当前行 |
| -- 作者：wzl0927 -- 发布时间：2013/12/29 19:26:00 -- 3Q 问题已解决。。。 |
| -- 作者：新福星 -- 发布时间：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
|