SunQuest
 
           Visual Basic Programming
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
 
User Name:
Password:
Remember me
Go Back   ASP Free ForumsProgrammingVisual Basic Programming

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rate Thread Display Modes
 
Unread ASP Free Forums Sponsor:
SlickEdit: Code in over 40 languages across 7 platforms. SlickEdit’s unmatched power, speed, and flexibility allows even the most accomplished developers to write better code faster. Download a free trial today!
  #1  
Old May 17th, 2004, 10:04 AM
jimkirk44 jimkirk44 is offline
Registered User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Apr 2004
Posts: 3 jimkirk44 User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
Exclamation Compare 2 combo boxes and get a text result

I know I am close, but I am very rusty at this VBA
stuff.
I get a result, but it happens for each option I choose from
my combo boxes.

Basically this is the whole picture. I have this matrix that am
following. I have 5 values for each combo box. If you choose
a "1" from one dropdown box, and a "1" from the other
dropdown box, THEN you get this certain text in a textbox.
results is my text box.
Here is my pseudo code:

Private Sub critnum_AfterUpdate()

Dim assm As Byte

Dim crit As Byte

assm = assnum - - This is one field (one combo box)

crit = critnum - - -this is the other field, and after this is chosen, I should get a result. I have to do about 25 IF Then statements,

because there are 25 possibilities.

If (assm = 2) + (crit = 2) Then

results = "Critical"

End If



End Sub

Thanks All, No pressure, but I have to have an answer today.

Reply With Quote
  #2  
Old May 17th, 2004, 10:22 AM
Memnoch's Avatar
Memnoch Memnoch is offline
Unholy Moderator
ASP Free God 14th Plane (11500 - 11999 posts)
 
Join Date: Oct 2003
Location: In hell, where did you think?
Posts: 11,737 Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level)Memnoch User rank is Lieutenant Colonel (40000 - 50000 Reputation Level) 
Time spent in forums: 3 Weeks 5 Days 1 h 19 m 52 sec
Reputation Power: 443
Would it be possible to add them?
Then do a select case?
something like this
Code:
Dim assm As Integer
Dim crit As Integer
Dim total As Integer
Dim results As String

assm = CInt(cboAssNum.Text)
crit = CInt(cboCritNum.Text)

total = assm + crit
 
Select Case total
   Case 1
      results = "Blah"
   Case 2
      results = "Blah2"
   Case 3
      results = "Blah3"
End Select

txtResults.Text = results

Reply With Quote
  #3  
Old May 17th, 2004, 12:13 PM
jimkirk44 jimkirk44 is offline
Registered User
ASP Free Newbie (0 - 499 posts)
 
Join Date: Apr 2004
Posts: 3 jimkirk44 User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
Actually, this is a comparison so if one value is 2 and the other is 2
then the result will be Blah.
There will be 5 distinct answers depending on whatever is chosen from either
of the dropdown combo boxes.

I think we are close, and maybe I need some more education, or at least some
more intelligence. ha ha

Reply With Quote
  #4  
Old May 17th, 2004, 02:50 PM
Doug G Doug G is offline
Grumpier Old Moderator
ASP Free God 11th Plane (10000 - 10499 posts)
 
Join Date: Sep 2003
Posts: 10,143 Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level)Doug G User rank is First Lieutenant (10000 - 20000 Reputation Level) 
Time spent in forums: 3 Weeks 4 Days 18 h 33 m 48 sec
Reputation Power: 180
This

If (assm = 2) + (crit = 2) Then

should be

If (assm = 2) and (crit = 2) Then

for one thing.
__________________
======
Doug G
======
I didn't attend the funeral, but I sent a nice letter saying I approved of it. --Mark Twain

Reply With Quote
Reply

Viewing: ASP Free ForumsProgrammingVisual Basic Programming > Compare 2 combo boxes and get a text result


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump


Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 





© 2003-2008 by Developer Shed. All rights reserved. DS Cluster 5 hosted by Hostway