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


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

主题：[求助]选择后跨表添加，多行选择跨表添加
帅哥哟，离线，有人找我吗？
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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangrou
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


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

好吧，谢谢你~！

 回到顶部
帅哥哟，离线，有人找我吗？
yangrou
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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是干啥用的啊？
 回到顶部
帅哥哟，离线，有人找我吗？
yangrou
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

~!~#!@#!@@

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


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

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

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


加好友 发短信
等级：幼狐 帖子：152 积分：1479 威望：0 精华：0 注册：2012/4/4 14:09:00 		  发帖心情 Post By：2012/5/17 14:29:00 [显示全部帖子]

Dim r1 As Row = Tables("产品").Current
Dim r2 As Row = Tables("订单").AddNew
With CurrentTable
    Dim r As Integer
    r = .Find("1", .RowSel + 1,"选择", False, False, True)
    If r > - 1 Then '如果找到符合条件的行
        .Position = r  '则选择该行
        r2("订单编号") = r1("订单编号")
    End If
End With

我试着用上面的公式一次选择多个后添加，可是不行啊
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询