显示每个程序(x轴)中PWD的数量(y轴)

Question

所需图表

当前图表

嘿，伙计们，我正试着用purok和status列做一个柱状图。如何将PWD和怀孕显示为带有标签和计数的条形图？提前感谢

表名为PWDPregnant|columnName"状态"；适用于PWD/孕妇。|columnName"；purok"；是百事可乐的。

Dim dt As New DataTable
Using pwdcon As New OleDbConnection(con.ConnectionString),
cmd As New OleDbCommand("SELECT purok, status, COUNT(*) As RecCount FROM PWDPregnant GROUP BY purok, status  ORDER BY purok", con)

If con.State = ConnectionState.Closed Then
con.Open()
End If
Using reader = cmd.ExecuteReader
dt.Load(reader)
End Using
End Using
Chart5.Series("PWD").XValueMember = "purok"
Chart5.Series("PWD").YValueMembers = "status"
Chart5.Series("PWD").Label = "#AXISLABEL #VALY"

Chart5.Series("Pregnant").YValueMembers = "status"
Chart5.Series("Pregnant").Label = "#AXISLABEL #VALY"
Chart5.DataSource = dt.DefaultView
Chart5.DataBind()

Answer 1

最后我找到了修复程序，但它仍然无法支持怀孕的第二个系列。

Dim dt As New DataTable
Using pwdcon As New OleDbConnection(con.ConnectionString),
cmd As New OleDbCommand("SELECT purok, status, COUNT (*) as RecCount FROM PWDPregnant WHERE status = @stat GROUP BY purok, status", con)

cmd.Parameters.Add("@stat", OleDb.OleDbType.VarChar).Value = "PWD"

If con.State = ConnectionState.Closed Then
con.Open()
End If
Using reader = cmd.ExecuteReader
dt.Load(reader)
End Using
End Using


Chart5.ChartAreas(0).AxisX.Interval = 1
Chart5.Series("PWD").XValueMember = "purok"
Chart5.Series("PWD").YValueMembers = "RecCount"
Chart5.Series("PWD").Label = "#VALY"
Chart5.DataSource = dt.DefaultView
Chart5.DataBind()