普查图制作常用语句

1.1 定义查询—只显示BUCP层以“XX人民政府”或者“XX街道办事处”命名的点
"NAME" LIKE '%人民政府' OR "NAME" LIKE '%街道办事处'

1.2 标注表达式—将“XX市人民政府”显示成“XX市”
Function FindLabel ( [NAME] )
If Right([NAME],4)="人民政府" Then
NewString= Replace( [NAME],"人民政府","")
else
NewString= Replace( [NAME],"街道办事处","")
end if
FindLabel = NewString
End Function

 

1.3标注显示后三位

Function FindLabel ( [CC] )
FindLabel = RIGHT([CC],3)
End Function

 

1.4道路等级汉字替换为数字

Function FindLabel ( [RTEG] )
If [RTEG] ="一级" Then
NewString= Replace([RTEG],"一级","1")
Elseif [RTEG] ="二级" Then
NewString= Replace([RTEG],"二级","2")
Elseif [RTEG] ="三级" Then
NewString= Replace([RTEG],"三级","3")
Elseif [RTEG] ="四级" Then
NewString= Replace([RTEG],"四级","4")
end if
FindLabel = NewString
End Function