StatusBar1.SimpleText = "¸÷ºÏͬ¿Í»§Àۼƹ²ÓÐ:" & mymark & "ÌõÏû·ÑÏîÄ¿"
re10.MoveNext
Next m
With MSHFlexGrid1
If .Rows > 1 Then
.FillStyle = flexFillRepeat
For i = .FixedRows + 1 To .Rows - 1 Step 2
.Row = i
.Col = .FixedCols
.ColSel = .Cols() - .FixedCols
.CellBackColor = &H8000000F 'vbInfoBackground ' light grey
Next i
.FillStyle = flexFillSingle
'.Sort = flexSortGenericAscending
'.MergeCells = flexMergeRestrictColumns
End If
End With