如何在MapX下读取属性值

banner90 2003-09-15 11:46:22
有三种方法:
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
For Each ftr In ftrs
Set rvs = ds.RowValues(ftr)
j = 0
For Each rv In rvs
If Not IsNull(rv.Value) Then Grid1.TextArray(i * DsCols + j) = Trim(rv.Value)
j = j + 1
Next
Grid1.TextArray(i * DsCols + j) = ftr.FeatureKey
i = i + 1
Next

lyr.EndAccess miAccessEnd

Set ftr = Nothing
Set ftrs = Nothing
Set ds = Nothing
Set rv = Nothing
Set rvs = Nothing
Set lyr = Nothing

注意:BeginAccess,以及EndAccess可以明显的提高属性读取的速度。
...全文
88 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
yufei_yf 2003-12-30
  • 打赏
  • 举报
回复
可以。
ftr.update(True, EmptyParam); (Delphi)
melon611 2003-12-23
  • 打赏
  • 举报
回复
很好,不过如果我读出数据来,再将数据更改,还能将数据放进去不
itcoco 2003-11-05
  • 打赏
  • 举报
回复
study
yufei_yf 2003-10-30
  • 打赏
  • 举报
回复
flysharker 2003-09-28
  • 打赏
  • 举报
回复
关注
klbt 2003-09-26
  • 打赏
  • 举报
回复
关注,帮你顶。

2,141

社区成员

发帖
与我相关
我的任务
社区描述
它是一种特定的十分重要的空间信息系统。它是在计算机硬、软件系统支持下,对整个或部分地球表层(包括大气层)空间中的有关地理分布数据进行采集、储存、管理、运算、分析、显示和描述的技术系统。
社区管理员
  • 地理信息系统
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