Probably an easy one but I can get this code to work. The nested if statements are causing the select case problems. When it gets to case 1 it does reckonise the select case statement. It throws the error "Case without Select Case". Can anyone show me where Im going wrong
Select Case intKey
Case 0
If numPosAmount = 0 Then
numRunningAsjustment = 0
Else
If numNominalamounts < SumTradesTotal Then
numRunningAsjustment = numNominalamounts * -1
numPosAmount = numPosAmount + numRunningAsjustment
Else
If numPosAmount <= numNominalamounts Then
numRunningAsjustment = numNominalamounts * -1
numPosAmount = numPosAmount + numRunningAsjustment
End If
Case 1
Select Case intKey
Case 0
If numPosAmount = 0 Then
numRunningAsjustment = 0
Else
If numNominalamounts < SumTradesTotal Then
numRunningAsjustment = numNominalamounts * -1
numPosAmount = numPosAmount + numRunningAsjustment
Else
If numPosAmount <= numNominalamounts Then
numRunningAsjustment = numNominalamounts * -1
numPosAmount = numPosAmount + numRunningAsjustment
End If
Case 1