复制表

百花草

复制表
'*******表复制********
   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 ObjLayerName, LayerName, FilePath As String
   
   ObjLayerName = "目标表"
   '复制源表数据到目标表
   Set Lyr = MainMap.Layers.Item(LayerName)
   Set Ds = Lyr.Datasets.Item(LayerName)
   Set Flds = Ds.Fields
      
   LayerInfo.Type = miLayerInfoTypeNewTable
   LayerInfo.AddParameter "FileSpec", FilePath + ObjLayerName + ".TAB"
   LayerInfo.AddParameter "NAME", ObjLayerName
   LayerInfo.AddParameter "Features", Lyr.AllFeatures
   LayerInfo.AddParameter "Fields", Flds
      
   LayerInfo.AddParameter "AutoCreateDataset", 1
   LayerInfo.AddParameter "datasetname", ObjLayerName
   Set LyrTemp = MapTemp.Layers.Add(LayerInfo, 1)
      
   '删除临时表
   MapTemp.Layers.Remove (MapTemp.Layers.Count)
   MapTemp.Refresh
      
   Set Lyr = Nothing
   Set Ds = Nothing
   Set Flds = Nothing
   Set LayerInfo = Nothing

jxqkd123

探矿者软件可以提高矿体的命中率，减少找矿的成本和难度，主要功能：数据管理、二维制图、三维建模、储量估算、三维立体预测等，有需要免费试用可以联系负责人邓帅15377311476（微信同号），软件针对单位或者企业试用，不面向个人试用