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

Forms("图表").show

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

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

Dim t As Table = Tables("材料设备损失汇总柱状图_table1") '定义一个变量t引用数据表

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

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

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

Chart.DataSource = "材料设备损失汇总柱状图_table1" '设置绑定表

Chart.SeriesList.Clear() '清除图表原来的图系

Series = Chart.SeriesList.Add() '增加一个图系

Series.X.DataField = "企业名称" 'X轴绑定到产品列

Series.Y.DataField = "材料设备损失" 'Y轴绑定到数量列

Series.DataLabelText = "{#YVAL}"

此主题相关图片如下：qq截图20171024113153.png

难道说数值太大？而且 X Y轴数据怎么改

Chart.DataSource = "材料设备损失汇总柱状图_table1" '设置绑定表

改成

Chart.DataSource = t.DataTable.Name

文字都乱了有什么方法可以解决吗？谢谢！
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20171024141159.png

旋转显示你的字符，参考

http://www.foxtable.com/webhelp/scr/1030.htm

两个公司的数据如何放到一个条形柱？求助！
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20171024163714.png

先对数据进行分组统计，再使用统计表生成图表

http://www.foxtable.com/webhelp/scr/0158.htm

我把数据分组了但是生成图表的时候还是这样

数据分组代码如下：

Dim t As Table = Tables("工时图表_table1")

Dim g As Subtotalgroup

t.SubtotalGroups.Clear()

t.GroupAboveData = False

t.TreeVisible = False

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "姓名"

g.Caption = "{0}"

t.SubtotalGroups.Add(g)

t.Subtotal()

Dim r As Row

For i As Integer = 0 To t.Rows.Count(True) - 1

r = t.Rows(i,True)

If r.IsGroup '如果是分组行

Dim f As String = "姓名 = '" & r("姓名") & "'"

Dim v As String = " 工时:" & t.Compute("Count(工时)",f)

'v = v & " 订购数量:" & t.Compute("Sum(数量)",f)

' v = v & " 订购金额:" & t.Compute("Sum(金额)",f)

r("姓名") = "姓名:" & r("姓名") & v

End If

生成图表代码如下：

Forms("图表").show

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

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

Dim t As Table = Tables("工时图表_table1") '定义一个变量t引用数据表

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

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

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

Chart.DataSource = t.DataTable.Name '设置绑定表

Chart.SeriesList.Clear() '清除图表原来的图系

Series = Chart.SeriesList.Add() '增加一个图系

Series.X.DataField = "姓名" 'X轴绑定到产品列

Series.Y.DataField = "工时" 'Y轴绑定到数量列

Series.DataLabelText = "{#YVAL}"

'Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度
图片点击可在新窗口打开查看

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

要做分组统计。你那个是汇总统计

如何关闭汇总模式，代码怎么写 ClearSubtotal

主题：生成的柱状图为空