How to use a simple field that is too long ...... .

Previously used.

Dim Table As Datatable = DS. Tables ( " Transcript " )

Table. Columns. Add ( New Datacolumn ( " Name 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 ( " Name " ))
If   Len (Zt) >   2   Then
Table. Rows (I). Item ( " Name 1 " ) =   Left (ZT, 1 ) &   " ... "
Else
Table. Rows (I). Item ( " Name 1 " ) = ZT
End   If
Next

Changed this morning.

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

Conclusion:CodeThen I thought about whether there are more concise methods to complete this function.