General information
Category:
The Mere Mortals Framework
Bill,
Thanks for the solution. It works only part of it. I implemented your sample code. After searching the buttons in the FindForm work well. But there are no search results in the grid.
Here the code I implemented in the button 'cmdFindNow':
** Switch DATA ENVIRONMENT Dynamically
IF ThisForm.cOptionGroupl.Optiongroup.Value = 0
ThisForm.SearchListObj.grdList.Recordsource = .NULL.
ThisForm.oBizObj.oDELoader.cDataEnvironment = ;
"RelatiesBinnenlandFindEnvironment"
ThisForm.oBizObj.LoadDataEnvironment()
*Unlock the screen after the new data environment has loaded
ThisForm.LockScreen = .F.
ENDIF
IF ThisForm.cOptionGroupl.Optiongroup.Value = 1
ThisForm.SearchListObj.grdList.Recordsource = .NULL.
ThisForm.oBizObj.oDELoader.cDataEnvironment = ;
"VIPRelatiesBinnenlandFindEnvironment"
ThisForm.oBizObj.LoadDataEnvironment()
*Unlock the screen after the new data environment has loaded
ThisForm.LockScreen = .F.
ENDIF
**
STORE '%' TO vp_cNaam, vp_cStraat_1, vp_cPostcode_1, vp_cPlaats_1
IF NOT EMPTY(ThisForm.txlNaam.TextBox.Value)
vp_cNaam = '%' + UPPER(ThisForm.txlNaam.TextBox.Value) + '%'
ENDIF
IF NOT EMPTY(ThisForm.txlAdres.TextBox.Value)
vp_cStraat_1 = '%' + UPPER(ThisForm.txlAdres.TextBox.Value) + '%'
ENDIF
IF NOT EMPTY(ThisForm.txlPostcode.TextBox.Value)
vp_cPostcode_1 = '%' + UPPER(ThisForm.txlPostcode.TextBox.Value) + '%'
ENDIF
IF NOT EMPTY(ThisForm.txlPlaats.TextBox.Value)
vp_cPlaats_1 = '%' + UPPER(ThisForm.txlPlaats.TextBox.Value) + '%'
ENDIF
DoDefault()
Can you tell what I did overlook? Thanks in advance.
Arie van der Ent
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only