在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不允许晚期绑定”
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不允许晚期绑定”
...全文
相关推荐
Referrer-Policy : strict-origin-when-cross-origin解决方案
前后端联调跨域问题
(X)HTML Strict 下的嵌套规则
下面是一份在 HTML 4 Strict 和 XHTML 1.0 Strict 下必须遵守的标签嵌套规则,比如你不能在 <a> 里面再嵌入一个 <a> 这样的约定。
phpdocument Strict Standards 错误解决办法
phpdocument 错误: Strict Standards:Only variables should be passed by reference in D:\xampp\php\pear\PhpDocumentor\phpDocumentor\Smarty-2.6.0\libs\Smarty_Compiler.class.php on line 712
php 出现Strict Standards: Only variables should be passed by reference in的解决方法
个问题多半是因为引用传递参数引起的,解决办法一是修改代码不使用引用传递,需要的朋友可以参考下
JavaScript的strict模式与with关键字介绍
主要介绍了JavaScript的strict模式与with关键字,需要的朋友可以参考下


