GPS之家

access表-->MI表有两种途径：
1.bindlayerXY方式绑定。
指定bindlayer.filespec就可以创建永久表，不指定则为临时表。

Private Sub Command4_Click()
'只能创建一个字段，GeoName,来源于City字段。当City字段不能唯一是，state字段用于限定。
'不能创建索引
Dim BindlayerObject As New mapxlib.BindLayer
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim ds As mapxlib.Dataset

Set db = DBEngine.WorkSpaces(0).Opendatabase(C:Program FilesMapInfoMapX 4.0DataMapstats.mdb)
Set rs = db.OpenRecordset(US_Cust)

BindlayerObject.LayerName = 新图层名
BindlayerObject.Filespec = App.Path + mytab.tab '若不指定,则为临时表
BindlayerObject.RefColumn1 = X
BindlayerObject.RefColumn2 = Y
BindlayerObject.LayerType = miBindLayerTypeXY

Set ds = Map1.Datasets.Add(miDataSetDAO, rs, 数据集名, City, State, BindlayerObject)
End Sub


2.layerInfo新建表
layers.add lyrinfo创建好一个有完备字段的空表
ds.rowvalues,
lyr.addfeature ftr,rvs填入图元和属性

(责任编辑：admin)