以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]出现错误提示，老师们帮我看看  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=40586)
--  作者：foskycn
--  发布时间：2013/9/24 11:30:00
--  [求助]出现错误提示，老师们帮我看看
下面这段是导入按钮的代码：
CurrentTable.Position = 0
For Each r As Row In Tables("请购单").Rows
    If r.checked = True  Then
        Tables("采购订单.采购明细").Current("物料编码") = Tables("请购单").Current("物料编码")
        Tables("采购订单.采购明细").Current("物料名称") = Tables("请购单").Current("物料名称")
        Tables("采购订单.采购明细").Current("规格型号") = Tables("请购单").Current("规格型号")
        Tables("采购订单.采购明细").Current("采购数量") = Tables("请购单").Current("请购数量")
        Tables("采购订单.采购明细").Current("交制单号") = Tables("请购单").Current("交制单号")
    End If
    CurrentTable.Position = CurrentTable.Position + 1
Next
e.Form.Close
运行之后出现下面的提示：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20130924112705.jpg
图片点击可在新窗口打开查看
--  作者：Bin
--  发布时间：2013/9/24 11:33:00
--  
上个例子看看吧.
--  作者：狐狸爸爸
--  发布时间：2013/9/24 11:42:00
--  

看不懂楼主的代码逻辑，不如你说一下这段代码要完成的任务是？
--  作者：foskycn
--  发布时间：2013/9/24 11:47:00
--  
我是想从请购单导入已勾选的行到采购单。采购明细这个表中来
--  作者：Bin
--  发布时间：2013/9/24 11:52:00
--  
参考这里 http://www.foxtable.com/help/topics/1776.htm  有个 GetCheckedRows 方法

For Each r As Row In Tables("表名").GetCheckedRows
    dim r2 as row=tables("你要导入的表名").addnew
    r2("列1")=r("列1")
Next
--  作者：foskycn
--  发布时间：2013/9/24 11:55:00
--  
谢谢BIN，少了一句addnew
--  作者：foskycn
--  发布时间：2013/9/24 11:56:00
--  
不过你的代码更合理，更简洁，学习了！