以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [原创]如何快速添加订单?  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=17628)

--  作者:坤哥
--  发布时间:2012/3/19 17:08:00
--  [原创]如何快速添加订单?

     我的软件设计了产品库,如何添加一个按钮,事件设置成打开订单表,自动在订单中录入产品编号,就像淘宝网一样,在浏览产品时,添加一个购物车的按钮,直接加入订单?

     不知道按钮的事件该怎样写,打开订单窗口容易,如何在订单详情的控件中自动录入产品编号呢?


--  作者:狐狸爸爸
--  发布时间:2012/3/19 17:13:00
--  

做个做个按钮“加入购物车”:

 

Dim r1 As Row = Tables("产品").Current

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

r2("列名1") = r1("列名1")

r2("列名2") = r1("列名2")

r2("列名3") = r1("列名4")

r2("其他列1") = 值1

r2("其他列2") = 值2