UC知道vb高手们，拜托了！下标越界
来源：百度知道 编辑：UC知道 时间：2024/05/30 09:04:21
rivate Sub Command1_Click() '增添学生记录
n = n + 1
StatusBar1.Panels(2) = n '窗格中显示记录数
ReDim Preserve stud(n) '重定义动态数组stud为n个元素，并要求保留数据
With stud(n)
.Name = Text1
.Sex = Text2
.Age = Test3 'Text3中的内容转换成数值赋给Age变量
.Telephone = Text4
.School = Combol1.Text '下拉式列表框选中的内容赋值给Schoo变量
End With
Text1 = "": Text2 = "": Text3 = "": Text4 = ""
Command2_Click '调用Command2_Click显示所有记录
End Sub
n = n + 1
StatusBar1.Panels(2) = n '窗格中显示记录数
ReDim Preserve stud(n) '重定义动态数组stud为n个元素，并要求保留数据
With stud(n)
.Name = Text1
.Sex = Text2
.Age = Test3 'Text3中的内容转换成数值赋给Age变量
.Telephone = Text4
.School = Combol1.Text '下拉式列表框选中的内容赋值给Schoo变量
End With
Text1 = "": Text2 = "": Text3 = "": Text4 = ""
Command2_Click '调用Command2_Click显示所有记录
End Sub
若窗格中显示记录数为n=9,实际你的数组是stud(0 to 8),你在调用的Command2_Click中是不是用错为stud(1 to 9)了?
是在哪里越界呢,VB有提示的啊.说不定是调用Command2_Click时候越的界..
我觉得应该是这里有问题:
With stud(n)
应该改为With stud(n-1) 吧.