在option strict on 的状态下,如何解决不允许晚期绑定
有哪位大侠用VB.NET做开发,请教一个问题,在option strict on 的情况下,怎么样解决“不允许晚期绑定”
Dim Loc As New MapObjects2.Point
Dim Recs2() As MapObjects2.Recordset
Dim layerName() As String
Dim layerNum(,) As Long
Dim ThisForm As Form6
'点击后显示属性;
Sub Identify_list()
Dim curRec As MapObjects2.Recordset
Dim curIndex As Long
Dim aIndex As Long
Dim aRec As Long
Dim i As Long
Dim aField As Object
Dim aName, S1 As String
'设置
curIndex = cboIDList.SelectedIndex
If cboIDList.SelectedItem Is Nothing Then
Exit Sub
End If
aIndex = layerNum(1, CType(curIndex, Integer))
aRec = layerNum(2, CType(curIndex, Integer))
aName = layerName(CType(aIndex, Integer))
curRec = Recs2(CType(aIndex, Integer))
curRec.MoveFirst()
If aRec > 0 Then
For i = 1 To aRec
curRec.MoveNext()
Next i
End If
'闪烁
ThisForm.AxMap1.FlashShape(curRec.Fields.Item("shape").Value, 2)
'写属性;
lblTheme.Text = "图层名: " + aName
lstFeatList.Items.Clear()
For i = 0 To curRec.TableDesc.FieldCount
If i = curRec.TableDesc.FieldCount Then
S1 = "Shape"
Else
S1 = curRec.TableDesc.FieldName(i)
End If
aField = curRec.Fields.Item(S1)
Select Case aField.Type
Case ESRI.MapObjects2.Core.FieldTypeConstants.moString
lstFeatList.Items.Add(aField.Name + " = " + aField.Value)
Case ESRI.MapObjects2.Core.FieldTypeConstants.moPoint
lblShapeType.Text = "对象形状: 点"
Case ESRI.MapObjects2.Core.FieldTypeConstants.moLine
lblShapeType.Text = "对象形状: 线"
Case ESRI.MapObjects2.Core.FieldTypeConstants.moPolygon
lblShapeType.Text = "对象形状: 多边形"
Case Else
lstFeatList.Items.Add(aField.Name + " = " + CStr(aField.Value))
End Select
Next
End Sub
aLayer.Visible,aLayer.LayerType,aLayer.SearchByDistance,aLayer.Name,recs.Fields.Item(S1),aField.Type,aField.Name均提示为:“option strict on不允许晚期绑定”