let ofArray2D o =。
let dt = new System.Data.DataTable()。
将 o 与 匹配。
| 空 -> ()。
| o ->。
设 a =。
匹配框 o 与。
| :?(obj[,]) 作为 ->。
| o -> Array2D.create 1 1 o。
let jbase = a.GetLowerBound 0。
let jrange = {jbase + 1 .. a.GetUpperBound 0}。
let ibase = a.GetLowerBound 1。
let irange = {ibase .. a.GetUpperBound 1}。
for i in irange do。
dt.Columns.Add(。
字符串 a., 。
类型)。
|> 忽略。
for j in jrange do。
让 row = dt,新行()。
for i in irange do 。
排,。
dt.行,添加行 。
断续器。
页:
1
[2]