不行  我要全部显示  w我是说  他只显示一行!

解决方案 »

  1.   

    只显示固定的长度--我也没有什么好办法,只有这样将就了    Public Function StringTruncate(ByVal s As String, ByVal j As Integer) As String
            Dim sr As String = ""
            Dim i As Integer = 0
            Dim k As Integer = j
            Do
                If s.Substring(i * j).Length < j Then j = s.Substring(i * j).Length
                If sr.Trim() <> "" Then
                    sr = sr + "<br>" + s.Substring(i * j, j)
                Else
                    sr = sr + s.Substring(i * j, j)
                End If
                i = i + 1
                'If j = 0 Then Exit Do
            Loop While (k = j)
            Return sr
        End Function