[求助]在做浏览属性数据出现的问题，附代码？急！！！

这段程序主要想做成类似mapinfo中的浏览属性数据或者arcview中的table

Dim recs As MapObjects2.Recordset Dim fld As MapObjects2.Field

MSHFLEXGRID1.Clear Set recs = frmmain.mapDisp.Layers(0).Records '获得活动图层的记录集 '通过recs.Fields的字段集合获得活动图层的所有字段名, '并将字段名附给MSHFlexGrid1(vb控件)做列标题 , '利用fld.ValueAsString获得每条记录, '添加至MSHFlexGrid1.这样就可以实现了不查询获得所有属性数据记录了.

With GridFeatList Dim j As Integer  .Rows = 1                     '总行数设为1 recs.MoveFirst Do While Not recs.EOF             'while循环每循环一次,获取一条记录   .Rows = .Rows + 1   j = 1                        '从第2列(序号为1)开始填入属性数据,第一列为序号   For Each fld In recs.Fields  '该循环每次获取的是一条记录的所有字段值     .TextMatrix(.Rows - 1, 0) = .Rows - 1     .TextMatrix(.Rows - 1, j) = fld.ValueAsString     j = j + 1   Next fld     recs.MoveNext Loop End With

我在编译中不能通过说下面这句有问题，实时错误 381 ，下标越界

  .TextMatrix(.Rows - 1, j) = fld.ValueAsString

请高手帮忙看看！

检查一下你的数组定义啦！

查不出来啊，急。不知道有没有人做过？出来讲讲！

能不能附一下代码啊？

必须定义grid的行数，列数，因为默认的为两列两行，所以显示为下标越界，一般定义为grid.cols=recs.count,我没仔细看你的程序，反正就是这个问题了。

3x, 一语中地！

太感谢了，看来我还是对mshflexgrid不是很熟悉！