老师，如果是直接用代码生成，出现坐标轴数据凌乱问题
'制作报表
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
加好友 
发短信
Post By：2021/1/19 15:09:00 [显示全部帖子]
