Sub readrecord() 'Declare Variables Dim intcounter As Integer 'Reads how many Records are in file intNumberofRecords = filereader.ReadLine ReDim QuestionArray(intNumberofRecords) intcounter = 0 Do Until filereader.EndOfStream = True intcounter = intcounter + 1 'reads each line for each variable QuestionArray(intcounter).strQuestionID = filereader.ReadLine QuestionArray(intcounter).strQuestion = filereader.ReadLine QuestionArray(intcounter).strAnswer1 = filereader.ReadLine QuestionArray(intcounter).strAnswer2 = filereader.ReadLine QuestionArray(intcounter).strAnswer3 = filereader.ReadLine QuestionArray(intcounter).strAnswer4 = filereader.ReadLine Loop End Sub
QuestionArray(intcounter).strAnswer4 = filereader.ReadLine myDataGridView.Rows.Add(QuestionArray(intcounter)) Loop
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)