Private Sub UIButtonControl1_Click()
UIComboBoxControl1.RemoveAll
UIComboBoxControl1.AddItem ("道路扭曲")
UIComboBoxControl1.AddItem ("颜色异常")
UIComboBoxControl1.AddItem ("道路断裂")
UIComboBoxControl1.AddItem ("房屋倒塌")
End Sub
Private Sub UIComboBoxControl1_SelectionChange(ByVal newIndex As Long)
Dim pMxDoc As IMxDocument
Set pMxDoc = Application.Document
Dim pMap As IMap
Set pMap = pMxDoc.FocusMap
Dim pActiveView As IActiveView
Set pActiveView = pMxDoc.FocusMap
Dim pFeatureClass As IFeatureClass
Dim pFLayer As IFeatureLayer
Set pFLayer = pMap.Layer(0)
Set pFeatureClass = pFLayer.FeatureClass
Dim pBasicMap As IBasicMap
Set pBasicMap = pMap
Dim pSelection As ISelection
Set pSelection = pBasicMap.FeatureSelection
Dim pEnumFeature As IEnumFeature
Set pEnumFeature = pSelection
pEnumFeature.Reset
Dim pFeature As IFeature
Set pFeature = pEnumFeature.Next
Dim pFields As IFields
Set pFields = pFeature.Fields
Dim i As Long
i = pFields.FindField("ErrorInfo")
pFeature.Value(i) = UIComboBoxControl1.EditText
pFeature.Store
pActiveView.Refresh
End Sub