主题：如何设置图表上标题

下图：浏览时如何默认为横向显示。

此主题相关图片如下：image 1.jpg

 

下图：如何在图表中设置上标题（图中红色字体“手术室”，这个“手术室”来自【科室金额统计临时表排序】中的科室列，见最后图）

此主题相关图片如下：image 2.jpg


此主题相关图片如下：image 3.jpg

代码如下：

Result=MessageBox.Show("马上浏览图表吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Dim Chart As New ChartBuilder
    Dim Series As WinForm.ChartSeries
    Chart.DataSource = "科室金额统计临时表排序"
    Chart.SeriesList.Clear()
    Chart.ChartType = ChartTypeEnum.Bar
    Series = Chart.SeriesList.Add()
    Series.X.DataField = "月份"
    Series.Y.DataField = "金额"
    'Chart.Inverted = True
    Chart.PrintWidth =200
    Chart.PrintHeight =200
    Chart.BarClusterWidth = 80
    Chart.AxisX.AnnoRotation = - 60
    ' Chart.AxisY.Major = 400 '主刻度间隔值为400
    Series.DataLabelText = "{#YVAL}"
    Series.DataLabelBackColor = Color.Blue '蓝底
    Series.DataLabelForeColor = Color.White '白字
    '打印图表
    Dim doc As New PrintDoc
    Dim rm As New prt.RenderImage
    rm.Image = Chart.Image
    doc.Body.Children.Add(rm)
    Doc.Preview()
End If

请问老师，代码该如何修改，谢谢！

chart.HeaderText = "aabbcc"

chart.HeaderText = Tables("表A").current("第一列")