Kod: Tümünü seç
if key=VK_RETURN then
begin
dmodul.urunler.Close;
dmodul.urunler.SQL.Clear;
dmodul.urunler.SQL.Add('select * from urun where BARCOD='+QuotedStr(Edit2.Text));
dmodul.urunler.Open;
if dmodul.urunler.RecordCount=0 then
begin
Application.MessageBox('Urun Bulunamadı','HATA',mb_ok+MB_ICONERROR);
Edit2.Text:='';
Edit2.SetFocus;
Exit;
end;// ürün yoksa bitti
cxGrid1.Invalidate(true);
with cxGrid1TableView1.DataController do
begin
RecordCount:=RecordCount+1;
//cxGrid1TableView1.Controller.FocusedRecordIndex:=RecordCount-1;
FocusedRecordIndex:=RecordCount-1;
//a:=cxGrid1TableView1.Controller.FocusedRecordIndex;
Values[FocusedRecordIndex ,0] :=dmodul.urunlerBARCOD.AsString;
Values[FocusedRecordIndex ,1] :=dmodul.urunlerURUNADI.AsString;
Values[FocusedRecordIndex ,2] :=dmodul.urunlerTURU.AsString;
Values[FocusedRecordIndex ,3] :=dmodul.urunlerCINSI.AsString;
Values[FocusedRecordIndex ,4] :=dmodul.urunlerSATIS1.AsFloat;
Values[FocusedRecordIndex ,5] :='1';
if Label16.Caption<>'........' then
Values[FocusedRecordIndex ,7] :=dmodul.musterilerISKONTO.AsFloat
else
Values[FocusedRecordIndex ,7] :='0';
Values[FocusedRecordIndex ,10] :=dmodul.urunlerKDVORAN.AsString;
cxGrid1TableView1.DataController.Post(true);
end; // with data controller bitti
cxGrid1TableView1.ApplyBestFit();
Edit2.Text:='';
Edit2.SetFocus;
cxGrid1.Invalidate(true);
end; // entere bas bitti
FocusedRecordIndex:=RecordCount-1;
bu satırdan önce read of adres hatası veriyor devam deyince de kayıtları normal olarak grid e yerleştiriyor
hata neden kaynaklanıyor acaba