For i = 1 To grid1.Cols - 1
maxColWidth = 100
For j = 0 To grid1.Rows - 1
If maxColWidth < grid1.TextMatrix(j,i) Then
maxColWidth = grid1.TextMatrix(j,i)
End If
grid1.ColWidth(i) = maxColWidth + 200
Next
grid1.ColWidth(i) = maxColWidth + 200
Next
什么意思,为什么宽度变不了