对象变量或with块变量未设置
在开发GIS系统时遇到的小问题,向大家请教,代码如下:Private Sub Command1_Click()
Dim MyData(5 To 10, 2 To 4) As Variable
'填充数据
MyData(5, 2) = "ny" (运行直此黄色高亮显示)
MyData(6, 2) = "ny"
MyData(7, 2) = "ca"
MyData(8, 2) = "tx"
MyData(9, 2) = "nc"
MyData(10, 2) = "sc"
MyData(5, 3) = "100"
MyData(6, 3) = "300"
MyData(7, 3) = "123"
MyData(8, 3) = "345"
MyData(9, 3) = "455"
MyData(10, 3) = "1231"
MyData(5, 4) = "10000"
MyData(6, 4) = "2000000"
MyData(7, 4) = "30000"
MyData(8, 4) = "12300"
MyData(9, 4) = "34500"
MyData(10, 4) = "45500"
'加入一数据集
Map1.Datasets.Add miDataSetSafeArray, MyData
'创建默认的专题地图
Map1.Datasets(1).Themes.Add
End Sub
Private Sub Form_Resize()
Map1.Move Map1.Left, Map1.Top, ScaleWidth - Map1.Left, ScaleHeight - Map1.Top
End Sub
运行时总提示“对象变量或with块变量未设置”,不知道是什么问题,请各位大虾指点下~
--------------------编程问答-------------------- 如果Variable是个对象的话,Dim MyData(5 To 10, 2 To 4) As Variable
改成Dim MyData(5 To 10, 2 To 4) As new Variable
--------------------编程问答-------------------- 对象末定义或者末引用. --------------------编程问答-------------------- 误写? Variable→Variant??? --------------------编程问答-------------------- Dim MyData(5 To 10, 2 To 4) As Variant
试试看 --------------------编程问答-------------------- 不如这样:
Dim MyData(5 To 10, 2 To 4) As String --------------------编程问答-------------------- Map1.Datasets.Add miDataSetSafeArray, MyData
如果这里可以用string类型,建议采用of123的方法 --------------------编程问答-------------------- VB有variable类型吗?应该是variant吧
补充:VB , 控件