Next not being executed in a For Each statment

[Belee]

I have the following code and it is not passing through the Next statement:

Private Function IsItemAlreadyAd ded() As Boolean
Dim drMyRow As DataRow

With Me
For Each drMyRow In .dsTOB.Tables(" TempOB").Rows
If .acctNumber = drMyRow("Accoun tNo") Then
Return True
Else
Return False
End If
Next
End With

End Function

I call the function in the following code to make sure that an item added
already in the temporary table is not added again:

Private Sub AddToTempOpenBa lance()
With Me
Try

If .IsItemAlreadyA dded = True Then
Dim msg1 As New MessageDialogFo rm
msg1.DialogCapt ion = "Data Entry"
msg1.DialogMess age = "Please the account is already added"
msg1.ShowDialog ()
.txtOpenBalance .Focus()

Else

If .IsAllFieldsNot Complete = True Then
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Data Entry"
msg.DialogMessa ge = "Please complete all fields and
continue"
msg.ShowDialog( )
.txtOpenBalance .Focus()

Else
Dim pcRow As DataRow = .dtTempOB.NewRo w()
pcRow("Date") = .dtpDate.Value

If .rbOtherAccount s.Checked = True Then
pcRow("AccountN o") = .otherAcctNo
End If

If .rbBankAccounts .Checked = True Then
pcRow("AccountN o") = .bankAcctNo
End If

If .chkCredit.Chec kState = CheckState.Chec ked Then
pcRow("CreditBa lanceBF") = .txtOpenBalance .Text
End If

If .chkDebit.Check State = CheckState.Chec ked Then
pcRow("DebitBal anceBF") = .txtOpenBalance .Text
End If

Me.dtTempOB.Row s.Add(pcRow)

End If
End If

Catch ex As Exception
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Add Record"
msg.DialogMessa ge = "An error of type " &
ex.GetType().To String() & _
" occured while adding record to temporary table."
msg.ShowDialog( )
End Try
End With
End Sub

The "For Each Next" code is not able to loop through the temporary table to
compare the acctNumber with account numbers whether it is already in the
temporary table.

The acctNumber variable is the current account number selected by the user
which is being compared with the various account numbers in the temporary
table.

[Abubakar]

when you write:
Return True
it is equal to saying "stop here, get out of the function, and who ever
called me handover the value True to it."
When you write:
Return False
it means same as above but with value False.
So ofcourse when you do a return in the If and the Else statement, your
function will never reach the Next.

Hope that helps :-)
Abubakar.
http://joehacker.blogspot.com

"Belee" wrote:

I have the following code and it is not passing through the Next statement:

Private Function IsItemAlreadyAd ded() As Boolean
Dim drMyRow As DataRow

With Me
For Each drMyRow In .dsTOB.Tables(" TempOB").Rows
If .acctNumber = drMyRow("Accoun tNo") Then
Return True
Else
Return False
End If
Next
End With

End Function

I call the function in the following code to make sure that an item added
already in the temporary table is not added again:

Private Sub AddToTempOpenBa lance()
With Me
Try

If .IsItemAlreadyA dded = True Then
Dim msg1 As New MessageDialogFo rm
msg1.DialogCapt ion = "Data Entry"
msg1.DialogMess age = "Please the account is already added"
msg1.ShowDialog ()
.txtOpenBalance .Focus()

Else

If .IsAllFieldsNot Complete = True Then
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Data Entry"
msg.DialogMessa ge = "Please complete all fields and
continue"
msg.ShowDialog( )
.txtOpenBalance .Focus()

Else
Dim pcRow As DataRow = .dtTempOB.NewRo w()
pcRow("Date") = .dtpDate.Value

If .rbOtherAccount s.Checked = True Then
pcRow("AccountN o") = .otherAcctNo
End If

If .rbBankAccounts .Checked = True Then
pcRow("AccountN o") = .bankAcctNo
End If

If .chkCredit.Chec kState = CheckState.Chec ked Then
pcRow("CreditBa lanceBF") = .txtOpenBalance .Text
End If

If .chkDebit.Check State = CheckState.Chec ked Then
pcRow("DebitBal anceBF") = .txtOpenBalance .Text
End If

