Grid Event Format

[Phil Rolf]

I am having problems getting my code to work in the event portion of the grid. I have 5 logical fields that are displayed on the grid as check boxes. I am trying to check to see if multiple check boxes are checked. Here is the code I currently have but it keeps coming up with syntax errors.

function CanDeleteRecord as v (DataSubmitted as P, Args as p, PageVariables as p, Result as P)
with PageVariables
[COLOR="Red"]IF(DataSubmitted.PERSPOORLOG.and.(DataSubmitted.PERSFAIRLOG.or.DataSubmitted.PERSGOODLOG.or.DataSubmitted.PERSVGOODLOG.or.DataSubmitted.PERSEXCELLOG)) then[/COLOR]
Result.Cancel = .f.
Result.ErrorHTML = "Multiple Selections in the Personal Rating"
end with
end function

The error is that I do not have "end with" as you can see it is there...

[Lenny Forziati]

Phil, please take a look at this thread for a quick lesson on working with code blocks on the message board. by using a code block, we don't have to scroll side-to-side just to read your post and your code formatting still gets preserved.

[Lenny Forziati]

If a checkbox is not checked, the browser does not send anything back to the server. In this case, the variable that the checkbox represents will not exist. You should make sure each of the values exist before trying to test them.

I am having problems getting my code to work in the event portion of the grid. I have 5 logical fields that are displayed on the grid as check boxes. I am trying to check to see if multiple check boxes are checked. Here is the code I currently have but it keeps coming up with syntax errors.

function CanDeleteRecord as v (DataSubmitted as P, Args as p, PageVariables as p, Result as P)
with PageVariables
[COLOR="Red"]IF(DataSubmitted.PERSPOORLOG.and.(DataSubmitted.PERSFAIRLOG.or.DataSubmitted.PERSGOODLOG.or.DataSubmitted.PERSVGOODLOG.or.DataSubmitted.PERSEXCELLOG)) then[/COLOR]
Result.Cancel = .f.
Result.ErrorHTML = "Multiple Selections in the Personal Rating"
end with
end function

The error is that I do not have "end with" as you can see it is there...

[Phil Rolf]

Lenny, thanks for the tip on entering the code. I never knew that existed.

Can you give me a head start with some code so I can see how to check if a check box has been checked.

[Lenny Forziati]

If you have a checkbox PERSPOORLOG on your component, and that checkbox is checked, the variable will exist. If it is not checked, it will not exist. You can test the existence of a variable using eval_valid(). som in your event code, eval_valid("DataSubmitted.PERSPOORLOG") whould return .t. if the checkbox was checked, .f. if it was not.

Alternatively, you can dim the variable and give it a default value, such as

dim DataSubmitted.PERSPOORLOG as C = default ""

When the code above is executed, DataSubmitted.PERSPOORLOG will be created if it does not exist and the value "" will be assigned to it if it does not already have a value.

Lenny, thanks for the tip on entering the code. I never knew that existed.

Can you give me a head start with some code so I can see how to check if a check box has been checked.

[Phil Rolf]

I see what is going on, but hopefully one last question. When evaluating DataSubmitted.PERSPOORLOG or any similar variable, do I code as if this variable is LOGICAL or is it a CHARACTER field from the grid? If it is a character field, what is the VALUE that I am checking for? Would it be TRUE or FALSE?

[Pat Bremkamp]

Phil,

If it is valid and you wan to check if it is true, You can use code like

if convert_type(datasubmitted.perspoolog,"L") = .t.
something
end if