以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何设置图表上标题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126988)

--  作者:蓝蚂蚁
--  发布时间:2018/11/2 11:20:00
--  如何设置图表上标题

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


图片点击可在新窗口打开查看此主题相关图片如下: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

请问老师,代码该如何修改,谢谢!


--  作者:有点甜
--  发布时间:2018/11/2 12:36:00
--  

chart.HeaderText = "aabbcc"

--  作者:有点甜
--  发布时间:2018/11/2 12:37:00
--  
chart.HeaderText = Tables("表A").current("第一列")