View Single Post
 
Old April 3rd, 2006, 05:18 PM
BCullenward BCullenward is offline
Authorized User
 
Join Date: Mar 2006
Location: , , .
Posts: 16
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Do it via the code.

Code:
PUBLIC FUNCTION getOrderValue(orderID as double) AS STRING
    IF orderID > 1000004 then
        getOrderValue = "OVER"
        EXIT FUNCTION
    ELSE IF orderID = 1000004 then
        getOrderValue = "EQUAL"
        EXIT FUNCTION
    ELSE
        getOrderValue = "UNDER"
        EXIT FUNCTION
    END IF
END FUNCTION

PUBLIC FUNCTION setBoom(boom as string) AS STRING
    IF Boom = "UNDER" THEN
        setBoom = "Not quite there"
        EXIT FUNCTION
    ELSE IF Boom = "EQUAL" THEN
        setBoom = "Damn Skippy!"
        EXIT FUNCTION
    ELSE
        setBoom = "You went to far, Dr. Jones"
        EXIT FUNCTION
    END IF
END FUNCTION

PUBLIC DIM fldLst as String

PUBLIC FUNCTION GetFld(orderID as String) as String
    fldLst = orderID & vbnewline & fldLst
    GetFld = ""
END FUNCTION

PUBLIC FUNCTION getFldLst() as String
    getFldLst = fldLst
END FUNCTION
There is some of the code I used. Add a column or textbox and in it, you can call the bit of code you want by changing the value to =code.FUNCTIONNAME(PARAMETER)

so I have a textbox at the end of the report and set the value to =CODE.GetFldLst()