还是图表的BUG - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：b1.png

此主题相关图片如下：b2.png

此主题相关图片如下：b3.png

这两天研究图表发现很多问题

我还是在一个窗口页面里使用一个chart

通过按钮来渲染chart内容

现在发现一个问题

在button1 中生成一个以日为X轴的图表 1-31

在button2 中生成一个i为X轴的图表 i的值在1-10

如果先按button1 chart第一次正常再按button2 chart的X轴间隔就缩的非常小跟button2的内容不匹配

如果先按button2 chart正常再按button1 正常再按button2 又跟第一次操作一样图表变样

button1代码：

Dim sql As String

sql="“

Dim cmd As new SQLCommand

cmd.ConnectionName=Functions.Execute("返回数据源")

cmd.CommandText=sql

Dim dt As DataTable

dt=cmd.ExecuteReader

Dim s As String="个人销售统计"

Dim g As New GroupTableBuilder(s, dt)

g.Groups.AddDef("个人")

g.Totals.AddDef("金额")

g.Build()

Tables(s).Sort="金额 desc "

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables(s) '定义一个变量t引用数据表

Chart= e.Form.Controls("Chart2") ' 引用窗口中的图表

Dim c1Chart1 = Chart.basecontrol

Dim lbls = c1Chart1.ChartLabels

lbls.LabelsCollection.Clear()

Chart.AxisX.ClearValueLabel()

Chart.AxisY.ClearValueLabel()

Chart.ChartType = ChartTypeEnum.bar '图表1类型改为Bar(条形)

Chart.SeriesList.Clear

Chart.SeriesList2.Clear

Chart.Axisx.Text=""

Series = Chart.SeriesList.Add()

Chart.Axisx.AnnoWithLabels = True

Dim lst As List(of DataRow)=DataTables(s).Select("金额>=0","金额 desc")

''新增图系包括10个数据点

Series.Length = lst.count

For i As Integer = 0 To lst.count-1 '指定每个数据点的位置

Series.X(i) = i '指定水平坐标

Series.Y(i) = math.round(lst(i)("金额")/10000,2 )'垂直坐标用随机数生成

Chart.Axisx.SetValueLabel(i, lst(i)("个人"))

series.TooltipText="{#YVAL}"

button2 代码

Dim sql As String

sql="”

Dim cmd As new SQLCommand

cmd.ConnectionName=Functions.Execute("返回数据源")

cmd.CommandText=sql

Dim dt As DataTable

dt=cmd.ExecuteReader

Dim s As String="月销售统计"

Dim g As New GroupTableBuilder(s, dt)

g.Groups.AddDef("制单日期", "月")

g.Groups.AddDef("制单日期", DateGroupEnum.Day, "日")

g.Totals.AddDef("金额")

g.Build()

Tables(s).Sort="金额 desc "

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables(s) '定义一个变量t引用数据表

Chart= e.Form.Controls("Chart2") ' 引用窗口中的图表

Dim c1Chart1 = Chart.basecontrol

Dim lbls = c1Chart1.ChartLabels

lbls.LabelsCollection.Clear()

Chart.AxisX.ClearValueLabel()

Chart.AxisY.ClearValueLabel()

Chart.ChartType = ChartTypeEnum.bar '图表1类型改为Bar(条形)

Chart.SeriesList.Clear

Chart.SeriesList2.Clear

Chart.Axisx.Text=""

Chart.AxisX.AnnoWithLabels = False

Series = Chart.SeriesList.Add()

Series.Length = 31

''Dim lst As List(of DataRow)=DataTables(s).Select("金额>=0","金额 desc")

Chart.AxisX.Min = 1 '指定X轴的最小值,也就是从1月开始

Chart.AxisX.Max = 31 ''指定X轴的最大值,一年只有12个月

For day As Integer = 1 To 31 '逐月设置坐标

Series.X(day-1) = day

Chart.Axisx.SetValueLabel(day, day) '指定水平坐标为月份

Dim r As DataRow = DataTables(s).Find("月 = " & Date.today.Month & " and 日=" & day)'找出对应年月的行

If r IsNot Nothing '如果找到对应年月的行

Series.Y(day-1) = math.round(r("金额")/10000,2) '指定数量作为垂直坐标

End If

series.TooltipText="{#YVAL}"

主题：还是图表的BUG