字段过长用...表示

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

<%# aaa(Container.DataItem("姓名")) %><%# aaa(Container.DataItem("姓名")) %>以前用。

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

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

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

posted on 2004-09-19 09:56 大力 阅读(1108) 评论(4)  编辑 收藏 收藏至365Key

评论

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

函数名称为什么要叫aaa呢。

2004-09-20 09:54 | Ninputer

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

可能仅仅是为了演示呐

2004-09-20 10:40 | unruledboy（灵感之源）

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

我喜欢叫AAA不行啊。。。？

2004-09-20 16:06 | 大力

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

我的BLOG内有一个文章直接用CSS也可以达到
http://www.cnblogs.com/LCX/archive/2004/09/21/44539.html#45105