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
今天早上改写的。
Function aaa()Function aaa(ByVal bbb AsString) IfLen(bbb) >5Then ReturnMid(bbb, 1, 3) +"……" Else Return bbb EndIf End Function