اذهب الي المحتوي
أوفيسنا

تعديل بسيط على اداة الشجرة (tree view)


الحلبي

الردود الموصى بها

الاخوة والاخوات السلام عليكم

وجدت احد الامثلة على اداة الشجرة   (tree view) وهي مرفقة لكم 

ارغب تكرما منكم

عند الضغط علي الشجرة علي كلمة  Western Digital 

تظهر كلمة هاردات فقط في الحقل المسمي lblPath بدون كلمة Western Digital 

وكدلك عند الضغط علي كلمة HP 

تظهر كلمة طابعات فقط  في الحقل lblPath بدون كلمة HP 

جزاكم الله خيرا 

شجرة1.rar

رابط هذا التعليق
شارك

الغالي / ابو خليل  بيض الله وجهك  وجزاك الله خير علي ما تقدمه من مساعدات لنا

قمت بالتغير كما اشارت

ولكن اعطاني اسم (الابن) وانا اريد العكس بان يعطيني اسم الاب 

كلمة (node) تعطي اسم الصنف وانا اريد ان يعطيني اسم الاب

بمعني:

تجد عند الضغط علي كلمة " هاردات " مثلا يظهر لي الاصناف

وعند الضغط علي اول صنف كلمة"  Western Digital   يظهر في حقل   lblPath  الموجود في النمودج  كلمة Wstern Digital/ هاردات

انا اريد ان تظهر كلمة هادرات فقط في  lblPath  بدون اسم الصنف

جزاك الله خيرا

 

رابط هذا التعليق
شارك

الطلب غريب  نوعا

المفترض كل عقدة  ولها اسمها

تفضل  حسب طلبك توضع في حدث النقر على العقد

Dim v As Integer
Dim i As String
i = Node.FullPath
v = Mid(Node.Key, 2, 1)
If Mid(Node.Key, 1, 1) = "s" Then
lblPath.Caption = TreeView2.Nodes.Item(v)
Else
lblPath.Caption = Left(i, InStr(i, "-") - 1)
End If

لاحظ اني غيرت اسم العقدة الابن من اجل التعرف على الأب

شجرة2.rar

رابط هذا التعليق
شارك

الاستاد / ابو خليل                       كرمك الله وعافاك بالصحة

قمت بالتغيرات كما اشرت سيادكم  ولكن لم اصل للحل وطبعا التقصير من عندي

ولكن اتمني بان يتسع صدرك لي لاني عرفت من مشاركاتك انك حضرتك لا تحب الكلام الكتير وتحب الاختصار

ارفقت لكم البرنامج الاصلي الدي اعمل عليه وهو عبارة عن اسماء عملاء مثل KWAIT ENERGY  ـــ  PERTODARA ــ PETROGULF تجدهم في الجدول " CUSTOMERNAME"

لكل عميل رقم كود خاص به وهو  CUSTOMERID

المطلوب باختصار ان عندما اضغط علي الشجرة علي كلمة REQUEST  يفتح في النمودج الفرعي "F2" النموج الخاص به المسمي "REQUEST" بنفس اسم العميل

وعندما اضغط في الشجرة علي كلمة  COUNT  يفتح النمودج الفرعي النمودج الخاص به و اسمه  BAT

وعملت حقل غير منضم اسمه Z  لكي يجلب لي كود العميل وبه اربط الفرعي بالرئيسي (ربط الحقول الرئيسة والحقول التابعة)

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

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

لكل عميل نمودج به مثلا النمودج المسمي  REQUEST يوضح اسماء الاصناف وبيانات طلب العميل والنمودج  BAT  يوضح اسعار طلب العميل

المطلوب اخيرا  هو عند الضغط علي الشجرة للأبن عند كلمة " REQUEST"       الحقل الغير منضم (F2)  يجلب كود العميل الخاص به 

عند الضغط علي KWAIT ENERGY   يظهر في الحقل Z  كود العميل الخاص به 13

عند الضغط علي   PERTODARA       يظهر في الحق " Z " كود العميل الخاص به  وهو رقم 18

اسف اسف اسف لك الله يعينك علينا    

لك كل احترام وتقدير 

TREE CUSTOMER.rar

رابط هذا التعليق
شارك

السلام عليكم

اخوي حلبي  تفاجأت عندما نزلت المرفق انه على اصدار احدث  وهذا مالا املكه في جهازي

فنقلته الى جهاز آخر  ثم نسخت منه الجداول والوحدات النمطية الخاصة بالنموذج

يعني عمليات قيسرية حتى لا يتعسر الاخراج :imsorry:

الآن في المثال المرفق ستجد مسميات الحقول نفسها

كل ما عليك هو نسخ كامل ما تجده في محرر الفيجوال  وتلصقها في برنامجك

كان بودي اكمال الربط بين النماذج ولكني اراعي انتظارك واعتقد انها لن تصعب عليك

 

شجرة4.rar

رابط هذا التعليق
شارك

اخي العبقري / ابو خليل  بيض الله وجهك وزادك من علمه 

ما هدا الحل العبقري كلمة خبير اكسس لا تكفي بل تستحق كلمة عالم اكسس (بكسر اللام)  انا لا ابالغ في كلامي 

انا اري امامي شخصية عبقرية واسلوب في الكلام راقي يحوي في ثناياه ادب واحترام ورقي 

ادعو كل من يقرأ كلامي هدا ان يعرف شيئ واحد فقط      مثل هده الشخصيات ياجماعة الخير يجب ان نحافظ عليها 

أنظر كيف الأخ الجليل / ابو خليل يتأسف بطريقة راقية علي انه كان يتمني ان يكمل الموضوع ولكن لعدم وجود نفس الاصدار عنده فهو يتأسف  هدا غير موجود في الزمن هدا إلا قليل وما رحم ربي

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

يعجز لساني عن التعبير وادعو ربي ان يديم عليك الصحة والعافية والعلم ويجعله في ميزان حسناتك ان شاء الله ويبارك في اهلك واسرتك ويرحم والديك في الدنيا والآخره

لك كل احترام وتقدير علي اسلوبك الجميل في الحديث

اخيك / حلبي

رابط هذا التعليق
شارك

 آمين ولك بمثل ما دعوت لنا
 اخي الحبيب لقد اجزلت في المكافأة  جزاك الله خيرا  وانا اعلم ان الكثير  هنا افضل  مني علما وأدبا  ، ولكني وفقت  في العثور على الحل في غفلة منهم  حيث لم يكن  في ساحة الموضوع منافس :smile:

الحمد لله على تمام فضله

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information