主题：请看列类型的问题

这样可以了 对吗？ 在startedit中加上：
if e.Row("记功等级").contains("★") then  
    e.Row("记功等级") = ""
end if
这样修改时不会出问题了。

其实不用这样，以上可以限定只可以录入数字，在KeyPressEdit中如下设定
If Char.IsPunctuation(e.KeyChar) OrElse Char.IsSymbol(e.KeyChar)  OrElse Char.IsLetter(e.KeyChar)  Then
    e.Cancel = True
End If

不仅达到这个目的，还可以防止无厘头的录入，比如小数、英文/中文字符等等

kylin老师12楼说的很好，应该这样录入的时候只允许输入数字，这样保证了第一次录入的正确性。
但我10、11楼的意思是：
在修改某个带"★"号单元格时，如不小心碰了空格键或双击了这个单元格，如不加与判断清除"★"号，则仍就可以继续在"★"号后面继续输入数字（有些人录入速度快，不抬头就enter了）。
为确保录入、修改数据，11和12楼代码都用上，万无一失了～ 

4、7楼代码都有问题的，假如在记功等级列输入0就会出错。

再来一个：

If e.DataCol.Name = "记功等级" Then
    If e.DataRow.IsNull("记功等级") Then
        e.DataRow("奖励") = Nothing
    Else
        Dim s As Integer
        If Integer.TryParse(e.DataRow("记功等级"),s) AndAlso s > 0 Then
            e.DataRow("记功等级") = "★".PadLeft(s,"★")
            e.DataRow("奖励") =s * 50
        End If
    End If
End If