生成临时表后,先处理一下,才能就插入行
DataTables("统计表1").DataCols.Add("_Sortkey", Gettype(Double))
For Each r As Row In Tables("统计表1").Rows r("_Sortkey") = r.IndexNext
Tables("统计表1").InsertNew