dbgrid de bir sonraki satır

[selman]

selam
olay çözülmüştür belki ihtiyacı olan olabilir diye buraya ekliyom

Kod: Tümünü seç

 if Key = #13 then
   if not (ActiveControl is TRzDBGrid) then
    begin
      Key := #0;
      Perform(WM_NEXTDLGCTL, 0, 0);
    end
     else
if (ActiveControl is TRzDBGrid) then
    with TRzDBGrid(ActiveControl) do
    if selectedindex < (fieldcount-1) then
    selectedindex := selectedindex +1
     else
    Begin
    datamodule1.IBDataSet2.Edit;
    datamodule1.IBDataSet2.fieldbyname('CKOD').AsString:=datamodule1.IBDataSet1.fieldbyname('C_KOD').AsString;
        datamodule1.IBDataSet2.Next;
        if datamodule1.IBDataSet2.Eof Then

       datamodule1.IBDataSet2.Append;
           SelectedIndex := 0;
          End;

kolay gelsin

[selman]

bu code formun on keyprees olayına yazılacak
kolay gelsin

[rsimsek]

datamodule1.IBDataSet2.Next; dediğin yerde dosya sonuna gelinip gelinmediğini (EOF) kontrol edip dosya sobu ise datamodule1.IBDataSet2.Append /.Insert demen lazım..

... datamodule1.IBDataSet2.Next;
if datamodule1.IBDataSet2.Eof Then

datamodule1.IBDataSet2.Append; ...

@selman kardeş tam anlatmak istediğim gibi yapmışsın. Gerçi arada epey bir muhabbet geçmiş fakat pişirme işini sana bırakmak istediğimden sana sadece malzemeleri vermiştim

[selman]

tşk.ederim recep abi sizin gibi üstadları sayesinde çok şeyler öğreniyoruz ve öğrenceğizde Allah razı olsun abi