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


  共有9103人关注过本帖树形打印复制链接

主题：[求助]选择后跨表添加，多行选择跨表添加
帅哥哟，离线，有人找我吗？
yangrou
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：152 积分：1479 威望：0 精华：0 注册：2012/4/4 14:09:00 		[求助]选择后跨表添加，多行选择跨表添加  发帖心情 Post By：2012/5/15 10:21:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：cp.jpg
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下：d.jpg
图片点击可在新窗口打开查看

现有产品表和订单表，要实现在产品表选择后，按浮动按钮”添加到订单表“，订单表自动生成“订单编号”和“订购日期”，产品表的“订单编号”栏也自动生成和订单表中同样的订单编号，并保存。以上功能该怎么实现？
[此贴子已经被作者于2012-5-17 14:36:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：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

 

 

 

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
yangrou
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：152 积分：1479 威望：0 精华：0 注册：2012/4/4 14:09:00 		  发帖心情 Post By：2012/5/15 10:59:00 [只看该作者]

上面代码不能生成订单编号啊~！这个   r2("订单编号") = r2("订单编号")  是不是有问题啊？

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/5/15 11:14:00 [只看该作者]

上面的代码不是生成自动编号的，关于自动编号，请参考：

http://www.foxtable.com/help/topics/2403.htm

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
yangrou
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：152 积分：1479 威望：0 精华：0 注册：2012/4/4 14:09:00 		  发帖心情 Post By：2012/5/15 11:20:00 [只看该作者]

好吧，谢谢你~！

 回到顶部
帅哥哟，离线，有人找我吗？
yangrou
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：152 积分：1479 威望：0 精华：0 注册：2012/4/4 14:09:00 		  发帖心情 Post By：2012/5/17 12:45:00 [只看该作者]

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

Dim r2 AS Row = Tables("订单").AddNew

r2(“订购日期") = Date.Today
r2("订单编号") = r2("订单编号")



定义的r1是干啥用的啊？
 回到顶部
帅哥哟，离线，有人找我吗？
FoxMan
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00 		  发帖心情 Post By：2012/5/17 12:50:00 [只看该作者]

簡單的手誤,要學會判斷啊:

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

Dim r2 AS Row = Tables("订单").AddNew

r2(“订购日期") = Date.Today
r2("订单编号") = r1("订单编号")

 回到顶部
帅哥哟，离线，有人找我吗？
yangrou
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：152 积分：1479 威望：0 精华：0 注册：2012/4/4 14:09:00 		  发帖心情 Post By：2012/5/17 13:18:00 [只看该作者]

~!~#!@#!@@

 回到顶部
帅哥哟，离线，有人找我吗？
hp001
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：242 积分：1775 威望：0 精华：0 注册：2012/5/9 16:10:00 		  发帖心情 Post By：2012/5/17 13:21:00 [只看该作者]

表头表身，自己要设计好，

 回到顶部
帅哥哟，离线，有人找我吗？
yangrou
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：152 积分：1479 威望：0 精华：0 注册：2012/4/4 14:09:00 		  发帖心情 Post By：2012/5/17 13:45:00 [只看该作者]

我想一次添加多个，咋弄嘞？

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询