主题：[求助]如何实现表中数据读取。

Dim t As Table = Tables("表名")

Dim dr as DataRow

Dim a(5) As Double
dr = t.Datatable.Find("条件表达式")

For i as integer = 4  to 9

      a(i - 4) = dr(t.Cols(i).Name)

Next