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