Thursday, 12 September 2013

Label not defined Error

Label not defined Error

i have this code i'm using a goto option i'm always getting that the label
nextrecord is not defined .. what shall i do ? am i missing something? can
you please tell me when shall i do :) thank you in advance ! that's the
code i'm writing ..
Private Sub Timer_Tick(sender As System.Object, e As System.EventArgs)
Handles Timer.Tick
Try
Timer.Interval = 5000
sendSched()
If send = True Then
GoTo NEXTRECORD
End If
Catch
End Try
End Sub
Private Sub sendSched()
subTable.Rows.Clear()
subTable = selectSubscriber(content.mt, content.clID)
subCount = subTable.Rows.Count()
If content.timeSend = DateTime.Now.ToString("hh:mm") Then
Timer.Enabled = False
UpdateListBoxRec2("Sending content: " & content.contentSend & " to
:")
For Each subRow As DataRow In subTable.Rows
content.moSend = subRow("sim_mo")
UpdateListBoxRec2(content.moSend)
MsgBox(content.contentSend)
Next
send = True
Else
Timer.Enabled = True
Timer.Interval = 5000
End If
End Sub
Private Sub start_check_CheckedChanged(sender As System.Object, e As
System.EventArgs) Handles start_check.CheckedChanged
For Each contentRow As DataRow In contentTable.Rows
content.mt = contentRow("cnt_mt")
content.clID = contentRow("cnt_cl_id")
content.contentSend = contentRow("cnt_content")
content.id = contentRow("cnt_id")
content.timeSend = contentRow("cnt_time_to_send")
UpdateListBoxRec("Content to send at: " & content.timeSend)
Timer.Enabled = True
Timer.Interval = 0
NEXTRECORD:
Next
End Sub

No comments:

Post a Comment