mapx属性编辑赋值问题

<P>　　　Dim Srv As MapXLib.RowValue<BR>            Dim Drv As MapXLib.RowValue<BR>            Dim Srvs As MapXLib.RowValues<BR>            Dim Drvs As MapXLib.RowValues<BR>            Dim Sds As MapXLib.Dataset<BR>            Dim Dds As MapXLib.Dataset<BR>            lyr.AddFeature pCrtFea<BR>            Set Srvs = Sds.RowValues(pF)<BR>            Set Drvs = Dds.RowValues(pCrtFea)<BR>            Dim ColNum As Integer<BR>            For ColNum = 1 To Srvs.Count<BR>               Set Srv = New MapXLib.RowValue<BR>                Srv = Srvs.Item(ColNum)<BR>                Set Drv = New MapXLib.RowValue<BR>                Set Drv = Srv<BR>                Drvs.Add Drv<BR>                             <BR>               ' MsgBox Drvs.Item(ColNum).Value<BR>            Next<BR>            pCrtFea.Update</P>
<P>偶这样赋值，怎么都赋不上，请问高手如何解决？</P>