اخفاء الأعمدة في الطباعة

الامر سهل اخي عليك ان تضع شرط فقط

واكواد تتحكم من خلالها بالمكونات

اذا كان هناك وقت سوف اعد لك مثلا

سلام عليكم شكرا لك اخي علي

الأمر سهل كما تقول إن شاء الله يكون سهل .

لكن المشكلة اخفاء عمود او ربما اعمدة ورص جميع الأعمدة الأخر صعبة نوع ما

انا عملت استعلام يكشف عن العمود به قيمة ام لا وبعدها لايضهر اسم العمود في التقرير

لكن المشكلة ليس في عمود فقط وكما قلت ربما تكون اعمدة اخرى متفرقة تكون قيمتها فارغة فلبد من اخفائها يعني

ربما نخفي العمود الأول والثاني والرابع والسابع مثلا حسب الأعمدة التي تكون فارغة

وهذا مثال

ليكشف عن العمود الفارغ وبعدها يكون الأخفاء من التقرير اريد المساعدة بحل افضل اوبترقية هذا المثال او بحل اخر

يكون فعال وبدون اخطاء فلا تبخلو علينا اخوتي في التعلم منكم وبارك الله فيكم جميعا

 begin
with QEnba2 do
  begin
close;
SQL.Clear;
SQL.Add('Select * from TRITEM  Where (TaIEP <>"")');
SQL.Add('and');
SQL.Add('AN = "'+DM.TAneAn.Text+'"');
SQL.Add('and');
SQL.Add(' Matr =  "'+DM.TMondvMatr.Text+'"');
Open;

IF QEnba2.RecordCount>0 then
QRDBText34.Enabled:=True else
IF QEnba2.RecordCount=0 then
QRDBText34.Enabled:=False;
end;

حسننا اخي ياسين سادلك على الطريقة التي تسمح لك بذلك

اظن ان لكل مكون QRDBText خاصية Left تستطيع ان تتحكم بها من حيث مكان المكون

امااذا كانت تستعمل مكون QRShape بنفس الطريقة تستطيع نقله الى مكان اخر

وللتحكم في اخفائه عليك ان تجعل الخاصية Pen ومن ثم Color الى اللون clWhite

اتمنى لك التوفيق