Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计表单元格drawcell绘图不执行


  共有4975人关注过本帖树形打印复制链接

主题：统计表单元格drawcell绘图不执行
帅哥哟，离线，有人找我吗？
weibu
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2022/10/22 10:52:00 [只看该作者]

老这个泡泡图支持双击某个泡泡弹出一个窗口，就是定位泡泡生成的数据行吗？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106381 积分：541046 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/22 11:16:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2022/10/22 12:23:00 [只看该作者]

Series2.TooltipText = "X = {#XVAL}, Y = {#YVAL}"                        显示的数据跟进数据点编号定位r("pname") & r("qdate")的具体值，然后显示出来。
Dim i2 As Integer = 0
For Each dr As DataRow In DataTables("mcheck").SQLSelect("fruit = '" & ft & "' And work is null")
Dim r As DataRow = DataTables("mcheck").SQLFind("work = '" & wk & "' And pers And qdate = '" & dr("qdate") & "'")
    If r IsNot Nothing Then
    i2 = i2 + 1
    Series2.X(i2) = dr("averagevalue") '指定水平坐标
    Series2.Y(i2) = r("averagevalue") '垂直坐标用随机数生成
    Series2.Y1(i2) = 0.1 '泡的大小用随机数生成 
                           在这个地方添加代码储存r("pname") & r("qdate")的集合，同时储存生成的图的数据点编号
    End If 
Next
Chart2.AxisX.Text = ft
Chart2.AxisY.Text = wk
End If


Dim wid As New List(Of String) 
Dim bh As New List(Of String)
wid.Add(r("pname") & r("qdate"))
bh.Add({#IPOINT})
Dim hi As Integer = Indexof()                        老师我想在TooltipText对应的图号中显示出来这个值：    r("pname") & r("qdate")；    我的想法是把图号和这个值

老师咱们修改上面代码啊？我改了一上午没实现，求助
 回到顶部
帅哥哟，离线，有人找我吗？
weibu
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：641 积分：5194 威望：0 精华：0 注册：2018/5/19 22:27:00 		  发帖心情 Post By：2022/10/22 14:13:00 [只看该作者]

老师下面蓝色的是我想实现的逻辑，就是把显示的值和数据编号都存成集合。然后再查找对应编号的值；但是报错。

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20221022141248.png
图片点击可在新窗口打开查看


Series2.LinePattern = LinePatternEnum.None '不显示数据点之间的联线
Dim wid As New List(Of String) 
Dim bh As New List(Of String)
Dim i2 As Integer = 0
For Each dr As DataRow In DataTables("mcheck").SQLSelect("fruit = '" & ft & "' And work is null")
Dim r As DataRow = DataTables("mcheck").SQLFind("work = '" & wk & "' And pers And qdate = '" & dr("qdate") & "'")
    If r IsNot Nothing Then
    i2 = i2 + 1
    Series2.X(i2) = dr("averagevalue") '指定水平坐标
    Series2.Y(i2) = r("averagevalue") '垂直坐标用随机数生成
    Series2.Y1(i2) = 0.1 '泡的大小用随机数生成 
    wid.Add(r("pname") & r("qdate"))
    bh.Add({#IPOINT})
    End If 
Next
Chart2.AxisX.Text = ft
Chart2.AxisY.Text = wk
Dim hi As Integer = Indexof({#IPOINT})
Series2.TooltipText = "X = {#XVAL}, Y = {#YVAL},wid(hi)"
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106381 积分：541046 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/10/22 14:27:00 [只看该作者]

TooltipText 只能显示x轴y轴以及序号的值，无法显示其它数据

Series2.LinePattern = LinePatternEnum.None '不显示数据点之间的联线
Dim i2 As Integer = 0
For Each dr As DataRow In DataTables("mcheck").SQLSelect("fruit = '" & ft & "' And work is null")
Dim r As DataRow = DataTables("mcheck").SQLFind("work = '" & wk & "' And pers And qdate = '" & dr("qdate") & "'")
    If r IsNot Nothing Then
    i2 = i2 + 1
    Series2.X(i2) = dr("averagevalue") '指定水平坐标
    Series2.Y(i2) = r("averagevalue") '垂直坐标用随机数生成
    Series2.Y1(i2) = 0.1 '泡的大小用随机数生成 
    End If 
Next
Chart2.AxisX.Text = ft
Chart2.AxisY.Text = wk

Series2.TooltipText = "X = {#XVAL}, Y = {#YVAL},{#IPOINT}"
End If
 回到顶部
帅哥哟，离线，有人找我吗？
sandy1873
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：13 积分：136 威望：0 精华：0 注册：2024/3/26 17:17:00 		  发帖心情 Post By：2024/4/19 16:37:00 [只看该作者]

查看大神的贴子，唉唉唉

 回到顶部
总数 16 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询