主题：[求助]统计表导出并生成图表

t.SaveExcel(dlg.FileName, bb & "部分优生对照表") '保存文件

Dim b As New XLS.Book(dlg.FileName)
Dim s As XLS.Sheet = b.Sheets(bb & "部分优生对照表")
s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image)
b.Save(dlg.FileName)

谢谢！

在图例的前面增加“图例：类别”。怎么修改代码？请指教。谢谢！

此主题相关图片如下：增加.png

            '生成图表
            Dim t As Table = Tables("总分" & tjnj & "级" & tjlb & bb & "部分优生对照表")
            Dim Chart As New ChartBuilder '定义一个图表变量
            Dim Series As WinForm.ChartSeries '定义一个图系变量
            Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
            Chart.SeriesList.Clear() '清除图表原来的图系
            Chart.AxisX.ClearValueLabel
            Chart.BarClusterWidth = 80
            Dim xms As List(of String) = t.DataTable.GetValues("姓名")
            For Each lb As String In t.DataTable.GetValues("类别")
                Series = Chart.SeriesList.Add() '增加一个图系
                Chart.AxisY.Min = t.DataTable.Compute("Min(总分)") '指定Y轴的最小值
                Chart.AxisY.Max = t.DataTable.Compute("Max(总分)") '指定Y轴的最大值
                Chart.AxisY.Major = 10 '主刻度间隔值为20
                Series.Text = lb '设置图系的标题
                Dim drs As List(Of DataRow) = t.DataTable.Select("")
                Series.Length = xms.Count
                For r As Integer = 0 To xms.count-1
                    Series.X(r) = r
                    Series.Y(r) = val(t.compute("sum(总分)", "姓名 = '" & xms(r) & "' and 类别 = '" & lb & "'"))
                    Chart.AxisX.SetValueLabel(r, xms(r)) '指定字符表示
                Next
                series.DataLabelCompass = LabelCompassEnum.North
                Series.DataLabelText = "{#YVAL}"
            Next
            Chart.AxisX.AnnoWithLabels = True '启用字符标示
            Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度
            chart.SeriesList(0).MarkSize= 1 '设置数据点标记的大小
            Chart.LegendVisible = True '显示图列
            Chart.LegendCompass= CompassEnum.South '图列显示在下方(底端)
            Chart.AxisY.Text = "总分"
            Chart.AxisX.Text = "姓名"
            Chart.PrintWidth = 360
            Chart.PrintHeight = 180

 

http://www.foxtable.com/help/topics/0993.htm

 

http://www.foxtable.com/help/topics/0994.htm

 

不好意思，还是没搞懂。就是想在图例前面增加一个图例的名称(图例：XXX)。

汗

 

chart.LegendText = "ABCDEFG"

谢谢！

能否可以在统计的同时生成图表。即在生成临时统计表的下面生成一个图表。请指教。谢谢！

 

执行完生成统计表的代码后，再执行生成图表的代码不就行了？

 

如果要在一起显示，你可以做一个窗口，放一个table，放一个chart，把窗口打开不就行了？

 

http://www.foxtable.com/help/topics/2309.htm

 

我是想在一起显示，并在导出时在一个表中。