主题：求助，如何优化下面的代码

当表A的“涂”这列逻辑值为真时，把当前行删除，在表B中添加当前行，下面代码写在错在哪里  dim r as row=tables（“表A”).current

If r("涂") = True Then
     Dim b As Row = Tables("表B").addnew()
   b("组")=r("组")
   b("下单日")= r("下单日")
   b("客户") = r("客户")
   b("单号")= r("单号")
   b("代号")=r("代号")
   b("品名")= r("品名")
   b("厚度")=r("厚度")
   b("粘度")=r("粘度")
   b("字色")= r("字色")
   b("底色")=r("底色")
   b("规格")=r("规格")
   b("支数")=r("支数")
   b("米数")=r("米数")
   b("拼版")=r("拼版")
   b("膜厚")=r("膜厚")
   b("标重")=r("标重")
   b("上胶")=r("上胶")
   b("备注")=r("备注")
   b("交货时间")=r("交货时间")
   b("印机")=r("印机")
   b("印日")=r("印日")
   b("印")=r("印")
   b("涂机")=r("涂机")
   b("涂日")=r("涂日")
   b("涂")=r("涂")
   b("*")=r("*")
   Tables("表A").current.delete()
   End If

运行之后怎么会出这问题看看

狐爸看看问题在哪里，代码在表（“排单”）的beforesavedatarow中

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:彩印.table

但是没有删除掉表("排单")的行啊

发生了一样的错误,到底什么原因呢

狐爸谢谢你，我的代码也可以因为类型没匹配好现在解决了