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
[此贴子已经被作者于2013-7-30 14:53:25编辑过]