问题:
在查询记录的窗体用到了MSFlexGrid控件,但是有的记录字数太多,被控件给“吞”了,这个时候可以设置自动调整列宽。
解决:
在模块中定义:
Public Sub AdjustColWidth(frmCur As Form, gridCur As Object, Optional bNullRow As Boolean = True, Optional dblIncWidth As Double = 0)
'功能:
' 自动调整Grid各列列宽为最合适的宽度
'参数:
'..................[frmCur] 为当前工作窗体
'..................[gridCur]为当前要调整的Grid
'定义参数:
Dim i, j As Integer
Dim dblwidth As Double
With gridCur
For i = 0 To .Cols - 1
dblwidth = 0
If .ColWidth(i) <> 0 Then
For j = 0 To .Rows - 1
If frmCur.TextWidth(.TextMatrix(j, i)) > dbwidth Then
dblwidth = frmCur.TextWi