做个做个按钮“加入购物车”:
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
加好友 
发短信
Post By：2012/3/19 17:13:00 [显示全部帖子]
