Need help with my code!

Sonny Thai

I can't figure out how to make this work:

If CInt(txtLengthStay.Text) Or CInt(txtMedication.Text) Or CInt(txtSurgical.Text) Or CInt(txtLabFees.Text) Or CInt(txtPhysical.Text) <= "-1" Then

MessageBox.Show("Please do not enter numbers less than 0", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)

The point is if the user enters a number less than 0, a message box will pop up to let them know that only numbers 0 and up are allowed. However, everytime I run the program any number above 30, the messagebox pops up. What am I doing wrong? Thanks for the help guys!

4 Replies

Know the answer? Post it — somebody with the same question will find it here.

Sonny Thai19y ago
I see what you're saying. Sorry I misread. That code works though, I should have known how to do that. Thanks Alan.
Alan19y ago
The point is that if you add any arbitary set of integers together, the total can only be less than zero if at least one of those numbers is itself less than zero.

However, you can do it more explicitly with:

If CInt(txtLengthStay.Text) < 0 Or CInt(txtMedication.Text) < 0 Or CInt(txtSurgical.Text) < 0 Or CInt(txtLabFees.Text) < 0 Or CInt(txtPhysical.Text) < 0 Then
Sonny Thai19y ago
Wouldnt that add up each text box and if the total of all the text box is less than 0 the messagebox will pop up? If so, I should have clarified, that I am trying to write the code so that if the user inputs anything less than zero in any of the text boxes than the messagebox pop up warning them to in put a number < 0. Thanks for the help guys.
Alan19y ago
Try it this way (I've changed the ORs to +'s and "-1" to -1):

If CInt(txtLengthStay.Text) + CInt(txtMedication.Text) + CInt(txtSurgical.Text) + CInt(txtLabFees.Text) + CInt(txtPhysical.Text) <= -1 Then