vb.net+ao程序问题？

<H2> </H2>
<DIV>程序出现问题,总是调试不过<BR>代码：<BR><BR>If iPopToHouse > 0 Then<BR>                Try<BR>                    'Run Rank Roads<BR>                    RankRoads(pFeatureClass)<BR>                    'Sort Roads:<BR>                    pQFil_Roads.WhereClause = "Land_Use = 'Road' AND DevStatus = 100"<BR>                    pFCur_Roads = pFeatureClass.Search(pQFil_Roads, True) 'get undeveloped roads<BR>                    With pTSort_Roads<BR>                        .Cursor = pFCur_Roads<BR>                        .Fields = "Score"<BR>                        .Table = pFeatureClass<BR>                        .Ascending("Score") = True<BR>                    End With<BR>                    pTSort_Roads.Sort(Nothing)<BR>                    pFCur2_Roads = pTSort_Roads.Rows<BR>                    'Develop next road:<BR>                    pFeat_Road = pFCur2_Roads.NextFeature<BR>                    pFeat_Road.Value(intField) = 0<BR>                    pFeat_Road.Store()<BR>                Catch<BR>                    MsgBox("Insufficient housing available to develop.", MsgBoxStyle.Critical)<BR>                End Try<BR>            End If<BR><BR>程序运行总是提示"Insufficient housing available to develop."？<BR>可能的原因在那？请斑竹指点</DIV>

<P>怎么指点？</P>
<P>你代码里卫语句这么少，基本不做Nothing判断。</P>
<P>至少你调试的时候加断点啊，跟踪一下，你不设断点，都Catch掉，当然找不出原因所在。</P>