[求助]ACCESS中又没有统计文本控件中数据行数的函数

红烧羊肉面

请教:我想知道文本控件中录入的数据共有行多少数,请问ACCESS中又没有统计的函数?

谢谢

zhengjialon

dcount函数可以统计表中的记录数.

方漠

Access自带的文本框？还是RichTextBox?统计来有什么用？

Trynew

可以通过统计回车换行符( 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

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

方漠

自动换行没有回车符的。

软件下载

关注一下