怎么把等级用星星表示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么把等级用星星表示

共有21533人关注过本帖树形打印复制链接主题：怎么把等级用星星表示

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/6/26 22:52:00 [显示全部帖子]

PadLeft

在字符串左侧填充空格或指定的字符，使得字符串的长度达到指定的长度。

语法：

PadLeft(Length)
PadLeft(Length, Char)

参数：

Length:	希望字符串达到的长度。
Char:	可选参数，指定用于填充的字符，如果省略，则用空格填充。

例如：

Dim s1 As String ="abcd"
Dim s2 As String = s1.PadLeft(6,"0")
Dim s3 As String = s1.PadLeft(6)
Output.Show("s2 = """ & s2 & """")
Output.Show("s3 = """ & s3 & """")

在命令窗口执行上述代码，输出结果是：

s2 = "00abcd"
s3 = " abcd"

再例如我们要定义一个字符串，并将字符串的值设为100个空格，这还真是一个难题，因为100个空格可不是那么好数的。
如果用PadLeft，那么就很简单：

Dim s1 As String = " ".PadLeft(100)

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/6/27 12:32:00 [显示全部帖子]

呵呵，条条道路通罗马，我也来一段：

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

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/6/27 13:00:00 [显示全部帖子]

23楼正常啊

下一主题 >> << 上一主题

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