Private Sub m_Bill_LoadBillEnd(ByVal ShowType As Long)

    With m_Bill.Grid

        .BlockMode = True

        .Col = GetCtlOrderByFieldName("FItemID")

        .Col2 = GetCtlOrderByFieldName("FItemID")

        .Row = 1

        .Row2 = 10

        .ForeColor = RGB(255, 0, 0)

        .BlockMode = False

    End With

End Sub

没用的代码