Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何生成柱状+线状图标


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

主题：[求助]如何生成柱状+线状图标
帅哥哟，离线，有人找我吗？
wealthwind
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		[求助]如何生成柱状+线状图标  发帖心情 Post By：2014/4/14 22:38:00 [显示全部帖子]

待解决问题：

1.如何在下面这份表中增加“合计”项；（图表1）

2.增加完合计项目后，并用这份临时表，生成类似的图表（按月）；（图表2）

 

现在用原代码是

 

MainTable = Tables("订单")
Dim Cmd As new SQLCommand
Cmd.ConnectionName = "foxsale"
Cmd.CommandText = "select distinct 分区,年,月份,目标 from 目标 where " & CustomFilter
Dim dt1 As DataTable = Cmd.ExecuteReader
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("分区", Gettype(String), 50)
Dim prds As List(of String()) = dt1.GetUniqueValues("","年","月份")
Dim exp As String
dtb.AddDef("目标总额", Gettype(Double))
dtb.AddDef("销售总额", Gettype(Double))
dtb.AddDef("达成率", Gettype(Double),"[销售总额]/[目标总额]")
For Each prd As String() In prds
    dtb.AddDef(prd(0) & "_" & prd(1) & "_目标", Gettype(Double))
    dtb.AddDef(prd(0) & "_" & prd(1) & "_销售", Gettype(Double))
    exp = String.format("[{0}]/[{1}]",prd(0) & "_" & prd(1) & "_销售" ,prd(0) & "_" & prd(1) & "_目标" )
    dtb.AddDef(prd(0) & "_" & prd(1) & "_达成率", Gettype(Double),exp)
Next
dtb.Build()
Cmd.CommandText = "select 分区,year(日期) as 年,month(日期) as 月份,sum(金额) as 销售 from 订单 where " & CustomFilter & " group by 分区,year(日期),month(日期)"
Dim dt2 As DataTable = Cmd.ExecuteReader
For Each cus As String In dt1.GetUniqueValues("","分区")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("分区") = cus
    For Each prd As String() In prds
        dr(prd(0) & "_" & prd(1) & "_目标") = dt1.Compute("Sum(目标)","分区 = '" & cus & "' And [年] = '" & prd(0) & "' and 月份 = '"& prd(1) &"'")
        dr(prd(0) & "_" & prd(1) & "_销售") = dt2.Compute("Sum(销售)","分区 = '" & cus & "' And [年] = '" & prd(0) & "' and 月份 = '"& prd(1) &"'")
    Next
    dr("目标总额") = dt1.Compute("Sum(目标)","分区 = '" & cus & "'")
    dr("销售总额") = dt2.Compute("Sum(销售)","分区 = '" & cus & "'")
Next
For Each prd As String() In prds
    DataTables("统计").DataCols(prd(0) & "_" & prd(1) & "_达成率").SetFormat("0.00%")
Next
DataTables("统计").DataCols("达成率").SetFormat("0.00%")
MainTable = Tables("统计")
Tables("统计").AutoSizeCols

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140414223648.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20140414223655.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/4/15 10:20:00 [显示全部帖子]

也就是说，目标值和销售值，用柱状；达成率用线状，然后按月列出来
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/4/15 10:21:00 [显示全部帖子]

例子很大，我尝试过几次上传都失败了~

能否在我上面的代码上，帮助我改一下，谢谢老师。
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/4/15 11:59:00 [显示全部帖子]

以上是含“目标”和“订单”表的项目；
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/4/15 12:04:00 [显示全部帖子]

 
图片点击可在新窗口打开查看
临时统计表我已经能做出来了，就是要生成类似上面EXCEL做的图表
 
 
 
图片点击可在新窗口打开查看
红色代表目标、蓝色代表实际销量、线代表达成率；要生出这样的图例
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/4/15 12:06:00 [显示全部帖子]

临时统计表我已经能做出来了，就是要生成类似上面EXCEL做的图表
红色代表目标、蓝色代表实际销量、线代表达成率；要生出这样的图例
 
 

图片点击可在新窗口打开查看此主题相关图片如下：360截图20140415120510468.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/4/15 15:39:00 [显示全部帖子]

目标和销量和合计，达成率是通过合计的销量除以合计销量得出的

 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/4/15 15:45:00 [显示全部帖子]

请问第二个问题，做图表的，代码是怎么样的？？
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/4/15 16:24:00 [显示全部帖子]

有点甜，版主，你好~~非常感谢你给的技术支持；

我将你的代码套入到按钮代码中，出现以下错误。是否能解答？
图片点击可在新窗口打开查看此主题相关图片如下：360截图20140415162217156.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/4/15 16:25:00 [显示全部帖子]

