Question

vb中如何统计 DataGrid中的行数，需要根据DataGrid的，而不是通过数据源来统计

Answer 1

Adodc + DataGrid + Text (暂为Adodc1、DataGrid1和Text1)
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
Text1.Text =“记录数为：” Adodc1.Recordset.RecordCount '--用来显示记录数

Answer 2

Text1.Text = DataGrid1.VisibleRows ’统计行数
Text2.Text = DataGrid1.Columns.Count ‘统计列数
Text2.Text = DataGrid1.VisibleCols ‘同样统计列数

Answer 3

说说思路：
这个显然要用ADO
1、连接数据库，得到连接对象conn
2、用下面的select语句打开表，将数据读入RecordSet
set rs=conn.execute("select * from 表名")
3、用循环将数据读入二维数组arr
row=0
while not rs.eof
arr[row,0]=rs["id"]
arr[row,1]=rs["year"]
arr[row,2]=rs["mon"]
arr[row,3]=rs["1"]
arr[row,4]=rs["2"]
...
...
...
row=row+1
wend