[求助]多行选择后添加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多行选择后添加

共有8227人关注过本帖树形打印复制链接主题：[求助]多行选择后添加

yangrou

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：152 积分：1479 威望：0 精华：0 注册：2012/4/4 14:09:00

[求助]多行选择后添加 发帖心情

Post By：2012/5/17 15:07:00 [只看该作者]

现有产品表和订单表，要实现在产品表选择多个后，按浮动按钮”添加到订单表“，订单表自动生成“订单编号”和“订购日期”，产品表的“订单编号”栏也自动生成和订单表中同样的订单编号，并保存。以上功能该怎么实现？

[此贴子已经被作者于2012-5-17 15:10:00编辑过]

yangrou

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：152 积分：1479 威望：0 精华：0 注册：2012/4/4 14:09:00

Post By：2012/5/17 15:08:00 [只看该作者]

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

yangrou

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：152 积分：1479 威望：0 精华：0 注册：2012/4/4 14:09:00

Post By：2012/5/17 15:32:00 [只看该作者]

谢谢~！

最后一行‘end if’应写成‘next’吧？

主题：[求助]多行选择后添加