专家坐堂-统计表导出并生成图表问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

怎么导出后箭头处缺了“二诊”2字？

导出并生成图表代码：

Dim tjnj As String = e.Form.Controls("年级").text \'统计年级

Dim tjlb As String = e.Form.Controls("类别").text \'统计类别

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog

dlg.Filter= "Excel文件|*.xls" \'设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

\'生成图表

Dim Chart As new ChartBuilder \'定义一个图表变量

Dim Series As WinForm.ChartSeries \'定义一个图系变量

Dim t As Table = Tables(tjnj &"级"& tjlb & "市区目标对比") \'定义一个变量t引用数据表

Chart.ChartType = ChartTypeEnum.Bar \'图表类型改为Bar(条形)

Chart.SeriesList.Clear() \'清除图表原来的图系

Dim xms() As String = {"全区合计","梁平中学","红旗中学","梁平一中","西大实中","屏锦中学","袁驿中学","福禄中学"}

For Each xm As String In xms

Series = Chart.SeriesList.Add() \'增加一个图系

Series.Text = xm \'设置图系的标题

series.length = t.Cols.count-2

For r As Integer = 0 To t.Cols.count-4 \'横坐标开始行位置

Series.X(r) = r

Series.Y(r) = val(t.Compute("sum(" & t.Cols(r+3).name & ")", "单位 = \'" & xm & "\'")) \'横坐标开始列位置

Chart.AxisX.SetValueLabel(r, t.Cols(r+3).caption) \'指定字符表示

series.DataLabelCompass = LabelCompassEnum.North

Series.DataLabelText = "{#YVAL}"

series.DataLabelCompass = LabelCompassEnum.North

Series.DataLabelText = "{#YVAL}"

Chart.AxisX.AnnoWithLabels = True \'启用字符标示

Chart.AxisX.AnnoRotation = - 45 \'X轴标示逆时针旋转45度

Chart.LegendVisible = True \'显示图列

Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)

Chart.AxisX.Text = "统计项目"

Chart.AxisY.Text = "重点人数"

chart.LegendText = "图例:单位"

Chart.BarClusterWidth = 80 \'力列宽窄

Chart.PrintWidth = 300 \'图表长

Chart.PrintHeight = 180 \'图表高

\'保存文件

t.SaveExcel(dlg.FileName, tjnj &"级"& tjlb & "市区目标对比") \'保存文件

Dim b As New XLS.Book(dlg.FileName)

Dim s As XLS.Sheet = b.Sheets(tjnj &"级"& tjlb & "市区目标对比")

s(t.rows.Count + 2,1).Value = New XLS.Picture(Chart.Image)

Dim Style As Xls.Style = b.NewStyle \'新建一个样式

\'单元格内容自动换行

Style.WordWrap = XLS.LineStyleEnum.Thin \'单元格内容自动换行

\'加网格线

Style.AlignHorz = XLS.AlignHorzEnum.Center \'居中

Style.AlignVert = XLS.AlignVertEnum.Center \'居中

Style.BorderTop = XLS.LineStyleEnum.Thin \'上边框

Style.BorderBottom = XLS.LineStyleEnum.Thin \'下边框

Style.BorderLeft = XLS.LineStyleEnum.Thin \'左边框

Style.BorderRight = XLS.LineStyleEnum.Thin \'右边框

\'上下左右边框颜色

Style.BorderColorTop = Color.Black \'黑色

Style.BorderColorBottom = Color.Black

Style.BorderColorLeft = Color.Black

Style.BorderColorRight = Color.Black

For i As Integer = 0 To s.Rows.count -1

For n As Integer = 0 To s.Cols.count -1

s(i,n).Style = Style

\'符合条件的行字体变红加粗

Style = b.NewStyle

Style.ForeColor = Color.Red \'样式的字体颜色设为红色

Style.Font = new font("宋体",9,FontStyle.Bold) \'宋体,9号,加粗

Style.AlignHorz = XLS.AlignHorzEnum.Center \'居中

Style.AlignVert = XLS.AlignVertEnum.Center \'居中

Style.BorderTop = XLS.LineStyleEnum.Thin \'上边框

Style.BorderBottom = XLS.LineStyleEnum.Thin \'下边框

Style.BorderLeft = XLS.LineStyleEnum.Thin \'左边框

Style.BorderRight = XLS.LineStyleEnum.Thin \'右边框

\'上下左右边框颜色

Style.BorderColorTop = Color.Black \'黑色

Style.BorderColorBottom = Color.Black

Style.BorderColorLeft = Color.Black

Style.BorderColorRight = Color.Black

For i As Integer = 0 To s.Rows.count -1

Dim Hjs() As String = {"分数线","全区合计"}

For Each Hj As String In Hjs

If s(i,2).Text.EndsWith(Hj) Then \'如果指定列(sheet(i,2)第3列

For n As Integer = 0 To s.Cols.count -1

s(i,n).Style = Style

End If

b.Save(dlg.FileName)

DataTables.Delete(tjnj &"级"& tjlb & "市区目标对比")

End If

e.Form.Controls("Label1").Text = "近三届上市重点人数对照表已导出并删除!"

如何修改代码？请指教。谢谢！