以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  显示字符数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3894)
--  作者：老有所乐
--  发布时间：2009/8/18 11:41:00
--  显示字符数
A列为字符型列，B列为整数型列，在A列输入N个字符，B列自动显示N。如在A列输入“今天晴天”，B列自动显示 4 。
请问B列的代码如何写？谢谢！
[此贴子已经被作者于2009-8-18 11:42:50编辑过]
--  作者：HLJ
--  发布时间：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
--  发布时间：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