向大家请教一个关于Microsoft Hierarchical FlexGrid Control 6.0 (SP4) (OLEDB)的问题。谢谢

Question

向大家请教一个关于Microsoft Hierarchical FlexGrid Control 6.0 (SP4) (OLEDB)的问题。谢谢.
我用Microsoft Hierarchical FlexGrid Control 6.0 (SP4）处理显示了一个表格内容，有许多行和许多列，在必要的时候，我希望某一行的所有单元格显示为蓝低白字，而其他的单元格不变颜色。我现在的做法是：
'[ 设置选中记录行的颜色变化 ]Public Function SetRow_Color(ByVal Is_Select As Boolean)    On Error GoTo Err_Transact
'--------------------------------------------------------------------------------
    
    If TableCol_Count < 1 Or TableRow_Count < 2 Then Exit Function '{ 如果没有有用记录.}
    
'--------------------------------------------------------------------------------    Dim i As Double, j As Double
    
    j = Me.MSHFGridMain.Col
    
    Me.MSHFGridMain.FocusRect = flexFocusNone
    
'--------------------------------------------------------------------------------
    
    For i = 0 To TableCol_Count - 1        Me.MSHFGridMain.Col = i
        
        If Is_Select = True Then
        
            Me.MSHFGridMain.CellBackColor = &H8000000D: Me.MSHFGridMain.CellForeColor = &H80000005
        
        Else
        
            Me.MSHFGridMain.CellBackColor = &H80000005: Me.MSHFGridMain.CellForeColor = &H80000008
            
        End If
        
    Next i
    
'--------------------------------------------------------------------------------    Me.MSHFGridMain.Col = j
    
    Me.MSHFGridMain.FocusRect = flexFocusHeavy
    
    Exit Function
    
'--------------------------------------------------------------------------------
Err_Transact:
        
    If MsgBox(ErrNote_Left & Err.Description & ErrNote_Right & "[" & Module_Name & "." & "SetRow_Color]", vbCritical + vbAbortRetryIgnore + vbDefaultButton3, ErrNote_Caption) = vbRetry Then Resume 0 Else Resume NextEnd Function这样做也就是对这行的每个单元格进行循环定位，然后分别设置单元格的颜色，但这样做在程序实际运行时有些感觉慢，请教各位，有没有一种办法可以用一个语句的操作就将某行的颜色设置好，而不需要循环。谢谢。