在C1FlexGrid表格上打印*号

 

    '-------------------------------------------------------------
    '功能：在C1FlexGrid表格上打印*号

    '参数：C1FlexGrid

    '返回：无

    '方法：C1PrintXing(c1flexgrid1)
    '-------------------------------------------------------------
    Public Sub C1PrintXing(ByVal flexgrid As C1FlexGrid)
        Dim i As Integer
        For i = 1 To flexgrid.Rows.Count - 1
            If i = flexgrid.Row Then
                flexgrid(i, 0) = "*"
            Else
                flexgrid(i, 0) = ""
            End If
        Next
    End Sub