主题：产品编号，跨表查找验证问题？帮我看看代码那里错了？

     我有的产品表，订单详情表，用产品编号建立了关联，订单详情里有 列 用户名   列  订单日期

   我在产品表里做了一个产品预览的窗口，查看图片，在这个窗口上加了一个按钮 叫 加入购物车，想点击一下，直接把产品加入到订单详情表中，    因为要合成订单，所以要验证 “今天”的订单详情里，是否有这个产品编号，如果有，产品数量+1，如果没有新增加一个订单详情，产品信息同步到详情里，代码如下

Dim r1 As Row = Tables("产品库").Current
Dim dr As DataRow
        dr = DataTables("订单详情").Find("[产品编号] = '" & e.Table.Current("产品编号") & "'And [订单日期]= 'Date.Today'")

Dim r2 As Row = Tables("订单详情").AddNew

r2("产品型号") = r1("产品型号")

r2("产品编号") = r1("产品编号")

r2("供应商") = r1("供应商")

。。。。。

提示：Table不属于。。。。。。。

代码该怎样写呢？

数量+1,

代码怎么写啊？