كود بحث في حقل رقمي

[tahar1983]

السلام عليكم

if edit1.Text <>'' then

begin

. adotable2.filter := 'nom like '+ quotedstr(edit1.Text+ '*');

. adotable2.filtered := true;

  end

  else

.adotable2.Filtered := false;

اين يتم التعديل اذا كان نوع الحقل رقمي وليس text

[larbiparadox]

السلام عليكم

if edit1.Text <>'' then

begin

. adotable2.filter := 'nom like '+ quotedstr(edit1.Text+ '*');

. adotable2.filtered := true;

  end

  else

.adotable2.Filtered := false;

اين يتم التعديل اذا كان نوع الحقل رقمي وليس text

وعليك السلام

غير  like  بـ =  

وحذف +'*'

[tahar1983]

السلام عليكم

if edit1.Text <>'' then

begin

. adotable2.filter := 'nom like '+ quotedstr(edit1.Text+ '*');

. adotable2.filtered := true;

  end

  else

.adotable2.Filtered := false;

اين يتم التعديل اذا كان نوع الحقل رقمي وليس text

وعليك السلام

غير  like  بـ =  

وحذف +'*'




  if edit3.Text <>'' then
begin
. adotable1.filter := 'iddbas = '+ quotedstr(edit3.Text')
form1. adotable1.filtered := true;
  end
  else
  .adotable1.Filtered := false;

لم يعمل الكود

if edit3.Text <>'' then
begin
. adotable1.filter := 'iddbas = '+ quotedstr(edit3.Text')
form1. adotable1.filtered := true;
end
else
.adotable1.Filtered := false;

[larbiparadox]

السلام عليكم

if edit1.Text <>'' then

begin

. adotable2.filter := 'nom like '+ quotedstr(edit1.Text+ '*');

. adotable2.filtered := true;

  end

  else

.adotable2.Filtered := false;

اين يتم التعديل اذا كان نوع الحقل رقمي وليس text

وعليك السلام

غير  like  بـ =  

وحذف +'*'




  if edit3.Text <>'' then
begin
. adotable1.filter := 'iddbas = '+ quotedstr(edit3.Text')
form1. adotable1.filtered := true;
  end
  else
  .adotable1.Filtered := false;

لم يعمل الكود

if edit3.Text <>'' then
begin
. adotable1.filter := 'iddbas = '+ quotedstr(edit3.Text')
form1. adotable1.filtered := true;
  end
  else
  .adotable1.Filtered := false;

  Capture d’écran 2022-04-11 221506.png (الحجم : 8.06 ك ب / التحميلات : 15)

لا أعلم هذه أخطاء أو تنسيق النص فقط

يرجى وضع مثال بسيط ليتم تصحيحه

[Ndagor]

لاحاجة ل quotedstr مع الارقام و ان كنت تريد مجال فاستعمل < او ¨>,,

كود :

adotable2.filter := 'nom = '+ edit1.Text

[Lam.Abdeldjalil]

السلام عليكم
إضافة لما ذكره الأخ larbiparadox
للحقل الرقمي قم بحذف quotedstr

---
Ndagor لم أرى ردك

[tahar1983]

السلام عليكم
إضافة لما ذكره الأخ larbiparadox
للحقل الرقمي قم بحذف quotedstr

---
Ndagor لم أرى ردك

ممكن ارفقاق مثال لان التعديل لم ينجح

[tahar1983]

لقد نجح الامر
شكرا جزيلا لكم 
ودمت في خدمة المبتدئين