图表事件
此主题相关图片如下:微信图片_20241003214152.png
Dim cht As WinForm.Chart = e.Sender
If e.SeriesIndex >= 0 AndAlso e.PointIndex >= 0 Then
Dim info As String
If ModifierKey = Keys.Control Then '如果按下了Ctrl键
Dim r As Row = Tables("图表测试数据").rows(e.PointIndex)
info = r("月份")
For Each cl As Col In Tables("图表测试数据").Cols
If cl.Name <> "年份" And cl.Name <> "月份" And cl.Name <> "品牌" And cl.Name <> "销售增长" Then
info = info & vbCrLf & cl.Name & ":" & r(cl.Name)
End If
Next
Else
Dim nm As String = cht.SeriesList(e.SeriesIndex).Y.DataField
info = "期间:" & nm
For Each r As Row In Tables("图表测试数据").Rows
info = info & vbCrLf & r("月份") & ":" & r(nm)
Next
End If
If info > "" Then
e.ToolTipText = info
End If
End If
生成图表后,鼠标悬浮图上时会跳出如下错误,不知问题在哪里
此主题相关图片如下:微信图片_20241003214916.png