Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]条形图颜色填充


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

主题：[求助]条形图颜色填充
帅哥哟，离线，有人找我吗？
lgj716330
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1399 积分：10810 威望：0 精华：0 注册：2013/11/8 15:27:00 		[求助]条形图颜色填充  发帖心情 Post By：2024/10/5 23:00:00 [只看该作者]

采用逛逛老兄的多彩条形图http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=66247&replyID=&skin=1设置条形图颜色，并进行了简单修改，仅对最大最小值形状设置不同颜色，有什么办法能让配色方案仍保持对其他形状的影响
函数部分修改如下：
Dim A As Double = Tables("图表测试数据").Compute("Max(本期销售)") '计算最大值
Dim B As Double = Tables("图表测试数据").Compute("Min(本期销售)") '计算最小值
Dim dr, dr2 As DataRow
dr = DataTables("图表测试数据").Find("[本期销售] = " & A & "") '找到最大值的行
dr2 = DataTables("图表测试数据").Find("[本期销售] = " & B & "") '找到最小值的行
Dim wz, wz2 As Integer
If dr IsNot Nothing Then
     wz = Tables("图表测试数据").FindRow(dr) '获取最大值的行号
End If
If dr2 IsNot Nothing Then
     wz2 = Tables("图表测试数据").FindRow(dr2) '获取最小值的行号
End If
If WZ > 0 And wz2 > 0 Then 
    Select Case X
        Case wz + 1 
            ps.LineStyle.Color = Color.Green
        Case wz2 + 1 
            ps.LineStyle.Color = Color.red
        Case Else
            ps.LineStyle.Color = Color.Gold
    End Select
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没看懂【让配色方案仍保持对其他形状的影响】指什么，截图说明一下

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


加好友 发短信
等级：六尾狐 帖子：1399 积分：10810 威望：0 精华：0 注册：2013/11/8 15:27:00 		  发帖心情 Post By：2024/10/6 15:57:00 [只看该作者]

如下图中对最大和最小值设置了不同颜色，希望上方的配色方案的选择能对图中黄色部分仍然有效

图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20241006155519.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111403 积分：567085 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/10/7 9:50:00 [只看该作者]

这个没有办法，只能全部自定义颜色

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