Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Stefan Wuebbe
  Where is Stefan Wuebbe?
 Hamburg
 Germany
 Stefan Wuebbe
 To: mut jayan
  Where is mut jayan?
 chennai
 India
 mut jayan
 Tags
Subject: RE: Records not shown in grid
Thread ID: 228730 Message ID: 228750 # Views: 3 # Ratings: 0
Version: Visual FoxPro 9 Category: Grids
Date: Thursday, May 21, 2009 9:56:51 AM         
   


In addition to Ammar's comment: what you want to do is a good job for a "parameterized local view".
You can create one easily based on your SQL:
> select * from centac where upper(address1) like lctext+'%'

For instance, you can use the View Designer, or in the command window do something like:

Open yourDatabase.DBC
Create View vTest as select * from yourDatabase!centac where upper(address1) like ?m.lctext+'%'


Then add the new View to your form.DataEnvironment, and set its property .NoDataOnLoad=.T.
Then make it yourGrid.RecordSource, e.g. by dragging the View from the DE onto the form, and in your
"Search" button.Click() or in a Thisform.myCustomMethod(), do something like:

Local lctext
lctext = Trim(Thisform.txtSearch.Value) && your desired search string
Requery('vTest') && or however you named the View





hth
-Stefan


> I have create two forms namely 1. empmain.scx 2. search.scx, in empmain form I have entered new employee records only in that i have put one grid control, and five text boxes and three command button. when I run the form all the records displayed in grid. I have click search command button in empmain.scx the search form will open and i have find some records and again i have come back to empmain form the records not display in the grid control.
>
> 1. code of the empmain.scx is below
>
> use "D:\centac\emp.dbf"
> locate for (thisform.txtappno.value) = appno
> if NOT found()
> INSERT INTO centac values(thisform.txtappno.value, thisform.txtadd1.value, thisform.txtadd2.value, thisform.txtadd3.value, thisform.txtadd4.value,;
> thisform.combo1.value, thisform.combo2.value, thisform.txtddno.value, thisform.txtbank.value, VAL(thisform.txtamount.value), thisform.txtdate.value)
> thisform.grid1.refresh
> ELSE
> Messagebox("APPLNO ALREADY EXISTS")
> endif
> thisform.txtappno.value = ""
> thisform.txtadd1.value = " "
> thisform.txtadd2.value = " "
> thisform.txtadd3.value = " "
> thisform.txtadd4.value = " "
> thisform.txtddno.value = " "
> thisform.txtbank.value = " "
> thisform.txtamount.value = " "
> thisform.txtappno.setfocus
>
> 2. code of the seach is below
>
> use "D:\centac\emp.dbf
> if thisform.optiongroup1.option1.value = 1
> locate for thisform.txtsearch.value = ddno
> if found()
> Messagebox("RECORD FOUND")
> ELSE
> Messagebox("RECORD NOT FOUND")
> ENDIF
> thisform.txtsearch.value = " "
> thisform.txtsearch.setfocus
> ELSE
> if thisform.optiongroup1.option2.value =1
> lctext = alltrim(upper(this.parent.txtsearch.value))
> select * from centac where upper(address1) like lctext+'%'
> endif
> ENDIF
> thisform.txtsearch.value = " "
> thisform.txtsearch.setfocus
>
> How to rectify the problem?
>
> Awaiting yours reply.
>
>
>
>
>
> Save to: Default
>
>
>
>
>
> Switch color theme
> Select message background color...
> Select message area width...
> Adjust message text font size...
> Disable auto links
> Enable acronyms
> Disable message header
> Enable auto quote
> Update the title of this thread...
> Grid Thread #1401196 Message #1401196

ENTIRE THREAD

Records not shown in grid Posted by mut jayan @ 5/21/2009 7:19:23 AM
RE: Records not shown in grid Posted by Ammar Hadi @ 5/21/2009 8:02:30 AM
RE: Records not shown in grid Posted by Stefan Wuebbe @ 5/21/2009 9:56:51 AM
RE: Records not shown in grid Posted by Mayur Subbu @ 5/22/2009 4:31:12 AM