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
加好友 
发短信
Post By：2024/10/5 23:00:00 [显示全部帖子]
