[求助]VB+MO开发过程中的修改属性问题

我最近在用VB+Mo做一个毕业设计（公交查询与管理系统），已经实现了在站点和路线图层上分别添加各自的空间属性（即在各自图层上画点和线），由于我用的是Shape文件自带的属性表（dbf形式的），所以每当在图层上添加一个站点或一条路线时，相应的图层也在其对应的属性表上添加一条记录，但是添加的是一条空记录，我想修改这些新添加的记录的属性值，该怎么办呀，求求各位大哥大姐帮帮忙，小弟不胜感激，最好有源代码。

<P>我是VB+MO初学者,向楼主求教如何在图层上添加点</P>

<P>哈哈</P>

<P>我的问题已经解决了，现在属性也能修改了</P>
<P>添加特征点代码如下：</P>
<P>Option Explicit</P>
<P>Private Sub DrawLayer()<BR>  Dim Layer As MapLayer<BR>  Dim dc As New DataConnection<BR>   <BR>  On Error GoTo Err1<BR>  dc.Database = App.Path + "\..\" + "Mexico"<BR>  Set Layer = New MapLayer<BR>  Set Layer.GeoDataset = dc.FindGeoDataset("states")<BR>  Layer.Symbol.Color = moLimeGreen<BR>  Map1.Layers.Add Layer<BR>  <BR>  Set Layer = New MapLayer<BR>  Set Layer.GeoDataset = dc.FindGeoDataset("CITIES1")<BR>  Layer.Symbol.Color = moRed<BR>  Map1.Layers.Add Layer<BR>  Exit Sub<BR>  <BR>Err1:<BR>  If dc.ConnectError = 0 Then<BR>    MsgBox "没找到图层", vbInformation, "MO示例"<BR>  Else<BR>    MsgBox ConnectErrorMsg(dc.ConnectError), vbInformation, "MO示例"<BR>  End If<BR>  End<BR>End Sub</P>
<P>Private Sub Form_Load()<BR>  DrawLayer   '加载墨西哥地图的States和Cities1图层；<BR>End Sub</P>
<P>Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<BR>  Dim P1 As MapObjects2.Point<BR>  Dim Ans As Variant<BR>  Dim Recs As MapObjects2.Recordset<BR>  Dim Layer As MapObjects2.MapLayer<BR>  <BR>  Set Layer = Map1.Layers("CITIES1")<BR>  Set Recs = Layer.Records<BR>  Set P1 = Map1.ToMapPoint(X, Y)<BR>  <BR>  Ans = MsgBox("要添加这个特征?", vbYesNo, "MO示例")<BR>  If Ans = vbYes Then<BR>    If Recs.Updatable Then<BR>      With Layer.Records<BR>        .AddNew<BR>        .Fields("Shape").Value = P1    '添加特征；<BR>        .Fields("Name").Value = "新城市"<BR>        .Fields("CITIES_").Value = "1"<BR>        .Update<BR>        .StopEditing<BR>      End With<BR>      Map1.Refresh<BR>    Else<BR>      MsgBox "图层文件不能编辑"<BR>    End If<BR>  End If<BR>End Sub<BR></P>

<P>我也在做VB+Mo做一个毕业设计 也是（公交查询与管理系统），</P>
<P>哈哈,真是高兴,跟我做的一样的题</P>
<P>huqingfeng你好</P>
<P>我正犯愁类,有空来指导一下</P>
<P>qq:410829536 </P><img src="images/post/smile/dvbbs/em04.gif" />

<P>小问题来迟了一步</P>

小弟正在作ＶＢ＋ＭＯ毕业设计，学业不精，遇到不少问题！愿意请教。ＱＱ：308368802<img src="images/post/smile/dvbbs/em02.gif" />