vb中在标准模块中定义的自定义类型,在窗体中调用时显示缺少标识符
在vb中我有三个窗体form1、form2、form3及一个标准模块,我用标准模块定义了两个自定义类型数组,cengshuju()、layerdata().并且layer...
在vb中我有三个窗体form1、form2、form3及一个标准模块,我用标准模块定义了两个自定义类型数组,cengshuju()、layerdata().并且layerdata()在form2中已经得到了赋值,它的某个值在form1中也能正确的显示出来,现在在form3中调用layerdata()的值,可是总是有错,出错在layerdata,并提示“错误的参数或无效的属性赋值”
以下代码是出错的部分:
Private Sub command1_Click()
For i = 1 To n1
For j = 1 To ii
If Abs(cengshuju(i).depshendu - layerdata(j).de) <= 0.5 Then
layerdata(j).de = 0
End If
Next j
Next i
End Sub
出错提示位于第四行的layerdata上面。可是我也在form1中调用过它,并且得到了正确的值,调用语句如下:
Private Sub Command3_Click()
Label1 = layerdata(200).de
End Sub
上面的调用形式差不多,为什么第一种调用会出错了,而且cengshuju()与layerdata()定义方式相同,都是Public定义的。
请各位高手看看问题出在哪里。
一楼的回答还是不行,J并没有超过范围 展开
以下代码是出错的部分:
Private Sub command1_Click()
For i = 1 To n1
For j = 1 To ii
If Abs(cengshuju(i).depshendu - layerdata(j).de) <= 0.5 Then
layerdata(j).de = 0
End If
Next j
Next i
End Sub
出错提示位于第四行的layerdata上面。可是我也在form1中调用过它,并且得到了正确的值,调用语句如下:
Private Sub Command3_Click()
Label1 = layerdata(200).de
End Sub
上面的调用形式差不多,为什么第一种调用会出错了,而且cengshuju()与layerdata()定义方式相同,都是Public定义的。
请各位高手看看问题出在哪里。
一楼的回答还是不行,J并没有超过范围 展开
3个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询