Foxtable(狐表)用户栏目专家坐堂 → 生成的柱状图为空


  共有1866人关注过本帖树形打印复制链接

主题:生成的柱状图为空

帅哥哟,离线,有人找我吗?
LTHERO
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:1331 威望:0 精华:0 注册:2017/10/8 14:56:00
生成的柱状图为空  发帖心情 Post By: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
图片点击可在新窗口打开查看



 回到顶部
帅哥哟,离线,有人找我吗?
LTHERO
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:1331 威望:0 精华:0 注册:2017/10/8 14:56:00
  发帖心情 Post By:2017/10/24 11:34:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
LTHERO
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:1331 威望:0 精华:0 注册:2017/10/8 14:56:00
  发帖心情 Post By:2017/10/24 14:13:00 [显示全部帖子]

文字都乱了  有什么方法可以解决吗? 谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20171024141159.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
LTHERO
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:1331 威望:0 精华:0 注册:2017/10/8 14:56:00
  发帖心情 Post By:2017/10/24 16:38:00 [显示全部帖子]

两个公司的数据如何放到一个条形柱?求助!
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20171024163714.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
LTHERO
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:1331 威望:0 精华:0 注册:2017/10/8 14:56:00
  发帖心情 Post By: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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
LTHERO
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:154 积分:1331 威望:0 精华:0 注册:2017/10/8 14:56:00
  发帖心情 Post By:2017/10/24 20:28:00 [显示全部帖子]

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

 回到顶部