紧急求助!!!!!怎样用两个DBGrid实现一个显示一览表,一个显示鼠标选中的记录?

我怎么能够使用DBGrid1.OnDblclick事件,使得DBGrid2获得鼠标所双击的记录?

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

可以设置从表的Datasource指向主表的DataSource
同时从表写名联接主表的关键字
给你段源码:-------------乱码是中文,不影响的
procedure TfrmFKQD.DBGridEh1CellClick(Column: TColumnEh);
var
S,Str,Str1:string;
i,j,p:integer;
a:string;
begin
     Str:=Edit1.Text +datetostr(DTP.DateTime)+Edit1.Text;
     Str1:=Edit1.Text+datetostr(DTP.DateTime-7)+Edit1.Text;
     if  checkBox1.Checked=true then
     begin//获取DBGrid的选中行
    with DBGridEh1.DataSource.DataSet do
        for p:=0 to DBGridEh1.SelectedRows.Count-1 do begin
            GotoBook(pointer(DBGridEh1.SelectedRows.Items[p]));
            s:=s+Fields[0].AsString;
        end;
            if MidStr(s,10,1)<>'' then
            begin
                j:=StrLen(pChar(s)) div 9;
                for i:=0 to j-1 do
                begin
                    a:=a +Edit1.Text+MidStr(s,1+i*9,9)+Edit1.Text+'or kh_dm=';
                end;
                a:=MidStr(a,1,StrLen(pChar(a))-9);            end else
            begin
                a:=Edit1.Text+s+Edit1.Text
            end;
{
             // DBGridEh2 µÄ¸üÐÂ
            with ADOQuery2 do begin
            Close;
            SQL.Clear;
            SQL.Add('select distinct pm_mc as Æ·Ãû,dm_mc as ´ó¹æ¸ñ,dn_mc as Ð¡¹æ¸ñ,jh_sl/cast(kc_bl as int) as ÊýÁ¿, ceiling(((jh_sl/kc_bl-jh_sl/cast(kc_bl as int))*kc_bl)) as ÁãÍ· ,jh_je as ½ø»õ½ð¶î,zp_hm as ÔöÆ±ºÅ,jc_rq as ½ø²ÖÈÕ,');
            SQl.Add(Edit1.Text+Edit1.Text);
            SQL.Add(' as Êµ¸¶½ð¶î,');
            SQl.Add(Edit1.Text+Edit1.Text);
            SQL.Add('as Î´¸¶½ð¶î ,');
            SQl.Add(Edit1.Text+Edit1.Text);
            SQL.Add('as ±¸×¢,rq as ½áËãÈÕÆÚ,kh_dm,kh_mc  from pv_yfzk');
            SQL.Add('where (rq+ht_zq=');
            SQL.Add(Str);
            SQL.Add('or fk_rq=');
            SQl.Add(Str1);
            SQL.Add(') and fk_ye<>0 and (kh_dm=');
            SQl.Add(a);
            SQl.Add(') order by kh_dm, zp_hm');
            Open;
            end;
}
            with ADOQuery4 do begin
                Close;
                SQL.Clear;
                SQL.Add('insert into Means_Goods_F  select distinct pm_mc as Æ·Ãû,dm_mc as ´ó¹æ¸ñ,dn_mc as Ð¡¹æ¸ñ,jh_sl/cast(kc_bl as int) as ÊýÁ¿, ceiling(((jh_sl/kc_bl-jh_sl/cast(kc_bl as int))*kc_bl)) as ÁãÍ· ,jh_je as ½ø»õ½ð¶î,zp_hm as ÔöÆ±ºÅ,jc_rq as ½ø²ÖÈÕ,rq as ½áËãÈÕÆÚ,');
                SQl.Add('0');
                SQL.Add(' as BZ,');
                SQl.Add(Edit1.Text+Edit1.Text);
                SQL.Add(' as Êµ¸¶½ð¶î,');
                SQl.Add(Edit1.Text+Edit1.Text);
                SQL.Add('as Î´¸¶½ð¶î ,');
                SQl.Add(Edit1.Text+Edit1.Text);
                SQL.Add('as ±¸×¢,kh_dm,kh_mc,ht_zq  from pv_yfzk');
                SQL.Add('where (rq+ht_zq=');
                SQL.Add(Str);
                SQL.Add('or fk_rq=');
                SQl.Add(Str1);
                SQL.Add(') and fk_ye<>0 and (kh_dm=');
                SQl.Add(a);
                SQl.Add(') order by kh_dm, zp_hm');
                Execsql;
            end;
            with ADOQuery4 do begin
                Close;
                SQl.Clear;
                SQl.Add('insert into Means_KH_F select distinct kh_dm from  Means_Goods_F order by kh_dm');
                Execsql;
            end;
晕！这么长的代码。主表双击后，用DBGrid1.datasource.dataset.fieldbyname('ID').asstring ;得到主键，然后在显示从表的DBGrid的Query或者ADOQuery中写sql语句。
有这么麻烦，弄个主从表不就行了。主和从用同一个表，用关键字作为masterfields
看例子
http://www.incom.com.cn/download/demo.rar