VSFlexGrid1如何进行计数？

soclp 2012-09-04 11:14:10

VSFlexGrid1如何进行计数？（举例如下：）

ID 数据1 数据2
1 154 155
2 ddd 552
3 851 545
4 kkj
5 ddg
6
7 kuu 155

Text1.text = 4 （字符账号）
Text2.text = 6 （数字账号）
Text3.text = 4 （空格）

注：以上不连接数据库（不需要返回数据库记录集）

...全文

134 3 打赏收藏举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

soclp 2012-09-10

打赏
举报

我用循环又做出来了，但不知道有没有你的办法好。
Dim i, j As Integer
Dim n, m As Long
'n = 0
Dim bEmpty As Boolean
With MSFlexGrid1
For i = 1 To 15
For j = 1 To 8
If .TextMatrix(i, j) <> "" Then
n = n + 1
End If
Next 'j
Next 'i
Text2.Text = n
End With

soclp 2012-09-10

打赏
举报

太感谢了，很有用。一直用动态循环没做出来，非常好。

专注编程优化20年 2012-09-05

打赏
举报



Private Sub Form_Load()

VSFlexGrid1.TextMatrix(0, 1) = "ID"

VSFlexGrid1.TextMatrix(0, 2) = "数据1"

VSFlexGrid1.TextMatrix(0, 3) = "数据2"



VSFlexGrid1.TextMatrix(1, 1) = "1"

VSFlexGrid1.TextMatrix(1, 2) = "154"

VSFlexGrid1.TextMatrix(1, 3) = "155"





VSFlexGrid1.TextMatrix(2, 1) = "2"

VSFlexGrid1.TextMatrix(2, 2) = "ddd"

VSFlexGrid1.TextMatrix(2, 3) = "552"





VSFlexGrid1.TextMatrix(3, 1) = "3"

VSFlexGrid1.TextMatrix(3, 2) = "851"

VSFlexGrid1.TextMatrix(3, 3) = "545"



VSFlexGrid1.TextMatrix(4, 1) = "4"

VSFlexGrid1.TextMatrix(4, 2) = "kkj"

VSFlexGrid1.TextMatrix(4, 3) = ""



VSFlexGrid1.TextMatrix(5, 1) = "5"

VSFlexGrid1.TextMatrix(5, 2) = "ddg"

VSFlexGrid1.TextMatrix(5, 3) = ""



VSFlexGrid1.TextMatrix(6, 1) = "6"

VSFlexGrid1.TextMatrix(6, 2) = ""

VSFlexGrid1.TextMatrix(6, 3) = ""



VSFlexGrid1.TextMatrix(7, 1) = "7"

VSFlexGrid1.TextMatrix(7, 2) = "kuu"

VSFlexGrid1.TextMatrix(7, 3) = "155"



Dim 字符账号量 As Integer, 英文账号量 As Integer, 空格数 As Integer

CountVsFlexGrid VSFlexGrid1, 1, 7, 2, 3, 字符账号量, 英文账号量, 空格数

MsgBox "字符账号量=" & 字符账号量 & vbCrLf & "英文账号量=" & 英文账号量 & vbCrLf & "空格数=" & 空格数

End Sub

'┏〓〓〓〓〓〓〓〓〓 CountVsFlexGrid,start 〓〓〓〓〓〓〓〓〓┓

'［简介］：

'统计VsFlexGrid数据

Sub CountVsFlexGrid(VSFlexGrid1 As VSFlexGrid, RowStart As Long, RowTo As Long, ColStart As Long, ColTo As Long, 字符数据量 As Integer, 数字型数据量 As Integer, 空格数 As Integer)

   'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件

   '--需要什么函数或功能，可以联系我。

   '版权所有，请保留作者信息.QQ：2605961812

   '如需商业用途请联系作者

   Dim Row As Integer, Col As Integer

   For Row = RowStart To RowTo

   For Col = ColStart To ColTo

       If VSFlexGrid1.TextMatrix(Row, Col) = "" Then

       空格数 = 空格数 + 1

       ElseIf IsNumeric(VSFlexGrid1.TextMatrix(Row, Col)) Then

       数字型数据量 = 数字型数据量 + 1

       Else

       字符数据量 = 字符数据量 + 1

       End If

   Next

   Next

End Sub

'┗〓〓〓〓〓〓〓〓〓  CountVsFlexGrid,end  〓〓〓〓〓〓〓〓〓┛