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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 显示字符数

共有16688人关注过本帖树形打印复制链接主题：显示字符数

老有所乐

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

加好友

发短信

等级：三尾狐帖子：746 积分：6673 威望：0 精华：1 注册：2008/9/1 11:46:00

显示字符数

Post By：2009/8/18 11:41:00 [只看该作者]

A列为字符型列，B列为整数型列，在A列输入N个字符，B列自动显示N。如在A列输入“今天晴天”，B列自动显示 4 。
请问B列的代码如何写？谢谢！

[此贴子已经被作者于2009-8-18 11:42:50编辑过]

HLJ

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

加好友

发短信

等级：婴狐帖子：71 积分：703 威望：0 精华：0 注册：2009/7/4 13:56:00

Post By：2009/8/18 11:44:00 [只看该作者]

Length

返回字符串的长度，不管是英文字符还是中文字符，在计算长度的时候都是1。

例如在命令窗口输入：

Dim s As String = "ABC中国DEF"
Output.show(s.Length)

执行之后，显示的结果为8。

再例如：

Dim s As String = "中国人"
For i As Integer = 0 To s.Length - 1
Output.Show(s.Chars(i))
Next

在命令执行上述代码后，会显示：

中
国
人

yangming

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

加好友

发短信

等级：超级版主帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00

Post By：2009/8/18 11:49:00 [只看该作者]

If e.DataCol.Name = "A" Then
    If e.DataRow.IsNull("A") Then
        e.DataRow("B") = Nothing
    Else
     e.DataRow("B") = e.DataRow("A").Length
    End If
End If

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

主题：显示字符数