GPS课程设计报告代码.docVIP

Private sub toolbar2_buttonclick(byval button as mscomctllib.button) Select case button Case”属性查询” Supermap1.action=scaselect Case”条件查询” Dim objds as sodatasource; Dim obdtvector as sodataset vector; Dim objrecordset as sorecordset; Dim objselection as soselection; Set objds=superworkspace1.datasources.item(“mydatasource”) If objds is nothing then exit sub Set objdtvector=objds.datasets(“world”); If objdtvector is nothing then Msgbox”打开数据集错误”，vbinformation Exit sub End if Set objrecordset=objdtvector.query(txtexpression.text,true) If objrecordset is nothing then