Kod: Tümünü seç
for I := 0 to VIW_Detail.DataController.GetSelectedCount - 1 do begin
VIW_Detail.DataController.FocusedRowIndex :=
VIW_Detail.DataController.GetSelectedRowIndex(I);
AddToStore;// Bu benim yazdığım bir Procedure.
{VIW a bağladığın Datasource u locate eder. Eğer secron u iptal etmediysen. AddToStore; procedure içinde
QUE_Mem.FieldByName('TARIHI').AsDateTime;
şeklinde erişiyor}
end;
Kod: Tümünü seç
Var
I:integer;
begin
for I := 0 to cxGrid1DBTableView1.DataController.GetSelectedCount - 1 do begin
Memo1.Lines.Add (inttostr(cxGrid1DBTableView1.DataController.GetSelectedRowIndex(I)) );
end;
end;
Kod: Tümünü seç
itemindex MalAdi
10 Burasını nasıl alıcam
Neden sana index lazım ve bunu ekrana basmak yada bunu kullanmak istiyorsun? UnBounded kullanıyorsan eyvallah ama dbaware kullanıyorsan PRKEY kullan mutlaka. cxGrid kullanıyorsun, kullanıcı caption lara basıp sıralattırırsa senin indexler dağılabilir, yada network te çalışıyorsan bu table a 1 kayıt eklenirse, yada bu qoery referesh edilirse vs vs. ama senin db deki PRKEY değişmez, yukarıda gönderdiğim kodta döngü içinde seçili kayıtlar üzerinde DB üzerinde hareket ediyor, sen o kaydın PRKEY sini yada tüm fieldların bilgilerini alabiliyorsun. Dataset üzerinden.
Kod: Tümünü seç
Memo1.Lines.Add (inttostr(cxGrid1DBTableView1.DataController.GetSelectedRowIndex(I)) );
Kod: Tümünü seç
var
i: integer;
aRow: TcxCustomGridRow;
begin
for i := 0 to tvTest.Controller.SelectedRowCount - 1 do
begin
aRow := tvTest.Controller.SelectedRows[ i ];
aRow.Values[ tvTestEmirNoKolonu.Index ] //gibi istediğin değerleri alabilirsin.
//Burdaki tvTest yerine sen kendi tableview ismini yazman lazım. Mesela cxGrid1DBTableView1
end;
end;Kod: Tümünü seç
aRow.Values[ cxGrid1DBTableView1.Index ]
[Error] Unit1.pas(111): Undeclared identifier: 'Index'
Kod: Tümünü seç
Procedure TFrmAsi.cxGridDBTableView1DblClick(Sender: TObject);
Var
a, b: Integer;
s: String;
Begin
a := cxGridDBTableView1.Controller.FocusedRowIndex;
For b := 0 To cxGridDBTableView1.ColumnCount - 1 Do Begin
If cxGridDBTableView1.Columns[b].DataBinding.FieldName = 'EMIRNO' Then Begin
s := cxGridDBTableView1.ViewData.Rows[a].Values[b];
showmessage(s);
End;
End;
End;
Merhaba; Bir fikir verdi üzerinde uğraşacağım ama sanırım sadece aktif olan kaydın değerini veriyor siz ondbclick olayına yazın diye bahsetmişsiniz zaten tekli seçimlerde ben queryden alıyorum. Önemli olan çoklu seçimi alabilmek.Z.D. yazdı: cxGridDBTableView1 objesinin OnDblClick eventinde
Kod: Tümünü seç
Procedure TFrmAsi.tbl_ForwardClick(Sender: TObject);
Var
xRow, xCol, i: Integer;
xEmirData: String;
Begin
For i := 0 To cxGridDBTableView1.Controller.SelectedRowCount - 1 Do Begin
With cxGridDBTableView1.DataController Do Begin
xRow := cxGridDBTableView1.Controller.SelectedRows[i].Index;
For xCol := 0 To cxGridDBTableView1.ColumnCount - 1 Do Begin
If cxGridDBTableView1.Columns[xCol].DataBinding.FieldName = 'EMIRNO' Then Begin
xEmirData := cxGridDBTableView1.ViewData.Rows[xRow].Values[xCol];
showmessage(xEmirData);
End;
End;
End;
End;
End;
Kod: Tümünü seç
procedure TMyMainDataEntranceForm.Button1Click(Sender: TObject);
var
I, Idx: Integer;
aRowInfo: TcxRowInfo;
aList1: TStringList;
St1: string;
begin
if cxGrid1DBBandedTableView1.Controller.FocusedItemIndex < 0 then //Aktif kolondaki seçili kayıtların değerlerini alıp C:\Test.TXT dosyasına kaydedeceğiz
begin
ShowMessage('Bir kolon seçmelisiniz!');
Exit;
end;
Idx := cxGrid1DBBandedTableView1.Controller.FocusedItem.Index;
aList1 := TStringList.Create;
try
for I := 0 to cxGrid1DBBandedTableView1.DataController.RowCount - 1 do
begin
if not cxGrid1DBBandedTableView1.DataController.IsRowSelected(I) then Continue;
aRowInfo := cxGrid1DBBandedTableView1.DataController.GetRowInfo(I);
if aRowInfo.Level < cxGrid1DBBandedTableView1.DataController.Groups.GroupingItemCount then Continue; //Gruplama satırı ise...
St1 := VarToStr(cxGrid1DBBandedTableView1.DataController.Values[aRowInfo.RecordIndex, Idx]);
aList1.Add(St1);
end;
aList1.SaveToFile('C:\Test.TXT');
finally
aList1.Free;
end;
end;Kod: Tümünü seç
Var
xRow, xCol, i: Integer;
xEmirData: String;
Begin
For i := 0 To cxGrid1DBTableView1.Controller.SelectedRowCount - 1 Do Begin
With cxGrid1DBTableView1.DataController Do Begin
xRow := cxGrid1DBTableView1.Controller.SelectedRows[i].Index;
For xCol := 0 To cxGrid1DBTableView1.ColumnCount - 1 Do Begin
If cxGrid1DBTableView1.Columns[xCol].DataBinding.FieldName = 'EmirNo' Then Begin
xEmirData := cxGrid1DBTableView1.ViewData.Rows[xRow].Values[xCol];
showmessage(xEmirData);
End;
End;
End;
End;