以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何统计非重复数据的数量  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169698)

--  作者:lal021962
--  发布时间:2021/6/26 19:29:00
--  如何统计非重复数据的数量
如下代码:

Dim Total As Double
Dim Amount As Double
Dim sum As Double
Dim sun As Double
With Tables("工厂明细数据主窗口_Table1")
    Total = .Compute("Sum(总价)")
    Amount = .Compute("Sum(总数)")
sum = .Compute("count(商品编号)")
sun = .Compute("count(商品属性)")
End With
Forms("工厂明细数据主窗口").Controls("textbox1").Value = Amount
Forms("工厂明细数据主窗口").Controls("textbox2").Value = Total
Forms("工厂明细数据主窗口").Controls("textbox3").Value = sum
Forms("工厂明细数据主窗口").Controls("textbox11").Value = sun

请问如果要统计商品编号列非重复数据的数量和商品属性列非重复数量,代码如何更改

--  作者:cnsjroom
--  发布时间:2021/6/27 3:48:00
--  回复:(lal021962)如何统计非重复数据的数量
DataTables("xx").GetComboListString("商品编号")
先获取不重复商品编号 然后再统计

--  作者:lal021962
--  发布时间:2021/6/27 16:59:00
--  
这个公式是用于统计datatables里的所有数据的吧,那如何统计"工厂明细数据主窗口_Table1"这个表里的数据
--  作者:有点蓝
--  发布时间:2021/6/27 22:10:00
--  
msgbox(Tables("工厂明细数据主窗口_Table1").datatable.getvalues("商品编号",Tables("工厂明细数据主窗口_Table1").filter).count)