Dim dt As DataTable = DataTables("表名")
Dim dr as DataRow
Dim a(5) As Doubledr = dt.Find("条件表达式")
For i as integer = 4 to 9
a(i - 4) = dr(dt.DataCols(i).Name)
Next