Dim Builder As New ADOXBuilder
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("数据表")
For Each dc As DataCol In DataTables("数据表").DataCols
If dc.name <> "日期" Then
.DeleteColumn(dc.name)
End If
Next
For Each dr As Row In Tables("参数名").rows
If dr("是否选择") = True Then
Dim s As String = dr("累积量名")
’MessageBox.Show(s)
.AddColumn(s,ADOXType.Double)
End If
Next
End With