Question

VB运行的时候出现实时错误424要求对象

代码是：
Dim Record_No As Integer
Dim stu As StudType

Private Sub Command1_Click()
With student
.iNo = Val(Text1.Text)
.strName = Text2.Text
.strSex = IIf(Option1.Value, "1", "0")
.sMark1 = Val(Text3.Text)
.sMark2 = Val(Text4.Text)
.sTotalMark = Val(Text5.Text)
End With
Open "student.dat" For Random As #1 Len = Len(stu)
Record_No = LOF(1) / Len(stu) + 1
Label8.Caption = Record_No
Put #1, Record_No, student
Close #1
End Sub

Private Sub Command2_Click()
ok = False
Me.Hide
主窗口.Show
End Sub

Private Sub Form_Load()
Open "student.dat" For Random As #1 Len = Len(stu)
Label7.Caption = LOF(1) / Len(stu)
Close #1
End Sub

Answer 1

这种错误产生的原因就是窗体上缺少控件或者控件名称不对
弹出错误警告时，看看代码窗口停在了哪行（黄色覆盖），检查该行涉及的控件是不是有问题。。。。

追问

控件名没错

追答

错误时，哪行代码被黄色覆盖？

追问

.iNo = Val(Text1.Text)
这行

追答

student自定义类型定义了吗？包括 iNO这个元素吗？

追问

我发现那里错了
谢谢~~