主题:  求助如何用鼠标改变窗体内表格字段宽窄

SHUNLAI

职务:普通成员
等级:1
金币:0.0
发贴:36
注册:2006/2/4 15:45:13
#12006/2/7 12:07:47
各位先生你们好!
向大家请教个问题,就是如何在打开的窗口表格中,用鼠标改变表格字段的宽窄?而不是在编码中设定数值(如: .RowHeight(i) = 280)。
恳请大家帮忙解决,谢谢!
-----------------------------------
Dim i As Integer
On Error GoTo seterror
With grdLoupan
.ScrollBars = flexScrollBarBoth
.FixedCols = 1
.Rows = rs_paihao.RecordCount + 1
.Cols = 11
.SelectionMode = flexSelectionByRow
For i = 0 To .Rows - 1
.RowHeight(i) = 280
Next
For i = 0 To .Cols - 1
.ColWidth(i) = 2000
Next i
End With
Exit Sub