以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  标记所有列下不重复值的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185371)

--  作者:237756360
--  发布时间:2023/2/20 6:45:00
--  标记所有列下不重复值的行
图片点击可在新窗口打开查看
求助:上面的表。如何实现:当 “第一列”,“第二列”,“第三列”,“第四列”,的值都不重复时,“第五列”是 True,否则是False



--  作者:有点蓝
--  发布时间:2023/2/20 8:41:00
--  
参考:http://www.foxtable.com/webhelp/topics/1478.htm,筛选显示唯一值,然后勾选上。
--  作者:237756360
--  发布时间:2023/2/20 9:57:00
--  
蓝版,用代码如何实现?
我这个是举例说明,实际是要往第五列,赋值计算的结果,辛苦了

--  作者:有点蓝
--  发布时间:2023/2/20 10:08:00
--  
Dim b As New GroupTableBuilder("统计表1",DataTables("订单"))
b
.Groups.AddDef("第一列")
b
.Groups.AddDef("第二列"
b
.
Groups.AddDef("第三列"
b
.
Groups.AddDef("第四列")
b.Totals.AddDef("第一列",AggregateEnum.Count,"订单数")
dim dt as datatable = b
.Build(true) \'生成统计表 

for each dr as datarow = dt.select("订单数=1")
DataTables("订单").replacefor("第五列",true,"第一列=\'" & dr("第一列") & "\' and 第二列=\'" & dr("第二列") & "\' ...自己补上第三第四列条件")
nect

--  作者:237756360
--  发布时间:2023/2/24 9:32:00
--  
图片点击可在新窗口打开查看
出现错误提示,找了半天不知哪里错了。。。

--  作者:有点蓝
--  发布时间:2023/2/24 9:34:00
--  
改为
for each dr as datarow in dt.select("订单数=1")