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

表十二组

第一列 [产权人] （字符列都是姓名）若干个分属于各居民组

第二列 [居民组] （第一小组至第十小组）

第三列[协议日期] （办理手续的时间）办理手续时就填写当天日期，没办手续时就是空的

窗口中两个图表，一个是各居民组总人数和办理手续总人数示意图这个用分组统计然后用图表代码可以生成，但是分组统计是临时表，没有开启时图表就没有怎么办？

Dim g As New GroupTableBuilder("走户进度表", DataTables("十二组"))

g.Caption = "走户进度表"

g.Groups.AddDef("居民组", "居民小组")

g.Totals.AddDef("居民组", AggregateEnum.Count, "总户数")

g.Totals.AddDef("协议日期", AggregateEnum.Count, "走户数")

g.Build()

MainTable = Tables("走户进度表")

分组统计的代码

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

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

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

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

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 = Chart.SeriesList.Add() '增加第二个图系

Series.Text = "走户总数"

Series.X.DataField = "居民小组" 'X轴绑定到产品列

Series.Y.DataField = "走户数" 'Y轴绑定到数量列

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

窗口图表的代码

有别的思路吗？

第二个图标，要求做一个办理手续的日线图，也就是不分小组，只要显示出每个协议日期对应的填写协议日期的个数就可以，求思路？

生成代码前面加入判断

if DataTables.Contains("走户进度表")=false then '不存在这个表

'生成表代码放进来.先生成表再生成图表

end if

是这样吗？这样运行就直接到表的界面了，而不是在窗口

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()

MainTable = Tables("走户进度表") '生成表再生成图表

End If

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

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

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

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

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 = Chart.SeriesList.Add() '增加第二个图系

Series.Text = "走户总数"

Series.X.DataField = "居民小组" 'X轴绑定到产品列

Series.Y.DataField = "走户数" 'Y轴绑定到数量列

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

MainTable = Tables("走户进度表") '生成表再生成图表这行代码去掉

嗨，低级错误，明白了。谢谢老师。

主题：[求助]关于窗口图表的问题