For i=0 to MSHFlexGrid.Rows-1 MSHFlexGrid.Row=i For j=0 to MSHFlexGrid.Cols-1 MSHFlexGrid.Col=j if MSHFlexGrid.Text="aaaaaaaaaa" Then Exit Sub End If Next j Next i
用以下两属性 COL 列 ROW 行
用以下两属性 COL 列 ROW 行
With W_Jc_Shhy_Find.MSHFlexGrid1 .ColWidth(0) = 97.5 .FixedCols = 1
nCOL = 1 Rs_Jc_Shhy_C_Brow.MoveFirst Do While Not Rs_Jc_Shhy_C_Brow.EOF .ColWidth(nCOL) = 97.5 * Rs_Jc_Shhy_C_Brow.Fields("headwidth").Value Rs_Jc_Shhy_C_Brow.MoveNext nCOL = nCOL + 1 Loop Rs_Jc_Shhy_C_Brow.Close End With
MSHFlexGrid.Row=i
For j=0 to MSHFlexGrid.Cols-1
MSHFlexGrid.Col=j
if MSHFlexGrid.Text="aaaaaaaaaa" Then
Exit Sub
End If
Next j
Next i
COL 列
ROW 行
COL 列
ROW 行
.ColWidth(0) = 97.5
.FixedCols = 1
.Redraw = False '禁止重画,防止闪动
.BackColorFixed = RGB(230, 250, 230) '标题行背景色
.Row = 0 '设置标题行文字的对齐方式
.Col = 0
.ColSel = .Cols - 1
.CellBackColor = RGB(0, 128, 255)
.CellForeColor = RGB(255, 255, 0) '标题行文字颜色
.CellAlignment = 4 '对其方式为中间
.ScrollTrack = True '移动滚动条的同时数据也滚动
.Row = .Rows - 1
.Col = .FixedCols
.Redraw = True '允许重画,显示表格
nCOL = 1
Rs_Jc_Shhy_C_Brow.MoveFirst
Do While Not Rs_Jc_Shhy_C_Brow.EOF
.ColWidth(nCOL) = 97.5 * Rs_Jc_Shhy_C_Brow.Fields("headwidth").Value
Rs_Jc_Shhy_C_Brow.MoveNext
nCOL = nCOL + 1
Loop
Rs_Jc_Shhy_C_Brow.Close
End With
来实现MSHFlexGrid里的定位。