筛选统计问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选统计问题

共有4100人关注过本帖树形打印复制链接主题：筛选统计问题

0855yangjing

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：婴狐帖子：36 积分：321 威望：0 精华：0 注册：2020/6/7 23:33:00

筛选统计问题 发帖心情

Post By：2021/7/25 20:09:00 [只看该作者]

老师，我的表，筛选统计怎么编程，上传的表格里面，左边是数据表，右边是统计结果！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:军用物资.xlsx

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：111414 积分：567140 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/7/25 20:25:00 [只看该作者]

Dim r As Row

Dim slit() As String = {"A","B","C","D"}

Dim idx As Integer = 0

For Each s As String In DataTables("军工布置表").GetValues("军工布置")

r = Tables("军工位置布置统计表").AddNew

r("军工布置") = s

Dim lst As List(of String) = DataTables("军工布置表").GetValues("位置代码","军工布置='" & s & "'")

Dim s1 As String = lst(0)

Dim s2 As String = lst(0)

For ias Integer = 1 To lst.Count - 1

If cint(s1)+1 <> cint(lst(i)) Then

s2 = s2 & "--" & s1

r(slit(idx) & "号码") = s2

s2 = lst(i)

idx += 1

End If

s1 = lst(i)

主题：筛选统计问题