cxGrid1 manuel kayıt ekleme

[delphiX14]

Merhaba;
cxGrid1 üzerine herhangi bir db bağlı olmayan bağımsız veriler eklemek istiyorum
Araştırdığımda bu kodu buldum

  ARecordIndex := cxGrid2DBTableView1.DataController.AppendRecord;
  cxGrid2DBTableView1.DataController.Values[ARecordIndex, cxGrid2DBTableView1ISLEM.Index] := 'deger1';

Kod yeni satr oluşturuyor ama ,içine istediğim değeri atamıyor

VirtualTable1 yada query kullanmadan direk grid içerisini doldurma şansım varmı ?
Teşekürler

[mcuyan]

Yok diye tahmin ediyorum. Fakat bunun yerine MemTable bağlaıp datayı memory e aldıkdan sonra db ye kayıt yaptırabilirsiniz diye tahmin ediyorum..

[cinarbil]

(23-07-2022, Saat: 23:51)delphiX14 Adlı Kullanıcıdan Alıntı: Merhaba;
cxGrid1 üzerine herhangi bir db bağlı olmayan bağımsız veriler eklemek istiyorum
Araştırdığımda bu kodu buldum

  ARecordIndex := cxGrid2DBTableView1.DataController.AppendRecord;
  cxGrid2DBTableView1.DataController.Values[ARecordIndex, cxGrid2DBTableView1ISLEM.Index] := 'deger1';

Kod yeni satr oluşturuyor ama ,içine istediğim değeri atamıyor

VirtualTable1 yada query kullanmadan direk grid içerisini doldurma şansım varmı ?
Teşekürler

İyi akşamlar ben aşağıdaki şekilde kullanmıştım.

// satır ekle procedure müsait olan yere ekleyin 
var
 i : integer; // cxgrid deki son kayıt için
begin
   siparisuretim_view.DataController.Appendrecord; // Yeni satır ekle
   siparisuretim_view.datacontroller.values[i,0] := siparisuretim_view.DataController.RowCount; //sira no otomatik verilsin
   siparisuretim_view.datacontroller.values[i,1] := senin cgrid hücrene atayacağın bilgiler olacak buralar
   siparisuretim_view.datacontroller.values[i,2] := 
   siparisuretim_view.datacontroller.values[i,3] := 
   siparisuretim_view.datacontroller.values[i,4] := xx_miktar;
   siparisuretim_view.datacontroller.values[i,5] := 
   siparisuretim_view.datacontroller.values[i,6] := 
   siparisuretim_view.datacontroller.values[i,7] := floattostr(s_sonuc) ;
   siparisuretim_view.datacontroller.values[i,9] := 
end;
[/ars]

Aşağıdaki kodda aynı kayıt daha  önce eklenmiş mi diye kontrol eder

for i := 0 to siparisuretim_view.datacontroller.RowCount - 1 do
 begin
   if (trim(siparisuretim_view.datacontroller.values[i,2]) = trim(eklenecek_bilgi)) then
   begin
     mesaj := trim(eklenecek_bilgi) + ' daha önce eklenmiş!';
     Application.MessageBox(PWideChar(mesaj), 'Uyarı', MB_OK + MB_ICONWARNING);
     exit;
   end;
 end;

 
Kodlar test edilmiş ve çalışan kodlar yazım hatası varsa ihtiyarlığımıza verin.

[delphiX14]

(24-07-2022, Saat: 18:30)cinarbil Adlı Kullanıcıdan Alıntı:

(23-07-2022, Saat: 23:51)delphiX14 Adlı Kullanıcıdan Alıntı: Merhaba;
cxGrid1 üzerine herhangi bir db bağlı olmayan bağımsız veriler eklemek istiyorum
Araştırdığımda bu kodu buldum

  ARecordIndex := cxGrid2DBTableView1.DataController.AppendRecord;
  cxGrid2DBTableView1.DataController.Values[ARecordIndex, cxGrid2DBTableView1ISLEM.Index] := 'deger1';

Kod yeni satr oluşturuyor ama ,içine istediğim değeri atamıyor

VirtualTable1 yada query kullanmadan direk grid içerisini doldurma şansım varmı ?
Teşekürler

İyi akşamlar ben aşağıdaki şekilde kullanmıştım.

// satır ekle procedure müsait olan yere ekleyin 
var
 i : integer; // cxgrid deki son kayıt için
begin
   siparisuretim_view.DataController.Appendrecord; // Yeni satır ekle
   siparisuretim_view.datacontroller.values[i,0] := siparisuretim_view.DataController.RowCount; //sira no otomatik verilsin
   siparisuretim_view.datacontroller.values[i,1] := senin cgrid hücrene atayacağın bilgiler olacak buralar
   siparisuretim_view.datacontroller.values[i,2] := 
   siparisuretim_view.datacontroller.values[i,3] := 
   siparisuretim_view.datacontroller.values[i,4] := xx_miktar;
   siparisuretim_view.datacontroller.values[i,5] := 
   siparisuretim_view.datacontroller.values[i,6] := 
   siparisuretim_view.datacontroller.values[i,7] := floattostr(s_sonuc) ;
   siparisuretim_view.datacontroller.values[i,9] := 
end;
[/ars]

Aşağıdaki kodda aynı kayıt daha  önce eklenmiş mi diye kontrol eder

for i := 0 to siparisuretim_view.datacontroller.RowCount - 1 do
 begin
   if (trim(siparisuretim_view.datacontroller.values[i,2]) = trim(eklenecek_bilgi)) then
   begin
     mesaj := trim(eklenecek_bilgi) + ' daha önce eklenmiş!';
     Application.MessageBox(PWideChar(mesaj), 'Uyarı', MB_OK + MB_ICONWARNING);
     exit;
   end;
 end;

 
Kodlar test edilmiş ve çalışan kodlar yazım hatası varsa ihtiyarlığımıza verin.

aslında yazdığım kod ile  aynı 
  ARecordIndex := cxGrid2DBTableView1.DataController.AppendRecord;
  cxGrid2DBTableView1.DataController.Values[ARecordIndex, cxGrid2DBTableView1ISLEM.Index] := 'deger1';
ikiside datacontroller values değerine atama yapıyor 
bende yeni satır oluşuyor ama içinde atanan değer olmadı bir türlü bir şeyi gözden kaçırdım ve bulamadım  , çözüm olarak ta VirtualTable1 aktarıp gride yansıttım cvb için yinede tşkler