منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيفية منع التكرار فى اداة Flexcell grid ؟

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

كيف حالكم ياشباب اتمنى ان تكونوا بخير ان شاء الله

الرجاء كيف يمكننى منع التكرار فى اداة Flexcell grid وهذا هو الكود الذى استخدمة لاضافة سطر جديد

كود :

Grid1.AddItem  Text1.text

اريد تعديل هذا الكود بيحث يتحقق بان الاسم غير موجود فى الجريد فيقوم باضافتة واذا كان موجودا فيقوم باظهار رسالة تفيد انه موجود ولا يمكن اضافتة مرة اخرى

انتظر مساعدتكم

وشكرا لكم وبارك الله فيكم جميعا

السلام عليكم

- أهلا بك في المنتدى . بالنسبه لطلبك أعتقد أنك تقصد أداة MSFlexGrid . ولفترض أن عمود الإسم هو العمود الأول لذلك سيكون ترتيبه هو صفر حيث أن ترتيب الأعمدة يبدأ من الصفر . ولنفترض أنه يوجد صف لعناوين الأعمدة . لذلك سيكون الكود الذي تريده كالتالي :-

Dim I As Integer

كود :

IF MSFlexGrid1.Rows >1 Then

For I = 1 To MSFlexGrid1.Rows -1

IF Trim$(Text1.Text)=Trim$(MSFlexGrid1.TextMatrix(I,0)) Then

Msgbox "الاسم موجود"

Exit Sub

End IF

Next

MSFlexGrid1.AddItem Trim$(Text1.Text)

End IF

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

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

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

مشكورين يا جماعة

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

gedo

VB_Coder

gedo

kader30