老师,如果是直接用代码生成,出现坐标轴数据凌乱问题
'制作报表
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
![dvubb 图片点击可在新窗口打开查看](UploadFile/2021-1/20211211529593955.png)