+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : كيفية منع التكرار فى اداة Flexcell grid ؟ (/showthread.php?tid=7943)
كيفية منع التكرار فى اداة Flexcell grid ؟ - gedo - 13-03-13
السلام عليكم ورحمة الله وبركاته
كيف حالكم ياشباب اتمنى ان تكونوا بخير ان شاء الله
الرجاء كيف يمكننى منع التكرار فى اداة Flexcell grid وهذا هو الكود الذى استخدمة لاضافة سطر جديد
كود :
Grid1.AddItem Text1.textاريد تعديل هذا الكود بيحث يتحقق بان الاسم غير موجود فى الجريد فيقوم باضافتة واذا كان موجودا فيقوم باظهار رسالة تفيد انه موجود ولا يمكن اضافتة مرة اخرى
انتظر مساعدتكم
وشكرا لكم وبارك الله فيكم جميعا
كيفية منع التكرار فى اداة Flexcell grid ؟ - VB_Coder - 13-03-13
السلام عليكم
- أهلا بك في المنتدى . بالنسبه لطلبك أعتقد أنك تقصد أداة 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كيفية منع التكرار فى اداة Flexcell grid ؟ - gedo - 13-03-13
السلام عليكم ورحمة الله وبركاته
كنت اقصد اداة شبة اداة MSFlexGrid والحمد لله الطريقة ايضا نفعت معاها
شكرا لك وبارك الله فيك ورزقك من واسع علمة
كيفية منع التكرار فى اداة Flexcell grid ؟ - kader30 - 14-03-13
مشكورين يا جماعة