VB.NET创建类Excel XY散点图遇结果差异及代码报错求助

核心问题分析 #

• 图表类型错误：你当前使用的SeriesChartType.Point是分类轴点图，并非真正的XY散点图。Excel的XY散点图会将X轴作为数值轴处理，而Point类型会把X轴当作分类轴，这是两者显示差异的根本原因。
• X轴数据类型错误：你将日期转成字符串传入AddXY，导致X轴被识别为分类轴，无法像Excel那样按时间顺序和数值刻度渲染。
• Syncfusion代码报错：大概率是命名空间未正确导入，或者控件类型混用（同时用微软Chart和Syncfusion Chart）。

解决方案 #

针对微软WinForms Chart控件（当前代码使用的控件） #

1. 将图表类型改为Scatter，替换原有的Point类型
2. X轴传入DateTime类型数据，而非字符串，让轴自动识别为数值轴
3. 清理代码中冗余的With块操作

修正后的代码：

Hourly_Chart.Title.Add("CRS Weekly")
Hourly_Chart.ChartAreas.Clear()
Dim defaultArea As ChartArea = Hourly_Chart.ChartAreas.Add("Default")
Hourly_Chart.Series.Clear() ' 直接清理Series，无需嵌套在ChartArea的With块内

' 配置X轴（日期数值轴）
With defaultArea.AxisX
    .Title = "Date"
    .IsLogarithmic = False
    .LabelStyle.Format = "yyyy-MM-dd HH:mm" ' 设置日期显示格式
End With

With defaultArea.AxisY
    .Title = "Counts"
    .IsLogarithmic = True
End With

' 添加散点图系列
Dim cr1Series As Series = Hourly_Chart.Series.Add("CR1")
cr1Series.Color = Color.Green
cr1Series.ChartType = DataVisualization.Charting.SeriesChartType.Scatter ' 使用真正的散点图类型

For i1 As Integer = 1 To CountsOfCR1Rows
    Dim y1 As Single = One01_a2Darray(i1, 44)
    If y1 = 0 Then y1 = 1 ' 避免对数轴出现0值报错
    
    ' 将日期字符串解析为DateTime类型
    Dim xDate As DateTime
    If DateTime.TryParse(One01_a2Darray(i1, 1).Replace("T", " "), xDate) Then
        cr1Series.Points.AddXY(xDate, y1)
    End If
Next

针对Syncfusion WinForms Chart控件 #

确保已引用Syncfusion.Chart.WinForms.dll并导入命名空间Imports Syncfusion.Windows.Forms.Chart，修改代码如下：

Hourly_Chart.Text = "CRS Weekly"
Hourly_Chart.ChartAreas.Clear()
Dim chartArea As ChartArea = Hourly_Chart.ChartAreas.Add("Default")
Hourly_Chart.Series.Clear()

' 配置轴
With chartArea.PrimaryXAxis
    .Title = "Date"
    .ValueType = ChartValueType.DateTime
    .LabelStyle.Format = "yyyy-MM-dd HH:mm"
    .LogBase = 1 ' 关闭对数轴
End With

With chartArea.PrimaryYAxis
    .Title = "Counts"
    .ValueType = ChartValueType.Double
    .LogBase = 10 ' 开启对数轴
End With

' 添加散点图系列
Dim scatterSeries As New ChartSeries("CR1", ChartSeriesType.Scatter)
scatterSeries.Style.ForeColor = Color.Green

For i1 As Integer = 1 To CountsOfCR1Rows
    Dim y1 As Single = One01_a2Darray(i1, 44)
    If y1 = 0 Then y1 = 1
    
    Dim xDate As DateTime
    If DateTime.TryParse(One01_a2Darray(i1, 1).Replace("T", " "), xDate) Then
        scatterSeries.Points.Add(New ChartPoint(xDate, y1))
    End If
Next

Hourly_Chart.Series.Add(scatterSeries)

关键说明 #

• 微软Chart的Scatter类型要求X、Y均为数值类型（DateTime本质是数值），而Point类型基于分类轴，每个X值都是独立分类，这和Excel XY散点图的逻辑完全不同。
• Syncfusion的ChartSeriesType.Scatter必须配合Syncfusion的ChartControl使用，若混用微软Chart控件会出现类型不匹配报错。

内容的提问来源于stack exchange，提问作者Nate