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

السلام عليكم ورحمة الله تعالى وبركاته
لدي اربع حقول في table1
الحقل الاول اسمه : Num
الحقل الاول اسمه : art
الحقل الاول اسمه : Sct
الحقل الاول اسمه : Nom
المطلوب هو
عندما يكون الحقل art فارغ يجعل الحقل Sct فارغ
ملاحطة
يجب ان يجعل الحقل Sct فارغ لكل السجلات الموجودة في الدبيقريد التي يكون فيها الحقل Art فارغ ويترك السجلات الباقية بالقيمة التي تحملها
واقصد بالمسح Clear وليس delete لآنه يجب ان تبقى السجلات في مكانها
لقد حاولت لكن محاولتي تمسح الحقل المقصود في كل السجلات سواءا كانت الحقل Art فارغ او يحمل قيمة اكثر من 0
قاعدة البيانات المستعملة absoulute database والمكونات ABSTable
وجزاكم الله عنا كل خير

اجعل الحقل Sct حقل حسابي وفي حدث CalcFields اكتب مثل هذا

كود :
if Table1.FieldByName('art').Value = '' then

table1.FieldByName('Sct').Value := '' else

باقي الكود حسب الحاجة

بارك الله فيكم

medreg

delphi17

medreg