参考代码，把红色代码替换成50即可

select a.* from (Select 店铺名称, 货号, sum(订单数量) as 总数量 from {表c} group by 店铺名称, 货号) as a where 1 > (select count(*) from (Select 店铺名称, 货号, sum(订单数量) as 总数量 from {表c} group by 店铺名称, 货号) as b where b.店铺名称 = a.店铺名称 and b.总数量 > a.总数量 ) order by a.店铺名称, a.总数量

是不是你的数据量太大？你做个有数据的例子上来看看，比如导入 1千行、1万行数据测试。

 不要用sql语句来做，结合代码

Dim idx As String = "-1,"
Dim idx_temp As String = ""
Dim pdr As DataRow = Nothing
Dim count As Integer = 0
Dim cs As String = "店铺名称"
For Each dr As DataRow In DataTables("表A").Select("", "店铺名称, 订单数量 desc")
    Dim flag As Boolean = False
    If pdr IsNot Nothing Then
        For Each c As String In cs.split(",")
            If pdr(c) <> dr(c) Then
                flag = True
                Exit For
            End If
        Next
    End If
    If flag Then
        idx &= idx_temp
        count = 1
        idx_temp = dr("_Identify") & ","
    Else
        count += 1
        If count <= 50 Then
            idx_temp &= dr("_Identify") & ","
        End If
    End If
   
    pdr = dr
Next
msgbox("查询完毕")
If count <= 50 Then
    idx &= idx_temp
End If
Tables("表A").filter = "_Identify in (" & idx.trim(",") & ")"
Tables("表A").sort = "店铺名称, 订单数量 desc"