Private Sub Command1_Click()
'根据数据调整列宽
Dim intColWidthTemp As Integer, intColWidth As Integer, intEnd As Long
Dim strCol2 As String
Dim i As Integer, ii As Integer
'i = 1: ii = 1
intEnd = MSHFlexGrid1.Rows - 1 '下越标
If intEnd = 0 Then Exit Sub
If intEnd > 50 Then intEnd = 50
For ii = 0 To MSHFlexGrid1.Cols - 1
intColWidth = TextWidth(MSHFlexGrid1.TextMatrix(i, ii)) '第一行的宽度
For i = 0 To intEnd - 1 '抽N行取样
intColWidthTemp = TextWidth(MSHFlexGrid1.TextMatrix(i + 1, ii)) '第N行的宽度
If intColWidthTemp > intColWidth Then intColWidth = intColWidthTemp '取最大的宽度
Next
intColWidthTemp = TextWidth(MSHFlexGrid1.ColHeaderCaption(0, ii))
If intColWidthTemp > intColWidth Then intColWidth = intColWidthTemp '如果最大宽度小于标题宽度就取标题宽度
MSHFlexGrid1.ColWidth(ii) = intColWidth + 300