Foxtable(狐表)用户栏目专家坐堂 → 买卡代码


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

主题:买卡代码

帅哥哟,离线,有人找我吗?
youyuweinihao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1890 威望:0 精华:0 注册:2011/6/10 9:12:00
买卡代码  发帖心情 Post By:2011/7/29 14:36:00 [只看该作者]

 需求:做服务行业会员管理,一个人可以买一个或多个套餐,一个套餐包含一个或多个服务。我建了套餐和服务两张表,并做了关联,用来定义套餐。
我还加了一个消费明细表
我需要选择好套餐,点击“购买”按钮。套餐相对应的信息会添加到消费明细表中
还有再次购买是,服务项目的数量可以自动累加。
请问“购买”按钮的代码怎么写

 回到顶部
帅哥哟,离线,有人找我吗?
狐哥
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2011/7/29 14:41:00 [只看该作者]

刚好下午没事,你将表贴上来

 

GetChildRows

返回一个DataRow集合,集合中包括指定子表中和该行对应的全部关联行,语法:

GetChildRows(ChildName)

ChildName: 子表名称。

示例

假定产品表和订单表之间通过产品编号建立了关联,下面的代码获得第一个产品的全部订单,并将这些订单的折扣设为0.1:

Dim drs As List(Of Datarow)
drs =
DataTables("产品").DataRows(0).GetChildRows("订单")
For Each
dr As DataRow In drs
    dr(
"折扣") = 0.1

Next

[此贴子已经被作者于2011-7-29 14:53:25编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
youyuweinihao
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1890 威望:0 精华:0 注册:2011/6/10 9:12:00
  发帖心情 Post By:2011/7/29 14:51:00 [只看该作者]

怎么贴表啊

 回到顶部
帅哥哟,离线,有人找我吗?
狐哥
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:719 积分:5181 威望:0 精华:1 注册:2008/9/24 10:41:00
  发帖心情 Post By:2011/7/29 14:56:00 [只看该作者]

利用AddNew()应可以了

 回到顶部
帅哥哟,离线,有人找我吗?
youyuweinihao
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1890 威望:0 精华:0 注册:2011/6/10 9:12:00
  发帖心情 Post By:2011/7/29 15:02:00 [只看该作者]

这些表包括会员名字、已购服务包、服务名称这些

 回到顶部