Private Students(100) As student
Private Sub Form_Load()
Dim st As New student
Call st.SetStudent(1, "Jackle", "3/2/1986", 2000)
Students(1) = st
textError.Caption = st.studentName
End Sub
error?Originally posted by Ito_^:anyone knows?code:
Private Students(100) As student
Private Sub Form_Load()
Dim st As New student
Call st.SetStudent(1, "Jackle", "3/2/1986", 2000)
Students(1) = st
textError.Caption = st.studentName
End Sub
it says Student(1)=st object vairable not set..?
Dim Students As New Collection
Private Sub Form_Load()
Dim st As New student
Call st.SetStudent(1, "Jackle", "3/2/1986", 2000)
Call Students.Add(st)
Dim st2 As New student
st2 = Students(1)
textError.Caption = st2.studentName
End Sub