Tables("统计表1").DataTable.DataCols.Add("序号", Gettype(Integer))Tables("统计表1").Cols("序号").Move(0)Dim cnt As Integer = Tables("统计表1").Rows.Count
For n As Integer = 0 To cnt - 1 '遍历所有行 Tables("统计表1").Rows(n)("序号") = n + 1Next