I keep getting the error 'value cannot be null' vb.net code

Vote count:

0

Dim Filename As String = "SessionDetails.dat"
Public MyFormat As String = "{0, -13}{1, -23}"
Dim totalCals(100) As String
Private Sub sessionCompare_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim Index As Integer

    Dim oneSession As newSession        'one record
    lstCompare.Items.Clear()
    totalCalsFind()
    FileOpen(1, Filename, OpenMode.Random, , , Len(oneSession))

    NumberOfSessionRecords = LOF(1) / Len(oneSession)

    For Index = 1 To NumberOfSessionRecords 'loop through all records in file


        'read one record
        lstCompare.Items.Add(UserCalories(NumberOfSessionRecords))

    Next Index


    FileClose(1)
End Sub

Public Sub totalCalsFind()
    Dim oneSession As newSession
    Dim oneRunner As newRunner
    Dim sessionsCals(1000) As totalCals
    FileOpen(1, Filename, OpenMode.Random, , , Len(oneSession))
    FileOpen(2, CurDir() + "\RunnersDetails.dat", OpenMode.Random, , , Len(oneRunner))
    NumberOfSessionRecords = LOF(1) / Len(oneSession)
    Dim NumberOfRunnerRecords As Integer = LOF(2) / Len(oneRunner)

    For i = 1 To NumberOfRunnerRecords
        FileGet(2, oneRunner, i)
        For e = 1 To NumberOfSessionRecords
            FileGet(1, oneSession, e)
            If oneRunner.RunnerID = oneSession.RunnerID Then
                UserCalories(i) = oneSession.RunnerID + "       " + oneSession.TotalCals.ToString
            End If
        Next
    Next
    FileClose(1)
    FileClose(2)
End Sub

edited 1 min ago

Tim Schmelter

201k

asked 2 mins ago

Kamran Qayoom

1

I keep getting the error 'value cannot be null' vb.net code