- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 生成的柱状图为空 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108508)
-- 发布时间：2017/10/24 11:32:00
-- 生成的柱状图为空
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
-- 发布时间：2017/10/24 11:34:00
--
难道说数值太大？ 而且 X Y轴 数据怎么改
-- 发布时间：2017/10/24 12:25:00
--
Chart.DataSource = "材料设备损失汇总柱状图_table1" \'设置绑定表
改成
Chart.DataSource = t.DataTable.Name
-- 发布时间：2017/10/24 14:13:00
--
文字都乱了 有什么方法可以解决吗？ 谢谢！
此主题相关图片如下：qq截图20171024141159.png
-- 发布时间：2017/10/24 15:27:00
--
旋转显示你的字符，参考
http://www.foxtable.com/webhelp/scr/1030.htm
-- 发布时间：2017/10/24 16:38:00
--
两个公司的数据如何放到一个条形柱？求助！
此主题相关图片如下：qq截图20171024163714.png
-- 发布时间：2017/10/24 17:31:00
--
先对数据进行分组统计，再使用统计表生成图表
http://www.foxtable.com/webhelp/scr/0158.htm
-- 发布时间：2017/10/24 19:24:00
--
我把数据分组了 但是生成图表的时候还是这样
数据分组代码如下：
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
Next
生成图表代码如下：
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
此主题相关图片如下：图表.png-- 发布时间：2017/10/24 20:03:00
--
要做分组统计。你那个是汇总统计
-- 发布时间：2017/10/24 20:28:00
--
如何关闭汇总模式，代码怎么写 ClearSubtotal