主题：查找重复值出错

Dim q As new QueryBuilder
q.TableName = "重复档号统计"
If CurrentTable Is Tables("ajk") Then
q.SelectString = "select distinct dh as 档号,(select count(*) from {ajk} tb where tb.dh=ta.dh) as 重复数量 from {ajk} ta"
End If
q.Build()
MainTable = Tables("重复档号统计")

 

 

说明：表名为ajk，字段均为字符，dh表示档号的意思

此主题相关图片如下：未命名谔.jpg