以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]图表事件提示错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193697)

--  作者：lgj716330 --  发布时间：2024/10/3 21:50:00 --  [求助]图表事件提示错误 图表事件 此主题相关图片如下：微信图片_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