主题：[求助]出现错误提示，老师们帮我看看

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