'-------------------------------------------------------------
'功能:在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