如图：

根据表统计出对应的表，并增加表达式列，在窗口的TB3 中显示，只有统计结果，没有显示增加的表达式；

代码：

\'总成本分构成分析图

Dim g2 As New GroupTableBuilder("统计表13", DataTables("污水厂运营分析表"))
\'Dim MTXT As WinForm.TextBox = e.Form.Controls("TextBox1")
\'g.Groups.AddDef("厂区编号")
g2.Groups.AddDef("年")
g2.Groups.AddDef("月")
g2.Totals.AddDef("直接运营成本",True)
g2.Totals.AddDef("大修费",True)
g2.Totals.AddDef("折旧费",True)
g2.Totals.AddDef("特许经营权摊销",True)
g2.Totals.AddDef("财务费用",True)
g2.Totals.AddDef("集团服务费",True)
g2.Totals.AddDef("税金及附加",True)
g2.Totals.AddDef("其他成本",True)

g2.Totals.AddDef("总成本小计",True)

g2.Filter = " [月] =  \'" &  MTXT.value  & " \'"  \'按照月份同比统计
g2.Build()

DataTables("统计表13").DataCols.Add("年月",Gettype(String)," [年] +\'-\'+ [月] ")  \'生成一列用来区分不同年和月

DataTables("统计表13").DataCols.Add("直接运营成本占比",Gettype(Double)," ([直接运营成本]/[总成本小计])") \'生成一列计算百分比
DataTables("统计表13").DataCols.Add("大修费占比",Gettype(Double)," ([大修费]/[总成本小计])") \'生成一列计算百分比
DataTables("统计表13").DataCols.Add("折旧费占比",Gettype(Double)," ([折旧费]/[总成本小计])") \'生成一列计算百分比
DataTables("统计表13").DataCols.Add("特许经营权摊销占比",Gettype(Double)," ([特许经营权摊销]/[总成本小计])") \'生成一列计算百分比
DataTables("统计表13").DataCols.Add("财务费用占比",Gettype(Double)," ([财务费用]/[总成本小计])") \'生成一列计算百分比
DataTables("统计表13").DataCols.Add("集团服务费占比",Gettype(Double)," ([集团服务费]/[总成本小计])") \'生成一列计算百分比
DataTables("统计表13").DataCols.Add("税金及附加占比",Gettype(Double)," ([税金及附加]/[总成本小计])") \'生成一列计算百分比
DataTables("统计表13").DataCols.Add("其他成本占比",Gettype(Double)," ([其他成本]/[总成本小计])") \'生成一列计算百分比




For Each c As Col In Tables("运管中心_table3").Cols    \'平均值列设置百分比显示
    If c.Caption = "占比" Then
        c.DataCol.SetFormat("#.00%")
    End If
Next
Tables("运管中心_Table3").DataSource = g2.BuildDataSource()

\'当期各成本占比

Chart = e.Form.Controls("Chart6") \' 引用窗口中的图表
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Pie     \'图表类型该为Bar(条形)
\'Chart.ChartType2 = ChartTypeEnum.XYPlot \'图表类型该为Bar(ChartTypeEnum.XYPlot条形)

Chart.DataSource = "统计表13" \'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系

Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text = "直接运营成本占比"
Series.X.DataField = "年月" \'X轴绑定到产品列
Series.Y.DataField = "直接运营成本占比" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL:0%}"

Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text = "大修费占比"
Series.X.DataField = "年月" \'X轴绑定到产品列
Series.Y.DataField = "大修费占比" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL:0%}"

Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text = "折旧费占比"
Series.X.DataField = "年月" \'X轴绑定到产品列
Series.Y.DataField = "折旧费占比" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL:0%}"

Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text = "特许经营权摊销占比"
Series.X.DataField = "年月" \'X轴绑定到产品列
Series.Y.DataField = "特许经营权摊销占比" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL:0%}"

Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text = "财务费用占比"
Series.X.DataField = "年月" \'X轴绑定到产品列
Series.Y.DataField = "财务费用占比" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL:0%}"

Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text = "集团服务费占比"
Series.X.DataField = "年月" \'X轴绑定到产品列
Series.Y.DataField = "集团服务费占比" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL:0%}"

Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text = "税金及附加占比"
Series.X.DataField = "年月" \'X轴绑定到产品列
Series.Y.DataField = "税金及附加占比" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL:0%}"

Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text = "其他成本占比"
Series.X.DataField = "年月" \'X轴绑定到产品列
Series.Y.DataField = "其他成本占比" \'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL:0%}"



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

显示：

此主题相关图片如下：qq截图20201109133356.png

表达式列无法显示，同时，图表中需要同时显示 数值+百分比，应该怎么做呢？

请老师帮忙看一下，谢谢。

此主题相关图片如下：qq图片20201109161408.png