图一 点击”走户日线“图标显示如下图，一切正常
此主题相关图片如下：1.png
图二 再点击”走户进度“图标显示如下图，一切正常
此主题相关图片如下：2.png
图三 再点击”走户日线“图标显示如下，好像受到了”走户进度“的影响，有点乱了，x轴出现的走户进度的分类
此主题相关图片如下：3.png
但是，继续点击”走户进度“不会有影响，显示正常，但是回到”走户日线“就不正常了。
问题综述：只要点击走户进度后就会影响走户日线，反之不会。请问各位老师问题出在哪？
走户进度事件代码
If DataTables.Contains("走户进度表") = False Then '不存在这个表
Dim g As New GroupTableBuilder("走户进度表", DataTables("十二组"))
g.Caption = "走户进度表"
g.Groups.AddDef("居民组", "居民小组")
g.Totals.AddDef("居民组", AggregateEnum.Count, "总户数")
g.Totals.AddDef("协议日期", AggregateEnum.Count, "走户数")
g.Build()
End If
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = False '风格
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.DataSource = "走户进度表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加第一个图系
Series.Text = "契证总数"
Series.X.DataField = "居民小组" 'X轴绑定到产品列
Series.Y.DataField = "总户数" 'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}" '显示数值
Series = Chart.SeriesList.Add() '增加第二个图系
Series.Text = "走户总数"
Series.X.DataField = "居民小组" 'X轴绑定到产品列
Series.Y.DataField = "走户数" 'Y轴绑定到数量列
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Series.DataLabelText = "{#YVAL}" '显示数值
Chart.Stacked = False '图形叠加
Chart.BarClusterWidth = 60 '横向宽度
走户日线事件代码
If DataTables.Contains("走户日线表") = False Then '不存在这个表
Dim g As New GroupTableBuilder("走户日线表", DataTables("十二组"))
g.Caption = "走户日线表"
g.Groups.AddDef("协议日期", DateGroupEnum.Day, "日期", "日期")
g.Totals.AddDef("协议日期", AggregateEnum.Count, "走户")
g.Build()
End If
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.VisualEffect = False '风格
Chart.ChartType = ChartTypeEnum.XYPlot '图表类型
Chart.DataSource = "走户日线表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加第一个图系
Series.Text = "日期"
Series.X.DataField = "日期" 'X轴绑定到产品列
Series.Y.DataField = "走户" 'Y轴绑定到数量列
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Series.DataLabelText = "{#YVAL}" '显示数值
Chart.Stacked = False '图形叠加
加好友 
发短信
Post By：2015/4/27 22:43:00 [显示全部帖子]
