以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  不重复计数,计算公式怎么写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178392)

--  作者:min-fox
--  发布时间:2022/7/2 19:28:00
--  不重复计数,计算公式怎么写
蓝老师:
表A第一列有如下数据
A
A
B
C
C
需求计数=3
公式如何?

Dim Products As List(Of String)
Products = DataTables("表A").GetValues("第一列")
For Each Product As String In Products 
    Output.Show(DataTables("表A").Compute("Count(Product)") )
Next

如果写在excel单元格中,该怎样写
[此贴子已经被作者于2022/7/2 21:26:35编辑过]

--  作者:有点蓝
--  发布时间:2022/7/3 20:17:00
--  
Dim Products As List(Of String)
Products = DataTables("表A").GetValues("第一列")
msgbox(Products.count)

--  作者:min-fox
--  发布时间:2022/7/3 23:26:00
--  
蓝老师:把Products.count这个值插入到excel表中的单元格中,该怎么做?
利用帮助的“标记使用”一节,没有搞懂

--  作者:有点蓝
--  发布时间:2022/7/4 8:31:00
--  
http://www.foxtable.com/webhelp/topics/2626.htm
--  作者:min-fox
--  发布时间:2022/7/4 14:15:00
--  
蓝老师:
Dim Products As List(Of String)
Products = DataTables("表A").GetValues("第一列")
msgbox(Products.count)
在命令窗口用下面代码
Output.show(Products.count)则不可以,两者用法的区别是什么

--  作者:有点蓝
--  发布时间:2022/7/4 14:19:00
--  
肯定是可以的

msgbox会弹出一个提示框
Output.show只能显示到命令窗口的结果区域


--  作者:min-fox
--  发布时间:2022/7/5 14:53:00
--  
蓝老师:窗口主.子表关联,在计数子表“第一列”不重复个数时,统计的是全部子表
Dim TET As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim Products As List(Of String)
Products = DataTables("子表").GetValues("第一列", "第一列 Is  not Null")
TET.TEXT = Products.count
实例发给您看看,不知如何改
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目50.table

[此贴子已经被作者于2022/7/5 14:54:38编辑过]

--  作者:有点蓝
--  发布时间:2022/7/5 15:14:00
--  
没看懂。请填入测试数据,然后说明什么数据计算不准确
--  作者:min-fox
--  发布时间:2022/7/5 15:32:00
--  
数据填了,需要计算关联子表的第一列不重复数据,结果计算的输出整个子表的第一列不重复个数

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


--  作者:有点蓝
--  发布时间:2022/7/5 15:46:00
--  
有什么数据?还都是空表!

如果只要统计关联表的数据,加上父表的关联列作为条件即可
Products = DataTables("子表").GetValues("第一列", "第一列 Is  not Null and 关联列=\'" & tables(父表).current(“关联列”) & "\'")