في حالة ربط جدول بأخر

[medreg]

تفضل أخي ..

ولكن انصحك بتغيير التعاريف الى اسماء واضحة و تنظيم ترتيبب الحقول في الجداول و ال dbgrid

المشروع المعدل مرفق ..

PHP كود :

procedure tform1.dbgrid2keypress(sender: Tobject; var key: Char);
var
getstr:string;
begin

if key = #13 then

       begin

        case dbgrid2.columns.grid.selectedfield.index of

          5: Begin

                 with query1 do begin
                 close;

                 parambyname('a').value :=dbgrid2.columns.grid.selectedfield.asstring;

                 open;

                 if fieldvalues['rb_sb_currvalue'] = null then getstr:=''

                 else getstr:= fieldvalues['rb_sb_currvalue'];

                 end;

                  with table1 do begin

                  edit;

                  fields[3].value := getstr;

                  post ;

                  dbgrid2.refresh;

                  end;

             end;

          1: Begin

                 with query2 do begin

                 close;

                 parambyname('b').value := dbgrid2.columns.grid.fields[2].asstring;

                 open;

                 case dbgrid2.columns.grid.fields[3].value of

                 1: Getstr := fieldvalues['sp1'];
                 2: Getstr := fieldvalues['sp2'];
                 3: Getstr := fieldvalues['sp3'];
                 4: Getstr := fieldvalues['sp4'];
                 5: Getstr := fieldvalues['sp5'];
                 end;

                 end;

               with table1 do begin

                  edit;

                  fields[2].value := getstr;

                  post ;

                  dbgrid2.refresh;

                  end;
             end;

          end;

       end;
end; 


بالتوفيق ان شاء الله ..

مشكور هذا هو الغرض المطلوب