Dim table As DataTable = Ds.Tables("成绩单") table.Columns.Add(New DataColumn("姓名1", GetType(String))) Dim i AsInteger Dim zt AsString For i =0To table.Rows.Count -1 zt =Trim(table.Rows(i).Item("姓名")) IfLen(zt) >2Then table.Rows(i).Item("姓名1") =Left(zt, 1) &"…" Else table.Rows(i).Item("姓名1") = zt EndIf Next