If e.DataCol.Name = "记功等级" Then If e.DataRow.IsNull("记功等级") Then e.DataRow("奖励") = Nothing Else Dim s As String = e.DataRow("记功等级") If IsNumeric(s) Then Dim s2 As String = "★" Dim s3 As Integer = CInt(s) e.DataRow("记功等级") = s2.PadLeft(s,"★") e.DataRow("奖励") =s3 * 50 End If End If End If
加好友 
发短信
Post By：2009/6/27 10:34:00 [只看该作者]
