Foxtable(狐表)用户栏目专家坐堂 → 图示统计数据


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

主题:图示统计数据

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/16 17:05:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/19 15:57:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/22 12:23:00 [显示全部帖子]

以下是引用东方威思顿在2019/4/22 11:05:00的发言:
老师,您好,还有另外一个问题,我如果想动态的更改Y轴怎么实现?现在Y轴的数据是合格率基准、月合格率2018和月合格率2019,如果我想Y轴内容根据数据列的变化而实现动态变化,有办法实现吗?

 

不理解你的意思。你需要的时候重新生成图表,不就可以了?

 

[此贴子已经被作者于2019/4/22 12:23:22编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/22 14:51:00 [显示全部帖子]

以下是引用东方威思顿在2019/4/22 13:39:00的发言:
1.第一个问题怎么解决?就是行增加新数据的时候图表显示百分数,而不是显示“非数字”三个字
2.动态更改Y轴,就是如果我增加一列,列的名称为月合格率_2020,是不是只能通过重新增加编程语句实现?

 

1、贴出你所写代码

 

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

 

2、循环每一列,判断列名是不是【月合格率】开头,如果是,就动态添加,如

 

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

 

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/22 15:18:00 [显示全部帖子]

1、

 

lbl2.Text = Format(series.y(i), "0.00%")

 

改成

 

lbl2.Text = Format(val(series.y(i)), "0.00%")

 

2、循环每一列处理

 

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

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/22 17:25:00 [显示全部帖子]

 

做一个实例发上来测试。

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/22 17:40:00 [显示全部帖子]

给的实例测试没问题,请具体说明如何测试。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/23 15:45:00 [显示全部帖子]

 

datacolchanged事件,写代码

 

If Forms("窗口1").opened Then
    Dim Chart As WinForm.Chart '定义一个图表变量
    Dim Series As WinForm.ChartSeries '定义一个图系变量
    Chart= forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
    Chart.DataSource = "物料检验合格率" '设置绑定表
    Chart.SeriesList.Clear() '清除图表原来的图系
    Chart.AxisX.Major = 2
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = "合格率基准"
    Series.X.DataField = "月份" 'X轴绑定到产品列
    Series.Y.DataField = "合格率基准" 'Y轴绑定到数量列
    Dim c1Chart1 = Chart.basecontrol
    Dim lbls = c1Chart1.ChartLabels
    lbls.LabelsCollection.clear
    For i As Integer = 0 To Tables("物料检验合格率").Rows.Count-1
        Dim lbl As C1.Win.C1Chart.Label = lbls.LabelsCollection.AddNewLabel()
        lbl.Text = Format(val(series.y(i)), "0.00%")
        lbl.AttachMethod = C1.Win.C1Chart.AttachMethodEnum.DataIndex
        lbl.AttachMethodData.GroupIndex = 0
        lbl.AttachMethodData.SeriesIndex = 0
        lbl.AttachMethodData.PointIndex = i
        lbl.style.font = new font("宋体", 10)
        lbl.Compass = LabelCompassEnum.south
        lbl.Visible = True
    Next
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = "月合格率_18年"
    Series.X.DataField = "月份" 'X轴绑定到产品列
    Series.Y.DataField = "月合格率_18年" 'Y轴绑定到数量列
    Dim c1Chart2 = Chart.basecontrol
    Dim lbls1 = c1Chart2.ChartLabels
    For i As Integer = 0 To Tables("物料检验合格率").Rows.Count-1
        Dim lbl1 As C1.Win.C1Chart.Label = lbls1.LabelsCollection.AddNewLabel()
        lbl1.Text = Format(val(series.y(i)), "0.00%")
        lbl1.AttachMethod = C1.Win.C1Chart.AttachMethodEnum.DataIndex
        lbl1.AttachMethodData.GroupIndex = 0
        lbl1.AttachMethodData.SeriesIndex = 1
        lbl1.AttachMethodData.PointIndex = i
        lbl1.Style.ForeColor = Color.Red
        lbl1.style.font = new font("宋体", 10)
        lbl1.Compass = LabelCompassEnum.north
        lbl1.Visible = True
    Next
    Series = Chart.SeriesList.Add() '增加一个图系
    Series.Text = "月合格率_19年"
    Series.X.DataField = "月份" 'X轴绑定到产品列
    Series.Y.DataField = "月合格率_19年" 'Y轴绑定到数量列Chart.LegendVisible = True '显示图列
    Dim c1Chart3 = Chart.basecontrol
    Dim lbls2 = c1Chart3.ChartLabels
    For i As Integer = 0 To Tables("物料检验合格率").Rows.Count-1
        Dim lbl2 As C1.Win.C1Chart.Label = lbls2.LabelsCollection.AddNewLabel()
        lbl2.Text = Format(val(series.y(i)), "0.00%")
        lbl2.AttachMethod = C1.Win.C1Chart.AttachMethodEnum.DataIndex
        lbl2.AttachMethodData.GroupIndex = 0
        lbl2.AttachMethodData.SeriesIndex = 2
        lbl2.AttachMethodData.PointIndex = i
        lbl2.Style.ForeColor = Color.Red
        lbl2.style.font = new font("宋体", 10)
        lbl2.Compass = LabelCompassEnum.north
        lbl2.Visible = True
    Next
    Chart.LegendVisible = True '显示图列
    Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
End If

 


 回到顶部