VSFlexGrid1如何进行计数？
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 （空格）

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

[解决办法]

VB code

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 IntegerCountVsFlexGrid 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   NextEnd Sub'┗〓〓〓〓〓〓〓〓〓  CountVsFlexGrid,end  〓〓〓〓〓〓〓〓〓┛