[求助]条形图颜色填充 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

采用逛逛老兄的多彩条形图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

主题：[求助]条形图颜色填充