- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]多行选择后添加 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19667)
-- 发布时间：2012/5/17 15:07:00
-- [求助]多行选择后添加
现有产品表和订单表，要实现在产品表选择多个后，按浮动按钮”添加到订单表“，订单表自动生成“订单编号”和“订购日期”，产品表的“订单编号”栏也自动生成和订单表中同样的订单编号，并保存。以上功能该怎么实现？
[此贴子已经被作者于2012-5-17 15:10:00编辑过]
-- 发布时间：2012/5/17 15:08:00
--
-- 发布时间：2012/5/17 15:24:00
--
For Each r1 As DataRow in DataTables("产品").Select("选择 = True")
Dim r2 AS DataRow = DataTables("订单").AddNew
r2(“订购日期") = Date.Today
r2("订单编号") = r1("订单编号")
End if
-- 发布时间：2012/5/17 15:32:00
--
谢谢~！
最后一行‘end if’应写成‘next’吧？