主题：图表显示多列，能否通过目录树动态不屏蔽想要展示的列？

各位老师好，图表中显示多个字段，目前是写死的，遍历每个列，哪些列不显示的给屏蔽掉。

If dc.Name <> "消费门店"   And dc.Name <> "日期" And dc.Name <> "年份" And dc.Name <> "注册单位" Then

 

这个是写死的，同时显示了 MA7  和  MA30  两列 ，能不能通过勾选，只显示  MA7 这一列  或者  MA30  这一列

能不能这个是动态的，比如在目录树上面勾选的，就不屏蔽，显示在图表中

此主题相关图片如下：目录树.png

 

表数据：

此主题相关图片如下：表数据.png

 

 

For Each dc As DataCol In dt.dataCols
    If dc.Name <> "消费门店"   And dc.Name <> "日期" And dc.Name <> "年份" And dc.Name <> "注册单位" Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = dc.Name '设置图系的标题
        Series.X.DataField = "日期" 'X轴绑定到产品列
        Series.Y.DataField = dc.Name '设置Y轴的绑定列
    End If
Next

当然可以,遍历所有节点,判断Checked属性, 是TRue的就取之作为列名使用

Dim str As String = "消费门店|日期|年份|注册单位"
For Each dc As DataCol In dt.dataCols
    If str.Contains(dc.Name) = False  Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = dc.Name '设置图系的标题
        Series.X.DataField = "日期" 'X轴绑定到产品列
        Series.Y.DataField = dc.Name '设置Y轴的绑定列
    End If
Next