Me.dtTempOB.Row s.Add(pcRow)

End If
End If

Catch ex As Exception
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Add Record"
msg.DialogMessa ge = "An error of type " &
ex.GetType().To String() & _
" occured while adding record to temporary table."
msg.ShowDialog( )
End Try
End With
End Sub

The "For Each Next" code is not able to loop through the temporary table to
compare the acctNumber with account numbers whether it is already in the
temporary table.

The acctNumber variable is the current account number selected by the user
which is being compared with the various account numbers in the temporary
table.

[Cor Ligthert]

Belee,

About your question I have nothing to add to the answer from Abubakar,
however you use consequently "With Me."

This is an only confusing statement, because this is standard so never
needed.

And now I am typing: about your procedure I assume that what you want is
something as (check yourself the condition):

Private Function IsItemAlreadyAd ded() As Boolean
Dim drMyRow As DataRow
For Each drMyRow In dsTOB.Tables("T empOB").Rows
If .acctNumber <> drMyRow("Accoun tNo") Then
Return True
Next
Return False
End Function

I hope this helps?

Cor

[Belee]

Can you please show me how I can let the function return true if the account
is already there?

"Abubakar" wrote:

when you write:
Return True
it is equal to saying "stop here, get out of the function, and who ever
called me handover the value True to it."
When you write:
Return False
it means same as above but with value False.
So ofcourse when you do a return in the If and the Else statement, your
function will never reach the Next.

Hope that helps :-)
Abubakar.
http://joehacker.blogspot.com

"Belee" wrote:

I have the following code and it is not passing through the Next statement:

Private Function IsItemAlreadyAd ded() As Boolean
Dim drMyRow As DataRow

With Me
For Each drMyRow In .dsTOB.Tables(" TempOB").Rows
If .acctNumber = drMyRow("Accoun tNo") Then
Return True
Else
Return False
End If
Next
End With

End Function

I call the function in the following code to make sure that an item added
already in the temporary table is not added again:

Private Sub AddToTempOpenBa lance()
With Me
Try

If .IsItemAlreadyA dded = True Then
Dim msg1 As New MessageDialogFo rm
msg1.DialogCapt ion = "Data Entry"
msg1.DialogMess age = "Please the account is already added"
msg1.ShowDialog ()
.txtOpenBalance .Focus()

Else

If .IsAllFieldsNot Complete = True Then
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Data Entry"
msg.DialogMessa ge = "Please complete all fields and
continue"
msg.ShowDialog( )
.txtOpenBalance .Focus()

Else
Dim pcRow As DataRow = .dtTempOB.NewRo w()
pcRow("Date") = .dtpDate.Value

If .rbOtherAccount s.Checked = True Then
pcRow("AccountN o") = .otherAcctNo
End If

If .rbBankAccounts .Checked = True Then
pcRow("AccountN o") = .bankAcctNo
End If

If .chkCredit.Chec kState = CheckState.Chec ked Then
pcRow("CreditBa lanceBF") = .txtOpenBalance .Text
End If

If .chkDebit.Check State = CheckState.Chec ked Then
pcRow("DebitBal anceBF") = .txtOpenBalance .Text
End If

Me.dtTempOB.Row s.Add(pcRow)

End If
End If

Catch ex As Exception
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Add Record"
msg.DialogMessa ge = "An error of type " &
ex.GetType().To String() & _
" occured while adding record to temporary table."
msg.ShowDialog( )
End Try
End With
End Sub

The "For Each Next" code is not able to loop through the temporary table to
compare the acctNumber with account numbers whether it is already in the
temporary table.

The acctNumber variable is the current account number selected by the user
which is being compared with the various account numbers in the temporary
table.

[Belee]

Thank you so much for the idea. I moved the if statment out of the for each
next loop and it works now.

Thank you again

"Abubakar" wrote:

when you write:
Return True
it is equal to saying "stop here, get out of the function, and who ever
called me handover the value True to it."
When you write:
Return False
it means same as above but with value False.
So ofcourse when you do a return in the If and the Else statement, your
function will never reach the Next.

