为什么我这段代码删除不了字段和修改属性值？

<b>为什么我这段代码删除不了字段和修改属性值？

</b>vb.net：
          .......
        Dim pFieldsEdit As IFieldsEdit
                    pFieldsEdit = pFields
              pField = pFields.Field(Iindex)
              pfclass.DeleteField(pField)     '这句的程序，在8.3下可以删除该字段，但在9.0下出错。
             ' pFieldsEdit.DeleteField(pField) '这句的程序，在8.3，9.0下都正常，也执行。但结果却没有删除该字段。


<P>                 Dim fe As IFeature</P>
<P>                    fe = pCu.NextFeature</P>
<P>                    Do Until fe Is Nothing
                        fe.value(2) = "Y"
                        fe.Store()             '8.3下正常，但9.0下出错。
                        ' pCu.UpdateFeature(fe)  ' 这句的程序，在8.3，9.0下都正常，也执行。结果并没有修改成功
                        fe = pCu.NextFeature
                    Loop</P>
<P>另外,我添加一个新的字段。
'Create Small Integer Field
Dim pDomain As IDomain
Set pField = New Field
Set pFieldEdit = pField</P>
<P>With pFieldEdit
    .Defaultvalue = 6
    Set .Domain = pDomain
    .DomainFixed = True
    .Editable = True
    .IsNullable = False
    .Length = 8
    .Name = "population"
    .Type = esriFieldTypeSmallInteger
End With
这程序运行后生成的字段Defaultvalue没有起作用。
这是怎么回事呢？很多都是例子的代码。虽然没出错，但没有得到正确的结果！！</P>
<p>
<P>                            
</P>