以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何计算和填充总行数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149494)

--  作者:yfy13338431925
--  发布时间:2020/5/4 14:14:00
--  如何计算和填充总行数
计算总数,错在什么地方

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


--  作者:有点酸
--  发布时间:2020/5/4 14:26:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目147.table


--  作者:yfy13338431925
--  发布时间:2020/5/4 14:39:00
--  
酸哥哥,您的版本高,我打不开,代码复制上来吧
--  作者:yfy13338431925
--  发布时间: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


--  作者:有点酸
--  发布时间:2020/5/4 14:57:00
--  
GetChildRows必须是已经建立关联的时候才能用,
你是模拟关联,只能用Compute:

--  作者:yfy13338431925
--  发布时间:2020/5/4 16:01:00
--  
酸哥哥,求您把代码复制一下吧,搞不定
--  作者:有点酸
--  发布时间: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