Foxtable(狐表)用户栏目专家坐堂 → 如何计算和填充总行数


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

主题:如何计算和填充总行数

美女呀,离线,留言给我吧!
yfy13338431925
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
如何计算和填充总行数  发帖心情 Post By:2020/5/4 14:14:00 [只看该作者]

计算总数,错在什么地方

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目38 (1).table


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


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2020/5/4 14:26:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目147.table


 回到顶部
美女呀,离线,留言给我吧!
yfy13338431925
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
  发帖心情 Post By:2020/5/4 14:39:00 [只看该作者]

酸哥哥,您的版本高,我打不开,代码复制上来吧

 回到顶部
美女呀,离线,留言给我吧!
yfy13338431925
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
  发帖心情 Post By:2020/5/4 14:45:00 [只看该作者]

代码错在哪里?

Dim t1 As Table = e.Form.Controls("Table2").Table
For Each r As Row In t1.Rows
    r("总数量") = r.DataRow.GetChildRows("产品编号").Count
   Next


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


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2020/5/4 14:57:00 [只看该作者]

GetChildRows必须是已经建立关联的时候才能用,
你是模拟关联,只能用Compute:

 回到顶部
美女呀,离线,留言给我吧!
yfy13338431925
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:512 积分:4492 威望:0 精华:0 注册:2018/12/5 23:10:00
  发帖心情 Post By:2020/5/4 16:01:00 [只看该作者]

酸哥哥,求您把代码复制一下吧,搞不定

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


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2020/5/4 19:14:00 [只看该作者]

Dim t1 As Table = e.Form.Controls("Table2").Table
For Each r As Row In t1.Rows
    r("总数量") = DataTables("订单表").Compute("Count(_Identify)", "[产品编号] = '" & r("产品编号") & "'")
Next

 回到顶部