|
|||||||||
|
|||||||||
| |||||||||
|
|||||||||
|
|||||||||
| |||||||||
|
|
|
| |||||||||
 |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
Dev Shed Forums Sponsor:
|
|
Get inside! Sample the range of functionality easily built with JMSL Library for Time Series Data Analysis, Heat Maps, Portfolio Optimization, Monte Carlo Simulation, Stock Price Charting and more. Download Now! |
|
#1
August 22nd, 2003, 07:33 AM
|
|||
|
|||
|
Problem with case statement
I am currently working on an export of transactions and I can't seem to get this little piece of my code to work. Option1, Option2, etc. are option buttons
If fld.Name = "sequence_number" Then Select Case options Case Option1 = True Print #filenum, "ZP"; Case Option2 = True Print #filenum, "XP"; Case Option3 = True Print #filenum, "YP"; Case Option4 = True Print #filenum, "YC"; Case Option5 = True Print #filenum, "XC"; Case Option6 = True Print #filenum, "ZC"; End Select When I select option1 I get ZP to print within my output on all the others it doesn't work. I also get ZP printing for Option6. It doesn't make any sense to me! Thanks guys. I'd appreciate any help.
|
|
#2
August 22nd, 2003, 08:04 AM
|
||||
|
||||
|
I don't quite think the select case works the way you think it does, but I may be wrong.
I believe you would be better off checking the value of each individual option button value with a if then block. The select case block will only evaluate one expression.
|
|
#3
August 22nd, 2003, 09:48 AM
|
|||
|
|||
|
ok,
i was originally going to do that, but then was told that a case statement would work. I kind of had the same feeling you do about that. However, I tried an if then statement within the if statement i have in my previous post. It didn't seem to get recognized at all. I also did not get any code errors.
|
|
#5
August 22nd, 2003, 10:41 AM
|
|||
|
|||
|
what is options? this select case is also valid:
Code:
If fld.Name = "sequence_number" Then
Select Case True
Case Option1.Value
Print #filenum, "ZP";
Case Option2.Value
Print #filenum, "XP";
Case Option3.Value
Print #filenum, "YP";
Case Option4.Value
Print #filenum, "YC";
Case Option5.Value
Print #filenum, "XC";
Case Option6.Value
Print #filenum, "ZC";
End Select
End If
__________________
Programmer's Corner
|
|
| Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > Problem with case statement |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
 |
|
|
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
