FoxPro/Visual FoxPro - ayuda con la grid

Gracias por la respuesta....
tengo una pregunta de Fox y espero que me la puedas resolver. Tengo 2 tablas que estan relacionadas por un campo clave y quiero que en una grid me muestren los registros de un campo clave especifico que sea ingresado en a traves de un TEXT, para que los pueda modificar o borrar segun sea el caso.
Espero tu respuesta gracias.

talvez este ejemplo te sea de utilidad....

Local oForm, cCurDBC
cCurDBC = Juststem(Dbc())

oForm = Createobject("clsMyForm")
oForm.Show()
Read Events

Set Database To testdata
Close Database

If !Empty(cCurDBC)
Set Database To (cCurDBC)
EndIf

Define Class clsMyForm As Form
DoCreate = .T.
AutoCenter = .T.
DataSession = 2
Width = 800
Height = 490
Caption = "Customers with orders"

Add Object lblCust As Label With ;
TOP = 10, ;
LEFT = 10, ;
CAPTION = "Customers"

Add Object grdCustomers As Grid With;
TOP = This.lblCust.Top + This.lblCust.Height + 4, ;
LEFT = 10, ;
WIDTH = This.Width - 120, ;
HEIGHT = This.Height - 74, ;
RECORDSOURCE = "customer"

Add Object lblOrders As Label With ;
TOP = 10, ;
LEFT = This.grdCustomers.Left+This.grdCustomers.Width + 5, ;
CAPTION = "Orders", ;
AUTOSIZE = .T.

Add Object cboOrders As ComboBox With ;
TOP = This.grdCustomers.Top, ;
LEFT = This.lblOrders.Left, ;
ROWSOURCETYPE = 3, ;
ROWSOURCE = ;
"select order_id from orders where orders.cust_id == customer.cust_id into cursor tmporders"

Procedure Load
Use _samples+"\data\customer.dbf" Order company In 0 Shared
Use _samples+"\data\orders.dbf" In 0 Shared
EndProc

Procedure Destroy
Clear Events
EndProc

Procedure CustRowChanged()
Thisform.cboOrders.Requery()
Thisform.cboOrders.ListIndex = 1
Thisform.lblOrders.Caption = "Orders: "+Transform(Reccount("tmporders"))
EndProc

* Control(s) Methods:

Procedure grdCustomers.AfterRowColChange
Lparam nColIndex
Thisform.CustRowChanged()
EndProc

EndDefine

David Amador Tapia
WebMaster "La Web de Davphantom"
www.davphantom.net
Cartagena. Colombia