VBA中如何把数据从shp格式的数据库中读出来赋值给数组

<P>把数据从attribute table中读出来,然后赋值给一个数组,公式计算</P>

<P>谢谢大家了!!!</P>

<P>哪位达人帮忙看看这段程序,为什么数组除了第一个值赋值为field的最后一个record,其他均为零,到底是那点出问题了,谢谢了</P>
<P>Dim pMap As IMap<BR>Dim pMxDocument As IMxDocument<BR>Set pMxDocument = ThisDocument<BR>Set pMap = pMxDocument.FocusMap</P>
<P>Dim pFeatureLayer As IFeatureLayer<BR>Dim pFeatureClass As IFeatureClass<BR>Set pFeatureLayer = pMap.Layer(2)<BR>Set pFeatureClass = pFeatureLayer.FeatureClass</P>
<P>Dim i As Integer</P>
<P>Dim pArraytour(31) As Long<BR>Dim pArraypopu(31) As Long<BR>Dim pArrayGDP(31) As Long<BR>Dim pArrayLong(31) As Long<BR>Dim pArrayLat(31) As Long<BR>Dim ptour As Long<BR>Dim ppopu As Long<BR>Dim pGDP As Long<BR>Dim pLong As Long<BR>Dim pLat As Long</P>
<P>ptour = pFeatureClass.FindField("国内游客")<BR>ppopu = pFeatureClass.FindField("人口")<BR>pGDP = pFeatureClass.FindField("GDP")<BR>pLong = pFeatureClass.FindField("经度")<BR>pLat = pFeatureClass.FindField("纬度")<BR>Dim pFeature As IFeature<BR>'*****************<BR>Dim query As IQueryFilter<BR>Dim cur As IFeatureCursor<BR>Set query = New QueryFilter<BR>Set cur = pFeatureClass.Update(query, True)<BR>Set pFeature = cur.NextFeature<BR>For i = 0 To 30 Step 1<BR>Do Until pFeature Is Nothing</P>
<P>pArraytour(i) = pFeature.value(ptour)<BR>pArraypopu(i) = pFeature.value(ppopu)<BR>pArrayGDP(i) = pFeature.value(pGDP)<BR>pArrayLong(i) = pFeature.value(pLong)<BR>pArrayLat(i) = pFeature.value(pLat)</P>
<P>         cur.UpdateFeature pFeature<BR>          Set pFeature = cur.NextFeature</P>

<P>'****************</P>
<P>Loop</P>
<P><BR>  Next i<BR><BR>End Sub</P>