Hope that helps :-)
Abubakar.
http://joehacker.blogspot.com

"Belee" wrote:

I have the following code and it is not passing through the Next statement:

Private Function IsItemAlreadyAd ded() As Boolean
Dim drMyRow As DataRow

With Me
For Each drMyRow In .dsTOB.Tables(" TempOB").Rows
If .acctNumber = drMyRow("Accoun tNo") Then
Return True
Else
Return False
End If
Next
End With

End Function

I call the function in the following code to make sure that an item added
already in the temporary table is not added again:

Private Sub AddToTempOpenBa lance()
With Me
Try

If .IsItemAlreadyA dded = True Then
Dim msg1 As New MessageDialogFo rm
msg1.DialogCapt ion = "Data Entry"
msg1.DialogMess age = "Please the account is already added"
msg1.ShowDialog ()
.txtOpenBalance .Focus()

Else

If .IsAllFieldsNot Complete = True Then
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Data Entry"
msg.DialogMessa ge = "Please complete all fields and
continue"
msg.ShowDialog( )
.txtOpenBalance .Focus()

Else
Dim pcRow As DataRow = .dtTempOB.NewRo w()
pcRow("Date") = .dtpDate.Value

If .rbOtherAccount s.Checked = True Then
pcRow("AccountN o") = .otherAcctNo
End If

If .rbBankAccounts .Checked = True Then
pcRow("AccountN o") = .bankAcctNo
End If

If .chkCredit.Chec kState = CheckState.Chec ked Then
pcRow("CreditBa lanceBF") = .txtOpenBalance .Text
End If

If .chkDebit.Check State = CheckState.Chec ked Then
pcRow("DebitBal anceBF") = .txtOpenBalance .Text
End If

Me.dtTempOB.Row s.Add(pcRow)

End If
End If

Catch ex As Exception
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Add Record"
msg.DialogMessa ge = "An error of type " &
ex.GetType().To String() & _
" occured while adding record to temporary table."
msg.ShowDialog( )
End Try
End With
End Sub

The "For Each Next" code is not able to loop through the temporary table to
compare the acctNumber with account numbers whether it is already in the
temporary table.

The acctNumber variable is the current account number selected by the user
which is being compared with the various account numbers in the temporary
table.

[Abubakar]

your code should be something like:
Private Function IsItemAlreadyAd ded() As Boolean
Dim drMyRow As DataRow

With Me
For Each drMyRow In .dsTOB.Tables(" TempOB").Rows
If .acctNumber = drMyRow("Accoun tNo") Then
Return True
''''''else => let the loop continue
End If
Next
''''if we have reached after next this mean accountNo was
''''not found so return false
Return False
End With

End Function

Hope the helps.
Abubakar.
http://joehacker.blogspot.com

"Belee" wrote:

Can you please show me how I can let the function return true if the account
is already there?

"Abubakar" wrote:

when you write:
Return True
it is equal to saying "stop here, get out of the function, and who ever
called me handover the value True to it."
When you write:
Return False
it means same as above but with value False.
So ofcourse when you do a return in the If and the Else statement, your
function will never reach the Next.

Hope that helps :-)
Abubakar.
http://joehacker.blogspot.com

"Belee" wrote:

I have the following code and it is not passing through the Next statement:

Private Function IsItemAlreadyAd ded() As Boolean
Dim drMyRow As DataRow

With Me
For Each drMyRow In .dsTOB.Tables(" TempOB").Rows
If .acctNumber = drMyRow("Accoun tNo") Then
Return True
Else
Return False
End If
Next
End With

End Function

I call the function in the following code to make sure that an item added
already in the temporary table is not added again:

Private Sub AddToTempOpenBa lance()
With Me
Try

If .IsItemAlreadyA dded = True Then
Dim msg1 As New MessageDialogFo rm
msg1.DialogCapt ion = "Data Entry"
msg1.DialogMess age = "Please the account is already added"
msg1.ShowDialog ()
.txtOpenBalance .Focus()

Else

If .IsAllFieldsNot Complete = True Then
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Data Entry"
msg.DialogMessa ge = "Please complete all fields and
continue"
msg.ShowDialog( )
.txtOpenBalance .Focus()

