'预先加载最新评估储量图
Dim g As New GroupTableBuilder("临时表", DataTables("总储量明细表"))
g.Groups.AddDef("勘探区块")
g.Totals.AddDef("总储量_1P")
g.Totals.AddDef("总储量_2P")
g.Totals.AddDef("总储量_3P")
g.Totals.AddDef("总储量_1C")
g.Totals.AddDef("总储量_2C")
g.Totals.AddDef("总储量_3C")
g.Filter = "[版本号]= '2015.08.25'"
g.Build()
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("临时表") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.DataSource = "临时表" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
For Each c As Col In t.Cols
If c.Name <> "勘探区块" Then
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = c.Name '设置图系的标题
Series.X.DataField = "勘探区块" 'X轴绑定到产品列
Series.Y.DataField = c.Name '设置Y轴的绑定列
Series.TooltipText = "Y = {#YVAL}" '动态显示X/Y值
End If
Next
'-----------------------个性化图表------------------------
Chart.AxisX.AnnoRotation = - 90 'X轴标示逆时针旋转90度
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Series.DataLabelCompass =LabelCompassEnum.North 'Y值显示在柱子的下面
Chart.AxisX.GridMajorVisible = False '隐藏X轴的网格线
Chart.AxisY.GridMajorVisible = False '隐藏Y轴的网格线
Chart.HeaderText= "最新储量评估结果(2015年8月25日)" '显示图名
加好友 
发短信
Post By：2016/8/16 9:19:00 [只看该作者]
