天道酬勤

博观而约取,厚积而薄发!
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

开发的时候遇到的两个问题,好容易解决了,和大家分享一下:

一、使用CreateTable 创建出来的tab文件有三个 .ID .MAP .DAT,唯一缺少一个 .TAB文件,好奇怪,明明按照例子里写的代码。

经过仔细研究加到处寻找,终于找到了答案,少了一个函数 .WriteTabFile()

生成tab的文件代码如下:

       Dim tableInfoNative As MapInfo.Data.TableInfoNative = New MapInfo.Data.TableInfoNative(tableName)
        tableInfoNative.TablePath = "C:\\" + tableName + ".TAB"
        tableInfoNative.Columns.Add(MapInfo.Data.ColumnFactory.CreateIntColumn("ID"))
        tableInfoNative.Columns.Add(MapInfo.Data.ColumnFactory.CreateStyleColumn())
        Dim coordSys As MapInfo.Geometry.CoordSys = MapControl1.Map.GetDisplayCoordSys()


        tableInfoNative.Columns.Add(MapInfo.Data.ColumnFactory.CreateFeatureGeometryColumn(coordSys))

        tableInfoNative.WriteTabFile() '非常关键,否则无法生成tab文件
        Dim table As MapInfo.Data.Table = MapInfo.Engine.Session.Current.Catalog.CreateTable(tableInfoNative)

二、查询的时候只返回三个字段,进行search的时候,默认只返回三个默认字段(好象是: ID ,geometry 和MI_TYPE),需要返回全部字段怎么办呢?

使用 si.QueryDefinition.Columns = Nothing 返回全部字段。

例子代码:

                Dim layer As MapInfo.Mapping.FeatureLayer = MapControl1.Map.Layers(sLayerName)
                Dim si As SearchInfo =MapInfo.Data.SearchInfoFactory.SearchWithinRect(searchRect,layer.CoordSys, ContainsType.Centroid)
                si.QueryDefinition.Columns = Nothing   '非常关键!否则只返回默认的三个字段:Geometry,type,key
                Dim rsfc As IResultSetFeatureCollection = _catalog.Search(layer.Table, si)

希望能对大家有帮助!