Passing value to crsytal report

[tay1964]

Hi,
I need to pass the check box value to the crystal report. i want to select those quantity > 0 and quantity < 0 and display it to the crystal report. How to solve the problem?
I need it urgently.

Thank you.

Dim Quantity1 As Integer
Dim Quantity2 As Integer

Quantity1 = IIf(Request("QUANTITY1").ToUpper = "True", "({parts.Quantity}>0)", 1)
Quantity2 = IIf(Request("QUANTITY2").ToUpper = "True", "({parts.Quantity}<0)", 1)

CRViewer.SelectionFormula += " AND ("
CRViewer.SelectionFormula += "{parts.Quantity}=" & Quantity1
CRViewer.SelectionFormula += " AND"
CRViewer.SelectionFormula += "{parts.Quantity}=" & Quantity2
CRViewer.SelectionFormula += ")"