主题：怎么把等级用星星表示

也可以这样试试

'DataColChanged事件代码

Dim dr As DataRow = e.DataRow
Dim s As String
if dr("记功等级").StartsWith("★") = false Then
    if e.DataCol.Name = "记功等级" AndAlso e.Datarow.IsNull("记功等级") Then
        dr("记功等级") = Nothing
    Else
        For i As integer = 0 to dr("记功等级") -1
            s = s & "★"
        Next
        dr("记功等级") = s
    End If
End If

如果记功等级已经是星号，再触动此单元格就会出错。