Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/sql-server/21.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/vb.net/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Sql server 如何使用SQL Server数据库在VB.NET 2019中显示多个图表系列_Sql Server_Vb.net - Fatal编程技术网

Sql server 如何使用SQL Server数据库在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

我已经在VB.NET 2019中创建了图表,我想显示活动和非活动的多个系列,基本上彼此相邻。这是我的代码,我不知道如何为非活动添加另一个系列。为了更好地了解我的喜好,我附上了图片

    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