Else
Dim pcRow As DataRow = .dtTempOB.NewRo w()
pcRow("Date") = .dtpDate.Value

If .rbOtherAccount s.Checked = True Then
pcRow("AccountN o") = .otherAcctNo
End If

If .rbBankAccounts .Checked = True Then
pcRow("AccountN o") = .bankAcctNo
End If

If .chkCredit.Chec kState = CheckState.Chec ked Then
pcRow("CreditBa lanceBF") = .txtOpenBalance .Text
End If

If .chkDebit.Check State = CheckState.Chec ked Then
pcRow("DebitBal anceBF") = .txtOpenBalance .Text
End If

Me.dtTempOB.Row s.Add(pcRow)

End If
End If

Catch ex As Exception
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Add Record"
msg.DialogMessa ge = "An error of type " &
ex.GetType().To String() & _
" occured while adding record to temporary table."
msg.ShowDialog( )
End Try
End With
End Sub

The "For Each Next" code is not able to loop through the temporary table to
compare the acctNumber with account numbers whether it is already in the
temporary table.

The acctNumber variable is the current account number selected by the user
which is being compared with the various account numbers in the temporary
table.

[Andy Becker]

"Belee" <Be***@discussi ons.microsoft.c om> wrote in message
news:8C******** *************** ***********@mic rosoft.com...

I have the following code and it is not passing through the Next statement:

Try this out:

Private Function IsItemAlreadyAd ded() As Boolean
Dim drMyRow As DataRow
Dim returnValue as Boolean = False ' not needed, but clear

With Me
For Each drMyRow In .dsTOB.Tables(" TempOB").Rows
If .acctNumber = drMyRow("Accoun tNo") Then
returnValue = True
Exit For
End If
Next
End With

Return returnValue
End Function

The single exit point for the function adds clarity, and can help you avoid
this pitfall in the future...

Best Regards,

Andy

[Jay B. Harlow [MVP - Outlook]]

Belee,
In addition to the other comments:

Is AccountNo the primary key of the DataTable?

I would make AccountNo the primary key of the DataTable then its simply a
matter of using the Contains function.

Something like:

Private Function IsItemAlreadyAd ded() As Boolean Return Me.dsTOB.Tables ("TempOB").Rows .Contains(me.ac ctNumber) End Function
To make AccountNo the primary key of the DataTable you can use:

Me.dsTOB.Tables ("TempOB").Prim aryKey = New DataColumn()
{Me.dsTOB.Table s("TempOB").Col umns("AccountNo ")}

Which is short hand for:
Dim keys(0) As DataColumn
keys(0) = Me.dsTOB.Tables ("TempOB").Colu mns("AccountNo" )
Me.dsTOB.Tables ("TempOB").Prim aryKey = keys

I would set the primary key once when I created the DataTable.

Note keys(0) says an array of 1 element, the 0 is upper bound not number of
elements.

Hope this helps
Jay

"Belee" <Be***@discussi ons.microsoft.c om> wrote in message
news:8C******** *************** ***********@mic rosoft.com... I have the following code and it is not passing through the Next statement:
Private Function IsItemAlreadyAd ded() As Boolean
Dim drMyRow As DataRow

With Me
For Each drMyRow In .dsTOB.Tables(" TempOB").Rows
If .acctNumber = drMyRow("Accoun tNo") Then
Return True
Else
Return False
End If
Next
End With

End Function

I call the function in the following code to make sure that an item added
already in the temporary table is not added again:

Private Sub AddToTempOpenBa lance()
With Me
Try

If .IsItemAlreadyA dded = True Then
Dim msg1 As New MessageDialogFo rm
msg1.DialogCapt ion = "Data Entry"
msg1.DialogMess age = "Please the account is already added" msg1.ShowDialog ()
.txtOpenBalance .Focus()

Else

If .IsAllFieldsNot Complete = True Then
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Data Entry"
msg.DialogMessa ge = "Please complete all fields and continue"
msg.ShowDialog( )
.txtOpenBalance .Focus()

