各位先生你们好!
向大家请教个问题,就是如何在打开的窗口表格中,用鼠标改变表格字段的宽窄?而不是在编码中设定数值(如: .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