Vb.net 无法在MS图表控件中动态更改SerieChartType

Vb.net 无法在MS图表控件中动态更改SerieChartType,vb.net,winforms,charts,Vb.net,Winforms,Charts,我正在使用MS图表控件(3.5.0版)。 我使用设计器(拖放)添加了它。我从Properties->Series->集合中删除了默认的“Series1”,这样图表就不包含任何数据 我在运行时基于一个固定查询向SQLite数据库添加数据。像这样: Dim SQL As String = "SELECT * FROM ageLength ORDER BY month" Dim cmd As New SQLiteCommand(SQL) Dim SqLiteConnection1 As SQLiteC

我正在使用MS图表控件(3.5.0版)。 我使用设计器(拖放)添加了它。我从Properties->Series->集合中删除了默认的“Series1”,这样图表就不包含任何数据

我在运行时基于一个固定查询向SQLite数据库添加数据。像这样:

Dim SQL As String = "SELECT * FROM ageLength ORDER BY month"
Dim cmd As New SQLiteCommand(SQL)
Dim SqLiteConnection1 As SQLiteConnection = New SQLiteConnection()
SqLiteConnection1.ConnectionString = "Data Source=" & My.Application.Info.DirectoryPath & "\Data\UserData.db3;"
cmd.Connection = SqLiteConnection1
Dim da As New SQLiteDataAdapter(cmd)
Dim ds As New DataSet()
da.Fill(ds, "ageLength")

Dim Series1 As Series = New Series()
Dim Series2 As Series = New Series()
Series1.Name = "Pcnt2nd"
Series1.ChartType = SeriesChartType.Spline
Series2.Name = "Pcnt98th"
Series2.ChartType = SeriesChartType.Spline
Chart1.Series.Add("Pcnt2nd")
Chart1.Series.Add("Pcnt98th")

Chart1.Series("Pcnt2nd").XValueMember = "month"
Chart1.Series("Pcnt2nd").YValueMembers = "Pcnt2nd"
Chart1.Series("Pcnt98th").XValueMember = "month"
Chart1.Series("Pcnt98th").YValueMembers = "Pcnt98th"
Chart1.DataSource = ds.Tables(0)

数据显示在图表上,但它是条形图。我将其设置为两个系列都使用样条线类型。我不确定我错过了什么。非常感谢您的任何意见。

在做了大量工作之后,我找到了解决方案: 我删除这两行:

Series1.ChartType = SeriesChartType.Spline
Series2.ChartType = SeriesChartType.Spline
Chart1.Series("Pcnt2nd").ChartType = DataVisualization.Charting.SeriesChartType.Line
Chart1.Series("Pcnt98th").ChartType = DataVisualization.Charting.SeriesChartType.Line
然后我加上这两行:

Series1.ChartType = SeriesChartType.Spline
Series2.ChartType = SeriesChartType.Spline
Chart1.Series("Pcnt2nd").ChartType = DataVisualization.Charting.SeriesChartType.Line
Chart1.Series("Pcnt98th").ChartType = DataVisualization.Charting.SeriesChartType.Line

不知道为什么会这样……但你已经知道了。

在做了大量的胡闹之后,我找到了解决方案: 我删除这两行:

Series1.ChartType = SeriesChartType.Spline
Series2.ChartType = SeriesChartType.Spline
Chart1.Series("Pcnt2nd").ChartType = DataVisualization.Charting.SeriesChartType.Line
Chart1.Series("Pcnt98th").ChartType = DataVisualization.Charting.SeriesChartType.Line
然后我加上这两行:

Series1.ChartType = SeriesChartType.Spline
Series2.ChartType = SeriesChartType.Spline
Chart1.Series("Pcnt2nd").ChartType = DataVisualization.Charting.SeriesChartType.Line
Chart1.Series("Pcnt98th").ChartType = DataVisualization.Charting.SeriesChartType.Line
不知道为什么…但你已经知道了