- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]选择后跨表添加，多行选择跨表添加 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19579)
-- 发布时间：2012/5/15 10:21:00
-- [求助]选择后跨表添加，多行选择跨表添加
此主题相关图片如下：cp.jpg
此主题相关图片如下：d.jpg
现有产品表和订单表，要实现在产品表选择后，按浮动按钮”添加到订单表“，订单表自动生成“订单编号”和“订购日期”，产品表的“订单编号”栏也自动生成和订单表中同样的订单编号，并保存。以上功能该怎么实现？
[此贴子已经被作者于2012-5-17 14:36:51编辑过]
-- 发布时间：2012/5/15 10:38:00
--
做个按钮：
Dim r1 As Row = Tables("产品").Current
Dim r2 AS Row = Tables("订单").AddNew
r2(“订购日期") = Date.Today
r2("订单编号") = r2("订单编号")
编号的自动生成，参考：
http://www.foxtable.com/help/topics/2403.htm
-- 发布时间：2012/5/15 10:59:00
--
上面代码不能生成订单编号啊~！这个 r2("订单编号") = r2("订单编号") 是不是有问题啊？
-- 发布时间：2012/5/15 11:14:00
--
上面的代码不是生成自动编号的，关于自动编号，请参考：
http://www.foxtable.com/help/topics/2403.htm
-- 发布时间：2012/5/15 11:20:00
--
好吧，谢谢你~！
-- 发布时间：2012/5/17 12:45:00
--
Dim r1 As Row = Tables("产品").Current
Dim r2 AS Row = Tables("订单").AddNew
r2(“订购日期") = Date.Today
r2("订单编号") = r2("订单编号")
定义的r1是干啥用的啊？
-- 发布时间：2012/5/17 12:50:00
--
簡單的手誤,要學會判斷啊:
Dim r1 As Row = Tables("产品").Current
Dim r2 AS Row = Tables("订单").AddNew
r2(“订购日期") = Date.Today
r2("订单编号") = r1("订单编号")
-- 发布时间：2012/5/17 13:18:00
--
~!~#!@#!@@
-- 发布时间：2012/5/17 13:21:00
--
表头表身，自己要设计好，
-- 发布时间：2012/5/17 13:45:00
--
我想一次添加多个，咋弄嘞？