delphi4arab منتديات دلفي للعرب

السلام عليكم،
ممكن مساعدة في حل مشكلة ، عندي dbgrid يعرض معلومات من جدولين ( قمت باضافة معلومات الجدول الثاني باستخدام lookup )
و عندي زر بحث يعتمد على قيم radiongroup لاختيار عمود البحث،
الكود المستخدم في الزر هو

كود :
var x:string[20];
begin
    case RadioGroup1.ItemIndex of
        0:x:= 'Num_Emp';
        1:x:= 'Prenom_E';
        2:x:= 'name';
        4:x:= 'Nom_E';

    end;
    adotable1.Filter:=x+'='''+edit1.text+'''';
    adotable1.Filtered:=true;

لكن عند البحث يقوم بفلترة القيم حسب اعمدة الجدول الاول فقط اما الأعمدة التي اضفتها لا يقوم بالفلتره
كيف احل المشكلة لو سمحتم

(16-04-2023, 10:14 AM)chers0vsky كتب : [ -> ]السلام عليكم،
ممكن مساعدة في حل مشكلة ، عندي dbgrid يعرض معلومات من جدولين ( قمت باضافة معلومات الجدول الثاني باستخدام lookup )
و عندي زر بحث يعتمد على قيم radiongroup لاختيار عمود البحث،
الكود المستخدم في الزر هو

كود :
var x:string[20]; begin case RadioGroup1.ItemIndex of 0:x:= 'Num_Emp'; 1:x:= 'Prenom_E'; 2:x:= 'name'; 4:x:= 'Nom_E'; end; adotable1.Filter:=x+'='''+edit1.text+''''; adotable1.Filtered:=true;

لكن عند البحث يقوم بفلترة القيم حسب اعمدة الجدول الاول فقط اما الأعمدة التي اضفتها لا يقوم بالفلتره
كيف احل المشكلة لو سمحتم

وعليك السلام
المشكل هو أنك أين تضع هذا الكود ؟ ، في حالتك تضعه في RadioGroup1 و تضعه في edit1

الكود اضعه في button مثلا اختار الاسم او اللقب او الولاية من radiogroup ثم اضغط على الزر للفلترة

(17-04-2023, 08:04 AM)chers0vsky كتب : [ -> ]الكود اضعه في button مثلا اختار الاسم او اللقب او الولاية من radiogroup ثم اضغط على الزر للفلترة

على السريع ، جرب هذا

كود :
var x:string[20];
begin

    case RadioGroup1.ItemIndex of
        0:x:= 'Num_Emp = ';
        1:x:= 'Prenom_E = ';
        2:x:= 'name = ';
        3:x:= 'Nom_E = ';

    end;

    adotable1.Filtered:=false;
    adotable1.Filter:= x + QuotedStr(Edit1.text);
    adotable1.Filtered:=true;

chers0vsky

larbiparadox

chers0vsky

larbiparadox