13-03-13, 10:33 AM
السلام عليكم
- أهلا بك في المنتدى . بالنسبه لطلبك أعتقد أنك تقصد أداة MSFlexGrid . ولفترض أن عمود الإسم هو العمود الأول لذلك سيكون ترتيبه هو صفر حيث أن ترتيب الأعمدة يبدأ من الصفر . ولنفترض أنه يوجد صف لعناوين الأعمدة . لذلك سيكون الكود الذي تريده كالتالي :-
Dim I As Integer
- أهلا بك في المنتدى . بالنسبه لطلبك أعتقد أنك تقصد أداة 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