Else
Dim pcRow As DataRow = .dtTempOB.NewRo w()
pcRow("Date") = .dtpDate.Value

If .rbOtherAccount s.Checked = True Then
pcRow("AccountN o") = .otherAcctNo
End If

If .rbBankAccounts .Checked = True Then
pcRow("AccountN o") = .bankAcctNo
End If

If .chkCredit.Chec kState = CheckState.Chec ked Then
pcRow("CreditBa lanceBF") = ..txtOpenBalanc e.Text End If

If .chkDebit.Check State = CheckState.Chec ked Then
pcRow("DebitBal anceBF") = .txtOpenBalance .Text
End If

Me.dtTempOB.Row s.Add(pcRow)

End If
End If

Catch ex As Exception
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Add Record"
msg.DialogMessa ge = "An error of type " &
ex.GetType().To String() & _
" occured while adding record to temporary table."
msg.ShowDialog( )
End Try
End With
End Sub

The "For Each Next" code is not able to loop through the temporary table to compare the acctNumber with account numbers whether it is already in the
temporary table.

The acctNumber variable is the current account number selected by the user
which is being compared with the various account numbers in the temporary
table.

[Jay B. Harlow [MVP - Outlook]]

Belee,
I should add that you can use a DataView & DataView.Find if AccountNo is not
the primary key.

Something like:

Private viewTempOB As DataView

Public Sub New()
' create dsTOB
viewTempOB = New DataView(dsTOB. Tables(""))
viewTempOB.Sort = "AccountNo"
End Sub

Private Function IsItemAlreadyAd ded() As Boolean Return Me.viewTempOB.F ind(Me.acctNumb er) <> -1 End Function
The Find method returns -1 if the row is not found, otherwise it returns the
index of the row found.

Hope this helps
Jay

"Belee" <Be***@discussi ons.microsoft.c om> wrote in message
news:8C******** *************** ***********@mic rosoft.com... I have the following code and it is not passing through the Next statement:
Private Function IsItemAlreadyAd ded() As Boolean
Dim drMyRow As DataRow

With Me
For Each drMyRow In .dsTOB.Tables(" TempOB").Rows
If .acctNumber = drMyRow("Accoun tNo") Then
Return True
Else
Return False
End If
Next
End With

End Function

I call the function in the following code to make sure that an item added
already in the temporary table is not added again:

Private Sub AddToTempOpenBa lance()
With Me
Try

If .IsItemAlreadyA dded = True Then
Dim msg1 As New MessageDialogFo rm
msg1.DialogCapt ion = "Data Entry"
msg1.DialogMess age = "Please the account is already added" msg1.ShowDialog ()
.txtOpenBalance .Focus()

Else

If .IsAllFieldsNot Complete = True Then
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Data Entry"
msg.DialogMessa ge = "Please complete all fields and continue"
msg.ShowDialog( )
.txtOpenBalance .Focus()

Else
Dim pcRow As DataRow = .dtTempOB.NewRo w()
pcRow("Date") = .dtpDate.Value

If .rbOtherAccount s.Checked = True Then
pcRow("AccountN o") = .otherAcctNo
End If

If .rbBankAccounts .Checked = True Then
pcRow("AccountN o") = .bankAcctNo
End If

If .chkCredit.Chec kState = CheckState.Chec ked Then
pcRow("CreditBa lanceBF") = ..txtOpenBalanc e.Text End If

If .chkDebit.Check State = CheckState.Chec ked Then
pcRow("DebitBal anceBF") = .txtOpenBalance .Text
End If

Me.dtTempOB.Row s.Add(pcRow)

End If
End If

Catch ex As Exception
Dim msg As New MessageDialogFo rm
msg.DialogCapti on = "Add Record"
msg.DialogMessa ge = "An error of type " &
ex.GetType().To String() & _
" occured while adding record to temporary table."
msg.ShowDialog( )
End Try
End With
End Sub

The "For Each Next" code is not able to loop through the temporary table to compare the acctNumber with account numbers whether it is already in the
temporary table.

The acctNumber variable is the current account number selected by the user
which is being compared with the various account numbers in the temporary
table.