请教：vb＋mapbasic 创建点，提示“jz表只读”，如何解决？

<P>请教：vb＋mapbasic 创建点，提示“jz表只读”，如何解决？<BR>以下是源程序：</P>
<P>Private Sub POWERALARM_Click(Index As Integer)</P>
<P> Dim MapPath As String<BR> MapPath = App.Path<BR> MapInfo.do "register table " ; " """ ; MapPath ; "\Gis\图层文件\jz.xls" ; """ " ; "  type xls "<BR> MapInfo.do " Open Table" ; """" ; MapPath ; "\Gis\图层文件\jz.tab" ; """" ; "  Interactive"<BR>  MapInfo.do "create map for jz"<BR> MapInfo.do "Set Map Layer jz Editable On"<BR> <BR> MapInfo.do "Dim r1 As Float"<BR> MapInfo.do "Dim r2 As Float"<BR> MapInfo.do "Dim i As Integer"<BR> MapInfo.do "i = 2"<BR> MapInfo.do "Dim newPoint As Object"<BR> <BR> Dim i As Integer<BR> i = 1<BR> <BR> Do While i < 100<BR> MapInfo.do "fetch rec i from jz r1=jz.col2"<BR> MapInfo.do "fetch rec i from jz r2=jz.col3"<BR> MapInfo.do "create point into  Variable newPoint (r1,r2) Symbol (34,16711680,24)"<BR> MapInfo.do "Insert Into jz (Obj) values(newPoint) where rownum=i"<BR> MapInfo.do "i=i+1"<BR> i = i + 1<BR> Loop</P>
<P> MapInfo.do "map from jz"<BR> <BR> <BR>End Sub</P>

<P>需要把jz表另存后打开，即可。</P>
<P>因为打开的标数据还是存储在excell上，所以数据不可编辑。</P><img src="images/post/smile/dvbbs/em07.gif" />