Sql server 如何使用SQL Server数据库在VB.NET 2019中显示多个图表系列
我已经在VB.NET 2019中创建了图表,我想显示活动和非活动的多个系列,基本上彼此相邻。这是我的代码,我不知道如何为非活动添加另一个系列。为了更好地了解我的喜好,我附上了图片Sql server 如何使用SQL Server数据库在VB.NET 2019中显示多个图表系列,sql-server,vb.net,Sql Server,Vb.net,我已经在VB.NET 2019中创建了图表,我想显示活动和非活动的多个系列,基本上彼此相邻。这是我的代码,我不知道如何为非活动添加另一个系列。为了更好地了解我的喜好,我附上了图片 With Chart1 .Series.Clear() .Series.Add("Series1") End With Dim con As SqlConnection = New SqlConnection(MYCON) con.O
With Chart1
.Series.Clear()
.Series.Add("Series1")
End With
Dim con As SqlConnection = New SqlConnection(MYCON)
con.Open()
Dim dadapter As SqlDataAdapter = New SqlDataAdapter("with union_cte as (
select [DESC], 1 sort_order,
SUM(case when [status]='ACTIVE' THEN 1 ELSE 0 END) [Active],
SUM(case when [status]='INACTIVE ' THEN 1 ELSE 0 END) [INACTIVE],
count(*) [TOTAL]
from [master]
group by [DESC]
union all
select 'TOTAL', 2 sort_order,
SUM(case when [status]='ACTIVE' THEN 1 ELSE 0 END) [Active],
SUM(case when [status]='INACTIVE ' THEN 1 ELSE 0 END) [INACTIVE],
count(*) [TOTAL]
from [master])
select *
from union_cte
order by sort_order, [DESC];", con)
dadapter.Fill(dset, "DESC")
Chart1.DataSource = dset.Tables("DESC")
Dim series1 As Series = Chart1.Series("Series1")
series1.ChartType = SeriesChartType.Column
series1.Name = "ACTIVE"
With Chart1
.Series(0)("ColumnLabelStyle") = "Outside"
.Series(0).BorderWidth = 1
.Series(0).BorderColor = System.Drawing.Color.FromArgb(0, 0, 0)
.ChartAreas(0).Area3DStyle.Enable3D = True
.Series(series1.Name).XValueMember = "DESC"
.Series(series1.Name).YValueMembers = "ACTIVE"
.Series(0).LabelFormat = "{#,##0}"
.Series(0).IsValueShownAsLabel = True
.Titles.Add("DESC")
End With