主题：[求助] 看下这样统计数据显示可以吗？

做出来不难，看代码能不能简洁。

明早上传。

 

控件布局太费事了，不得已，加了点动态增加控件的代码。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:分类统计分页显示.table

只是瞎弄，见笑。

Dim values() As String = {"终端机总数","开机","关机","仓库","中心","TPT","TPT-1","CJ3000","CP86-08","CP86-09","BCR","高1","竞2","电3","即4","副机","中心"}
Dim str As List (Of String) = DataTables("设备管理").GetUniqueValues("地区 Is Not Null","地区")
str.Add("全国")
Dim str1 As String
str1 = "Select 地区,Count(地区) As 终端机总数,Sum(IIf(状态 = '开机',1,0)) As 开机,Sum(IIf(状态 = '关机',1,0)) As 关机,"
str1 = str1 & "Sum(IIf(状态 = '仓库',1,0)) As 仓库, Sum(IIf(状态 = '中心',1,0)) As 中心,Sum(IIf(终端机_型号 = 'TPT',1,0)) As TPT,"
str1 = str1 & "Sum(IIf(终端机_型号 = 'TPT-1',1,0)) As TPT-1,Sum(IIf(终端机_型号 = 'CJ3000',1,0)) As CJ3000,Sum(IIf(终端机_型号 = 'CP86-08',1,0)) As CP86-08,"
str1 = str1 & "Sum(IIf(终端机_型号 = 'CP86-09',1,0)) As CP86-09,Sum(IIf(即1终端机型号 = 'BCR',1,0)) As BCR,Sum(IIf(高1= '有高1',1,0)) As 高1,"
str1 = str1 & "Sum(IIf(竞2 = '有竞2',1,0)) As 竞2,Sum(IIf(类型 = '电3',1,0)) As 电3,Sum(IIf(类型 = '即4',1,0)) As 即4,Sum(IIf(类型 = '副机',1,0)) As 副机,"
str1 = str1 & "Sum(IIf(类型 = '副机',1,0)) As 副机,Sum(IIf(类型 = '中心',1,0)) As 中心 "
str1 = str1 & " From {设备管理} Group by 地区"
Dim cmd As New SQLCommand
cmd.ConnectionName = ""
cmd.CommandText = str1

起码，列名不能重复吧。

这个需要和窗口控件完全配合的，不知你的控件名称是怎么配合查询表的列名。