7,787
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
mmyyxx88 2007-08-14
- 打赏
- 举报
Sub GridBackColorBule(iCol as integer)
With msflexgrid1
Dim j, k, m As Integer
k = .Col
m = .Row
.Col = iCol
For j = 0 To .Rows - 1
.Row = j
.CellBackColor = QBColor(1)
Next j
.Col = k
.Row = m
End With
End Sub
With msflexgrid1
Dim j, k, m As Integer
k = .Col
m = .Row
.Col = iCol
For j = 0 To .Rows - 1
.Row = j
.CellBackColor = QBColor(1)
Next j
.Col = k
.Row = m
End With
End Sub
