Libran() 请进

[guess1975]

Libran() :
你好,上次请教你的问题,我已经按照你的步骤做了,非常成功,谢谢
现在我想继续深化这个问题,如下:
Query1->Close();
Query1->SQL->Clear();
Query1->SQL->Add("select * from sfxm ");
Query1->SQL->Add("where PINYM like '"+Edit1->Text+"%'");
Query1->Open();
当我在Edit1->Text 中输入"张"时
DBGrid 上显示如下记录:
姓名 性别 年龄

张三 男 23
张铃 女 20
张国胜 男 30
张曼玉 女 55
然后我用上下键选种某一条记录(比如:张三 男 23) 敲回车 就能把这条记录( 张三 男 23) 赋值给DBGrid2 请问如何实现?
注: DBGrid2 对应的Query2 已经连到了表 "sfxm"上.

[binbin]

用表的主键做filter加在Query2上不就行了?

[binbin]

设Query2已经有SQL查询并open了.

void __fastcall TForm1::DBGrid1KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if (Key==13)
{
Query2->Filter="PINYM=\""+Query1->FieldByName("PINYM")->AsString+"\"";
Query2->Filtered=true;
}
}