| احمد العراقي معلومات المنتدى |
| إنضم إلينا : |
28-10-2016 |
| آخر زيارة |
25-10-2023, 11:14 AM |
| إجمالي المشاركات : |
49 (0.02 مشاركات في اليوم الواحد | 0.1 في المئة من إجمالي المشاركات)
(إيجاد مشاركات العضو)
|
| اجمالي المواضيع : |
24 (0.01 مواضيع في اليوم | 0.24 في المئه من اجمالي المواضيع)
(إيجاد مواضيع العضو)
|
| فترة البقاء متصل : |
2 أيام, 6 ساعات, 58 دقائق |
| الأعضاء المحالين: |
1
|
|
1 (0 0.01 per day | 12008 percent of total 0.01)
( — )
|
|
17 (0.01 0.14 per day | 12037 percent of total 0.14)
( — )
|
|
|
|
|
|
|
| RE: التصفية حسب التحديد في dbgrid |
01-03-2020, 06:59 PM |
1 |
|
|
| التصفية حسب التحديد في dbgrid |
منتديات دلفي للعرب التعليمية
سؤال و جواب حول دلفي
|
|
|
S.FATEH كتب : (01-03-2020, 04:36 PM)
--
السلام عليكم
عدل عليها بما يناسبك
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;
--
شكرا اخي العزيز غاية الشكر و كل من قام بالرد على سؤالي حقا هذا المنتى رائع , اشكرم جميعا ,نعم هذا هو الكود الذي يعمل بالصورة التي كنت احتاجها مرة اخرى اشكرم جميعا
--
|
|
