[求助]计算非重复值的行数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师您好！

如下图：

此主题相关图片如下：qq截图20230109151504.jpg

如果Tables（不是DataTables）中列“主合同编号”中多行只有一个主合同编号（重复或单个），那么加载指定关联表，否则不加载。

相当于排除重复值后行数等于1就加载，否则不加载关联表。

请问代码怎么写？写在那个表事件？

我的AfterLoad 表事件代码如下：

Tables("支出合同基础数据").Sort = "财务编号"

e.DataTable.LoadChildren("支出合同收支表")

e.DataTable.LoadChildren("支出合同印花税统计表")

e.DataTable.LoadChildren("支出合同补充或决算")

e.DataTable.LoadChildren("支出合同研发成本")

DataTables("支出合同基础数据").DataCols("乙方单位名称").RaiseDataColChanged()

DataTables("支出合同基础数据").Save()

With Tables("支出合同基础数据")

.MergeMode = MergeModeEnum.Standard

.MergeCols.Clear()

.MergeCols.Add("主合同编号")

.MergeCols.Add("财务编号")

.MergeCols.Add("工程名称")

.MergeSort = "主合同编号,财务编号,工程名称"

.AllowMerge = True

End With

[此贴子已经被作者于2023/1/9 15:36:36编辑过]

没理解上面的意思。

比如上面表格20行数据，都是同一个主合同编号的就加载子表数据？

对的，是这个意思，谢谢老师，代码怎么写？

Tables("支出合同基础数据").RepeatFilter("主合同编号", 3)

if Tables("支出合同基础数据").rows.count > 1 then

msgbox("有多个主合同编号")

else

加载子表数据的代码

end if

老师你好！

这样的话，每次加载，“支出合同基础表”表只显示唯一值，有没有直接计算唯一值的数值（也就是上面代码执行后的行数）>1的代码？

以前我做过是在窗口的，设置两个表，一表是隐藏计算，另一个表是显示。

谢谢老师！

[此贴子已经被作者于2023/1/14 12:04:46编辑过]

如果没有的话，那只能在共有窗口加一个隐藏表，就设置一列“主合同编号”，同步加载后计算，这样能行吗？

[此贴子已经被作者于2023/1/14 12:21:27编辑过]

if DataTables("支出合同基础数据").getvalues("主合同编号").count > 1 then

主题：[求助]计算非重复值的行数