以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]条形图颜色填充  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193703)

--  作者：lgj716330 --  发布时间：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