以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何写一个统计列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149702)
--  作者：ygg8310
--  发布时间：2020/5/9 15:45:00
--  如何写一个统计列
例如这个
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.rar
我想实现在数量列显示各个产品的数量

Dim Sum As Integer
Dim i As Integer = 1

For Each r As Row In Tables("表A").Rows

后面就不会了，怎么破？
--  作者：有点蓝
--  发布时间：2020/5/9 15:52:00
--  
没看懂。要什么效果？手工填写一下截图看看
--  作者：ygg8310
--  发布时间：2020/5/9 15:58:00
--  
这样的
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2.rar
--  作者：有点蓝
--  发布时间：2020/5/9 16:28:00
--  
For Each s As String In DataTables("表A").GetValues("产品")
    Dim cnt As Integer = DataTables("表A").Compute("count(产品)","产品=\'" & s & "\'")
    DataTables("表A").ReplaceFor("数量",cnt,"产品=\'" & s & "\'")
Next
--  作者：ygg8310
--  发布时间：2020/5/21 23:00:00
--  
老师
For Each s As String In DataTables("表B").GetValues("产品|品名")
    Dim cnt As Integer = DataTables("表B").Compute("count(产品)","产品 =\'" & s("产品") & "\' And 品名 =\'" & s("品名") & "\'")
    DataTables("表B").ReplaceFor("数量",cnt,"产品=\'" & s("产品") & "\' And 品名=\'" & s("品名") & "\'")
Next
这个该怎么改？
--  作者：有点蓝
--  发布时间：2020/5/21 23:17:00
--  
For Each s As String() In DataTables("表B").GetValues("产品|品名")
    Dim cnt As Integer = DataTables("表B").Compute("count(产品)","产品 =\'" & s(0) & "\' And 品名 =\'" & s(1) & "\'")
    DataTables("表B").ReplaceFor("数量",cnt,"产品=\'" & s(0) & "\' And 品名=\'" & s(1) & "\'")
Next