Select Case Not Catching Decimal Type

[Kyle Novak]

Okay, so I have the chunk of code below which is trying to determine the
value of a decimal. No matter what I do, none of the case statements are
entered. I've tried several different formats of the "Case dTotal > 0D"
such as...

-Case (dTotal > 0)
-Case dTotal > 0D
-Case dTotal > 0.0
-Case dTotal > 0.0D

....but absolutely none of them are entered! What is going on here? Below
is the abbreviated chunk of code I'm using...

Dim dRepExpenses, dTotalAdvances, dProdPurchaseAmt, dTotal As Decimal
Try
dRepExpenses = CDec(txtRepFee.Text) + CDec(txtShippingFees.Text) +
CDec(txtMiscFees.Text)
dTotalAdvances = CDec(lblTotalAdvValue.Text)
dProdPurchaseAmt = CDec(lblProdPurchaseValue.Text)
dTotal = dRepExpenses + (dProdPurchaseAmt - dTotalAdvances)

Select Case dTotal
Case dTotal > 0D
lblTotalToRepValue.Text = CStr(dTotal) //**NEVER GETS HERE
Case dTotal < 0D
lblTotalToRQAValue.Text = CStr(dTotal) //**NEVER GETS HERE
Case dTotal = 0D
lblTotalToRepValue.Text = 0 //**NEVER GETS HERE
lblTotalToRQAValue.Text = 0
End Select
Catch E As Exception
Throw E
End Try

Thanks,

Kyle

 

[Armin Zingler]

Select Case dTotal
Case dTotal > 0D

Enable Option Strict in the project properties.

 

[Herfried K. Wagner [MVP]]

Okay, so I have the chunk of code below which is trying to determine the
value of a decimal. No matter what I do, none of the case statements are
entered. I've tried several different formats of the "Case dTotal > 0D"
such as...

-Case (dTotal > 0)
-Case dTotal > 0D
-Case dTotal > 0.0
-Case dTotal > 0.0D

...but absolutely none of them are entered! What is going on here? Below
is the abbreviated chunk of code I'm using...

Read the documentation for 'Select Case' and 'Option Strict On'...