简洁的 字段过长如何用……表示。

以前用。

Dim  table  As  DataTable  =  Ds.Tables( " 成绩单 " )

        table.Columns.Add( New  DataColumn( " 姓名1 " ,  GetType ( String )))

         Dim  i  As   Integer
         Dim  zt  As   String

         For  i  =   0   To  table.Rows.Count  -   1
            zt  =   Trim (table.Rows(i).Item( " 姓名 " ))
             If   Len (zt)  >   2   Then
                table.Rows(i).Item( " 姓名1 " )  =   Left (zt,  1 )  &   " …"
             Else
                table.Rows(i).Item( " 姓名1 " )  =  zt
             End   If
         Next

今天早上改写的。

Function aaa() Function aaa(ByVal bbb As String)
        If Len(bbb) > 5 Then
            Return Mid(bbb, 1, 3) + "……"
        Else
            Return bbb
        End If
    End Function

 

< %# aaa(Container.DataItem( " 姓名 " )) % >

得出的结论：写完代码后再思考是否有更简洁的方法来完成此功能。

转载于:https://www.cnblogs.com/LCX/archive/2004/09/19/44539.html