关于创建新表的问题（用LayerInfo）

<P>HI everyone ,我用layerinfo 创建新表怎么新表上没物体呀！</P>
<P> Dim LayerInfo As New MapXLib.LayerInfo
   Dim lyr As MapXLib.Layer
   Dim LyrTemp As MapXLib.Layer
   Dim Flds As MapXLib.Fields
   Dim Ds As MapXLib.Dataset
   Dim i As Integer
   Dim LayerName, FilePath As String
    
   On Error Resume Next
    
        '' ;acute;复制源表数据到临时表
      Set lyr = Map1.Layers.Item("All4")  </P>
<P>    Set Ds = lyr.DataSets.Item("All4")
      Set Flds = Ds.Fields
      
      LayerName = lyr.Name
      

      LayerInfo.Type = miLayerInfoTypeNewTable
      LayerInfo.AddParameter "FileSpec", LayerName
      LayerInfo.AddParameter "NAME", LayerName
      LayerInfo.AddParameter "Features", lyr.AllFeatures '复制所有有效图元
      LayerInfo.AddParameter "Fields", Flds    '复制字段列表
      
      LayerInfo.AddParameter "AutoCreateDataset", 1
      LayerInfo.AddParameter "datasetname", LayerName
      Set LyrTemp = Map2.Layers.Add(LayerInfo, 1)    '复制到另外Map对象
      '''
      Map2.Refresh</P>
<P>msgbox lyrtemp.allfeatures.count '提示没物体</P>
<P>why？ 郁闷！帮帮俺！谢谢！</P>

你有邮箱没？我把我的紧缩表测试程序发给你！

<P>thanks a lot ! <a href="mailtyuancetyut@tom.com" target="_blank" >yuancetyut@tom.com</A></P><img src="images/post/smile/dvbbs/em04.gif" />