Office中国论坛/Access中国论坛

标题: [求助]ACCESS中又没有统计文本控件中数据行数的函数 [打印本页]

作者: 红烧羊肉面 时间: 2004-12-24 20:06
标题: [求助]ACCESS中又没有统计文本控件中数据行数的函数
请教:我想知道文本控件中录入的数据共有行多少数,请问ACCESS中又没有统计的函数?

谢谢

作者: zhengjialon 时间: 2004-12-24 20:54
dcount函数可以统计表中的记录数.

作者: 方漠 时间: 2004-12-24 21:25
Access自带的文本框？还是RichTextBox?统计来有什么用？

作者: Trynew 时间: 2004-12-24 22:42
可以通过统计回车换行符( Chr(13) & Chr(10) ) 统计文本控件中数据行数：Public Function CountLine(Str As String) As Integer

Dim i As Integer, p As Integer

i = 1

Do While InStr(i, Str, Chr(13) & Chr(10)) <> 0

i = InStr(i, Str, Chr(13) & Chr(10)) + 1

p = p + 1

Loop

CountLine = p + 1

End Function

要统计显示为多少行则很难，纯中文的话可根据字符数（即多少个字算一行）和结合换行符大略估算。

作者: 方漠 时间: 2004-12-25 01:01
自动换行没有回车符的。

作者: 软件下载 时间: 2004-12-25 07:20
关注一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)