在vb中datagrid綁定數據之後
For i = 0 To datagrid.Items.Count - 1
If dataGrid.Items(i).Cells(2).Text.Trim.Length > 6 Then
dataGrid.Items(i).Cells(2).Text = Left(dataGrid.Items(i).Cells(2).Text.Trim, 6) & "..."
Else
dataGrid.Items(i).Cells(2).Text = dataGrid.Items(i).Cells(2).Text.Trim
End If
next