整个按钮代码是
Dim Cmd As new SQLCommand
Cmd.C
Cmd.CommandText = "select distinct 分区,年,月份,目标 from 目标 where " & CustomFilter
Dim dt1 As DataTable = Cmd.ExecuteReader
Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("分区", Gettype(String), 50)
Dim prds As List(of String()) = dt1.GetUniqueValues("","年","月份")
Dim exp As String
Dim prd As String()
dtb.AddDef("目标总额", Gettype(Double))
dtb.AddDef("销售总额", Gettype(Double))
dtb.AddDef("达成率", Gettype(Double),"[销售总额]/[目标总额]")
For Each prd In prds
    dtb.AddDef(prd(0) & "_" & prd(1) & "_目标", Gettype(Double))
    dtb.AddDef(prd(0) & "_" & prd(1) & "_销售", Gettype(Double))
    exp = String.format("[{0}]/[{1}]",prd(0) & "_" & prd(1) & "_销售" ,prd(0) & "_" & prd(1) & "_目标" )
    dtb.AddDef(prd(0) & "_" & prd(1) & "_达成率", Gettype(Double),exp)
Next
dtb.Build()
Cmd.CommandText = "select 分区,year(日期) as 年,month(日期) as 月份,sum(金额) as 销售 from 订单 where " & CustomFilter & " group by 分区,year(日期),month(日期)"
Dim dt2 As DataTable = Cmd.ExecuteReader
Dim dr As DataRow
For Each cus As String In dt1.GetUniqueValues("","分区")
    dr = DataTables("统计").AddNew()
    dr("分区") = cus
    For Each prd In prds
        dr(prd(0) & "_" & prd(1) & "_目标") = dt1.Compute("Sum(目标)","分区 = '" & cus & "' And [年] = '" & prd(0) & "' and 月份 = '"& prd(1) &"'")
        dr(prd(0) & "_" & prd(1) & "_销售") = dt2.Compute("Sum(销售)","分区 = '" & cus & "' And [年] = '" & prd(0) & "' and 月份 = '"& prd(1) &"'")
    Next
    dr("目标总额") = dt1.Compute("Sum(目标)","分区 = '" & cus & "'")
    dr("销售总额") = dt2.Compute("Sum(销售)","分区 = '" & cus & "'")
Next
'******************************合计行
dr = DataTables("统计").AddNew()
dr("分区") = "合计"
For Each prd In prds
    Dim ColName1 As String = prd(0) & "_" & prd(1) & "_目标"
    Dim ColName2 As String = prd(0) & "_" & prd(1) & "_销售"
    dr(ColName1) = dt1.Compute("Sum(目标)","[年] = '" & prd(0) & "' and 月份 = '"& prd(1) &"'")
    dr(ColName2) = dt2.Compute("Sum(销售)","[年] = '" & prd(0) & "' and 月份 = '"& prd(1) &"'")
Next
dr("目标总额") = DataTables("统计").Compute("Sum(目标总额)")
dr("销售总额") = DataTables("统计").Compute("Sum(销售总额)")
'********************************

For Each prd In prds
    DataTables("统计").DataCols(prd(0) & "_" & prd(1) & "_达成率").SetFormat("0.00%")
Next
DataTables("统计").DataCols("达成率").SetFormat("0.00%")
MainTable = Tables("统计")
Tables("统计").AutoSizeCols


Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计") '定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = (t.Cols.Count-3) / 3 '图系的数据点数等于表的行数
Dim Series1 As WinForm.ChartSeries = Chart.SeriesList.Add()
Series1.Length = (t.Cols.Count-3) / 3 '图系的数据点数等于表的行数
Dim Series2 As WinForm.ChartSeries = Chart.SeriesList2.Add() '给图表2增加一个图系
Series2.Length = (t.Cols.Count-3) / 3 '图系的数据点数等于表的行数
Chart.ChartType2 = ChartTypeEnum.XYPlot
Series.Text = "目标"
Series1.Text = "销售"
Series2.Text = "达成率"
Dim i As Integer = 0
For Each c As Col In Tables("统计").Cols
    If c.Name.EndsWith("目标") Then
        Series.X(i) = i '指定水平坐标
        Series1.X(i) = i '指定水平坐标
        Series2.X(i) = i '指定水平坐标
        Series.Y(i) = nr(c.Name) '指定垂直坐标
        Series1.Y(i) = nr(Tables("统计").Cols(c.Index+1).Name) '指定垂直坐标
        Series2.Y(i) = nr(Tables("统计").Cols(c.Index+2).Name) '指定垂直坐标
        Chart.AxisX.SetValueLabel(i, c.Name.Split("_")(1)) '指定字符表示
                i+=1
    End If
Next
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.AxisY.Text = "金额"
Chart.AxisY2.Text = "比例"
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 6 次数据查询