>>Hi All,
>>
>>I hope someone has gone through this before and can offer some insight.
>>
>>I've created a form with a grid that helps users to build a simplified custom query. In my last column there is a combobox with the values "And" and "Or".
>>
>>I want require that the user use either "And" or "Or" before they can add another line in the grid. Additionally if they select either "And" or "Or" then I want to add another line automatically. From the combobox's InteractiveChange event I call a method I created called AddQuery to add the line to the Query cursor (curQuery). I also call this method from an "Add" button on the form.
>>
>>The AddQuery method calls another method I created named VerifyRow that verifies that the entry has at least the minimum amount of information to be valid.
>>
>>My problem occurs in the VerifyRow method where I check to see that an "And" or "Or" value exists in the entry. It is triggered by the combobox's InteractiveChange event so I know that a value was selected. However,the "If Empty(curQuery.AndOr)" returns a .T. to signify that the field is empty.
>>
>>The "And/Or" combobox is bound to the curQuery.AndOr field. When I use the debugger to step through and setup a "Watch" on curQuery.AndOr, it shows that curQuery.AndOr IS populated with the correct value. So why does the "If Empty(curQuery.AndOr)" evaluate to TRUE if it is not?
>>
>>I've since worked around the problem, still this is very puzzling to me and would like to know if anyone has had a similar occurance or an explination.
>>
>>The code for the 3 referenced methods/events are included below.
>>
>>Thanks in advance for all your help.
>>
>>Aloha,
>>
>>James
>>
>>
>>The combobox's InteractiveChange event contains:
>>
>>
>>If This.Value = "AND" or This.Value = "OR"
>> ThisForm.QueryAdd()
>>EndIf
>>
>>
>>The .QueryAdd() method contains the following code:
>>
>>
>>*!* Verify that the row contains enough information
>>If !ThisForm.VerifyRow()
>> Return
>>EndIf
>>
>>*!* Append blank record to curQuery
>>Select curQuery
>>Append Blank
>>
>>
>>The .VerifyRow() method contains the following code:
>>
>>
>>Local llRetVal, lcMsg
>>
>>*!* Inits
>>llRetVal = .T.
>>lcMsg = ""
>>
>>Select curQuery
>>Go Bottom
>>
>>*!* Check to see if there is an AND/OR clause
>>*!* present in the last record.
>>*!* If not, display a message to the user and bail out
>>If Empty(curQuery.AndOr)
>> =MessageBox("AND/OR value is required for this action", 0,"Query builder")
>> llRetVal = .F.
>> RETURN llRetVal
>>EndIf
>>
>>*!* Check to see that the minimum values are present
>>*!* Minimum values include: Field, Operator & Value
>>
>>If Empty(curQuery.Field) or Empty(curQuery.Oper) or Empty(curQuery.Value)
>> lcMsg = "The following columns require values:" + Chr(13)
>> lcMsg = IIf(Empty(curQuery.Field), lcMsg + Chr(13) + "Field column", lcMsg)
>> lcMsg = IIf(Empty(curQuery.Oper), lcMsg + Chr(13) + "Operator column", lcMsg)
>> lcMsg = IIf(Empty(curQuery.Value), lcMsg + Chr(13) + "Value column", lcMsg)
>>
>> *!* Display error message to the user
>> =MessageBox(lcMsg, 0, "Query Builder")
>>
>> llRetVal = .F.
>>EndIf
>>
>>Return llRetVal
>>>
>
>Hi James,
>
>I was able to reproduce this using a combobox outside of a grid and the same methods you use. It's very weird. I can't explain why it is doing what it is doing, but I could only get it to work if I change the InteractiveChange to:
>
>
>If This.Value = "AND" or This.Value = "OR"
> REPLACE AndOr WITH this.value
> ThisForm.AddQuery()
>EndIf
>
>
>Of course, it seems as if the REPLACE shouldn't be needed...???
>
>Rob
Hi Rob,
Thanks for taking the time to look this over. I came up with the same "work around". It was driving me crazy though and I just thought it would be a good one for the forum.
I wonder if anyone else has encountered this before.
Aloha,
James
