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

السلام عليكم ورحمة الله تعالى وبركاته
اخواني لقد استعملت هذا الكود لإخفاء memo.text وفق شرط معين لكن لم يتم اخفاءه
كيف يمكن اخفاءه
الكود الذي استعملته هو
بعد التصريح

(09-12-2020, 06:33 PM)medreg كتب : [ -> ]السلام عليكم ورحمة الله تعالى وبركاته
اخواني لقد استعملت هذا الكود لإخفاء memo.text وفق شرط معين لكن لم يتم اخفاءه
كيف يمكن اخفاءه
الكود الذي استعملته هو
بعد التصريح

كود :

MemDt:=TfrxMemoView(frxRptDec_01.FindObject('Memo25')); If table2.fieldbyname('Dt_Debit').asdatetime<>Null then MemDt.Memo.text:=formatdatetime('yyyy-mm-dd',table2.fieldbyname('Dt_Debit').asdatetime) else MemDt.visible:=false;

وعليكم السلام ورحمة الله تعالى وبركاته

الكود صحيح و لكن أين وضعته

procedure TFrm_Menu.frxReport1BeforePrint(Sender: TfrxReportComponent);
begin
MemDt:=TfrxMemoView(frxReport1.FindObject('Memo25'));
If table2.fieldbyname('Dt_Debit').asdatetime<>Null then
MemDt.Memo.text:=formatdatetime('yyyy-mm-dd',table2.fieldbyname('Dt_Debit').asdatetime) else MemDt.visible:=false;
وضعت الكود في هذا المكان
end;

ضعه في frxReport1 في الحدث GetValue

السلام عليكم
قم بتغيير القيمة null الى 0
و اتركه في مكانه BeforePrint

بارك الله فيكم وجزاكم الله عنا كل خير