01-03-2020, 06:59 PM
(01-03-2020, 04:36 PM)S.FATEH كتب : [ -> ]السلام عليكم
عدل عليها بما يناسبك
- dmt.client هي الـ DataSet الخاصة بك.
- dbgClients هي DBGrid الخاصة بك.
شكرا اخي العزيز غاية الشكر و كل من قام بالرد على سؤالي حقا هذا المنتى رائع , اشكرم جميعا ,نعم هذا هو الكود الذي يعمل بالصورة التي كنت احتاجها مرة اخرى اشكرم جميعاPHP كود :procedure TfrmListClient.ToolButton1Click(Sender: TObject);
var
I: Integer;
FilterStr, FieldName: string;
begin
FieldName := dmt.Client.Fields[0].FieldName;
FilterStr := FieldName + ' = -1';
for I := 0 to dbgClients.SelectedRows.Count - 1 do
begin
dmt.Client.GotoBookmark(dbgClients.SelectedRows[i]);
FilterStr := FilterStr +' or '+ FieldName + ' = ' + dmt.Client.Fields[0].AsString;
end;
dmt.Client.Filter := FilterStr;
dmt.Client.Filtered := True;
end;