- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]折线图生成 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160074)
-- 发布时间：2021/1/19 15:09:00
-- [求助]折线图生成
表A中有3名员工的总计9天的数据，我想在独立窗口中自由选择6天，然后依据选择的6天对应生成累积量的折线图报表（DOC），也就是每个员工对应一张统计图，不知道如何实现？
此主题相关图片如下：微信截图_20210119150020.png
此主题相关图片如下：微信图片_20210119150805.png
[此贴子已经被作者于2021/1/19 15:11:14编辑过]
-- 发布时间：2021/1/19 16:33:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:问题.zip |
-- 发布时间：2021/1/21 15:31:00
--
老师，如果是直接用代码生成，出现坐标轴数据凌乱问题
\'制作报表
Dim doc As New PrintDoc \'定义一个报表
Dim str As String
For i As Integer = 1 To 6
str = str & ",#" & (e.Form.Controls("ComboBox" & i).value) & "#"
Next
str = str.Trim(",")
For Each n As String In DataTables("表A").GetValues("员工姓名")
Dim Chart As New ChartBuilder \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart.DataSource = "表A" \'设置绑定表
Chart.DataFilter = "员工姓名 = \'" & n & "\' and 记录时间 in (" & str & ")"
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Chart.AxisX.DateType = True \'X轴是日期型
Chart.AxisX.AnnoFormatString = "MM-dd" \'只显示日
Series.X.DataField = "记录时间" \'X轴绑定到产品列
Series.Y.DataField = "累积量" \'Y轴绑定到数量列
Chart.PrintWidth = 140 \'宽度设为140毫米
Chart.PrintHeight = 100 \'高度设为100毫米
\'----------------图像参数设置---------------
Dim rm As New prt.RenderImage
rm.Image = Chart.Image
doc.Body.Children.Add(rm)
Next
Doc.Preview() \'预览报表
此主题相关图片如下：微信截图_20210121152541.png
-- 发布时间：2021/1/21 15:33:00
-- 老师，如果是直接用代码生成，出现坐标轴数据凌乱问题
老师，如果是直接用代码生成，出现坐标轴数据凌乱问题
-- 发布时间：2021/1/21 15:38:00
--
列类型改为双精度