| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 产品编号，跨表查找验证问题？帮我看看代码那里错了？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21829) |
| -- 作者：坤哥 -- 发布时间：2012/7/25 17:02:00 -- 产品编号，跨表查找验证问题？帮我看看代码那里错了？ 我有的产品表，订单详情表，用产品编号建立了关联，订单详情里有 列 用户名 列 订单日期
我在产品表里做了一个产品预览的窗口，查看图片，在这个窗口上加了一个按钮 叫 加入购物车，想点击一下，直接把产品加入到订单详情表中， 因为要合成订单，所以要验证 “今天”的订单详情里，是否有这个产品编号，如果有，产品数量+1，如果没有新增加一个订单详情，产品信息同步到详情里，代码如下
Dim r1 As Row = Tables("产品库").Current
数量+1 如果不存在 Dim r2 As Row = Tables("订单详情").AddNew r2("产品型号") = r1("产品型号") r2("产品编号") = r1("产品编号") r2("供应商") = r1("供应商") 。。。。。
提示：Table不属于。。。。。。。
代码该怎样写呢？
|
| -- 作者：狐狸爸爸 -- 发布时间：2012/7/25 17:14:00 -- Dim r1 As Row = Tables("产品库").Current Dim dr As DataRow dr = DataTables("订单详情").Find("[产品编号] = \'" & r1("产品编号") & "\' And [订单日期]= #" & Date.Today & "#") [此贴子已经被作者于2012-7-25 17:15:51编辑过]
|
| -- 作者：坤哥 -- 发布时间：2012/7/25 18:11:00 -- 数量+1,
代码怎么写啊？ |
| -- 作者：坤哥 -- 发布时间：2012/7/25 18:21:00 -- 可以了，直接dr("数量")=dr("数量")+1，就可以了 |