MapInfo问题求助：如何一次性合并多张表结构相同的表？

<P>我想把二十几张表结构相同的表合并到一张表上，包括其图形和数据，用　表－＞在表中添加行命令，一次只能加一张表，复杂且可能重复，求助如何才能一次把他们并合到一起呢？</P>
<P>Open  Table "D:\mapinfo\zj1"    Interactive
Open  Table "D:\mapinfo\zj2"    Interactive
Open  Table "D:\mapinfo\zj3"    Interactive</P>
<P>Insert Into zj1       Select  *  From  zj2
Insert Into zj1       Select  *  From  zj3     </P>
<P>
Commit Table zj1
Close  Table All    </P>
<P>以上是我编的程序，为什么不行呢，求助！！</P>

<P>问题2：</P>
<P>　　在这二十几张表中，每一张表都有不同的用地性质，如耕地，林地等，我想用MapBasic 语言将其按用地性质的不同，分别修改其图形样式，问应该如何实现呢？</P>
<P>Include "MapBasic.def"
Dim zzj As Object
Open Table "D:\mapinfo\zj1"
  Fetch First From zj1</P>
<P>  Do While Not EOT(zj1)
    zzj=zj1.obj
    Do Case zj1.用地性质
    Case  "建设用地"
        Alter Object zzj
          Info  OBJ_INFO_BRUSH ,MakeBrush(2,RED,WHITE)
    Case  "耕地"
        Alter Object zzj
          Info  OBJ_INFO_BRUSH ,MakeBrush(2,BLUE,WHITE)
    End  Case
  Fetch  Next From zj1  Loop</P>
<P>Commit Table kg_bj
Close  Table kg_bj </P>
<P>以上的程序也不能用，为什么呢，错在哪里？还请各位高手相助！！</P>

本人信箱：<a href="mailtzzj115@sina.com" target="_blank" >zzj115@sina.com</A>,若能给予解答，小弟不胜感激！！

这里不是人气很旺吗？？？高手快来帮帮我啊！！！<img src="images/post/smile/dvbbs/em02.gif" />

这么久了，还是没人上来帮忙，其中的一个问题我已经调试出来了，哎，靠人不如靠已啊！

<P>菜鸟应答，不须高手。</P><P>第一个，你用Win Api 遍历文件夹，或着将文件名写到文本中，作个循环不就可以吗 。</P><P>第二个，是编译错误还是运行错误？调一下也没结果吗，Alter 后面没有update ，即使不错，也等于没有效果。</P><P>    </P>