3S基础知识:MapInfo使用MapX开发实现若干小功能

　　一、 前言

　　我用MapInfo公司的MapX开发过几个项目。在项目的开发过程中，也接触了一些使用相同技术的公司和开发人员，感觉到他们的开发过程常常被一些问题所困扰，却得不到很好的解决。在这里，我把我在开发过程中积累的一些经验写出来，希望能起到抛砖引玉的作用。

　　二、开发经验

　　1、如何在MapX下读取属性值，这里介绍三种方法：

　　1)由Layer对象的KeyField属性来设立要读取属性值的字段名。接着，由Feature对象的keyValue读取此行的属性值。

　　2)将图层加入到Datasets，由Dataset对象的Value(x,y)属性，通过设置行号，列号来获得属性值。

　　3)将图层加入到Datasets之后由RowValues(ftr)获取整行的值。

　　Dim ds As MapXLib.Dataset, lyr As MapXLib.layer

　　Dim ftrs As Features

　　Dim ftr As Feature

　　Dim rv As RowValue

　　Dim rvs As RowValues

　　Dim DsName As String '数据集名

　　Dim DsRows As Long, DsCols As Long

　　Dim i As Long, j As Long

　　Set ds = Formmain.Map1.Datasets.Item(DsName)

　　Set lyr = ds.layer

　　Set ftrs = lyr.AllFeatures

　　DsCols = ds.Fields.Count

　　DsCols = DsCols + 1

　　DsRows = ftrs.Count

　　Grid1.Rows = DsRows + 1

　　Grid1.Cols = DsCols

　　Grid1.Row = 0

　　For i = 0 To DsCols - 1

　　Grid1.Col = i

　　Grid1.Text = ds.Fields.Item(i + 1).Name

　　Next i

　　Grid1.Col = DsCols - 1

　　Grid1.Text = "Fkey"

　　lyr.BeginAccess miAccessRead

　　i = 1