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

以前用。

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("姓名")) %>

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