تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال حول MSFlexGrid1
#1
لديا MSFlexGrid1 به بيانات و اريد البحث عن المعلومات و عرضها في التكست بوكس
اريد كود البحث من فضلكم وجزاكم الله كل الخير
الرد }}}
تم الشكر بواسطة:
#2
ممكن لو انت مستخدم قاعدة البيانات ado

عن طريق الكود

فى حدث التكست مع اضافة بعض تعديلات خاصة بك

On Error Resume Next
If Text2 = "" Then
Me.Adodc1.Refresh
Me.Adodc1.Recordset.MoveLast
Else
Me.Adodc1.Recordset.Filter = " [اسم الحقل] LIKE '" & Me.Text1 & "*' "
End If

Exclamation اعتذر عن الانقطاع  لظروف خاصة 



الرد }}}
تم الشكر بواسطة:
#3
انا استعمل الحفظ بدون قاعدة بيانات ( الحفظ مباشرة في MSFlexGrid1 ) ان امكن من فضلكم
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

- إذا كان قصدك إنك تبحث عن نص موجود في عمود معين في أداة ال MSFlexGrid1 ، وليكن العمود الأول والذي سيكون رقم ترتيبه هو صفر ، ولنفترض أن نص البحث موجود في تكست1 :

كود :
Dim I As Integer

For I = 1 To MSFlexGrid1.Rows -1
IF Trim(Text1.Text) = MSFlexGrid1.TextMatrix(I,0) Then
Msgbox "تم العثور على نتيجة"
Exit Sub
End IF
Next
Msgbox "لم يتم العثور على نتيجة"
الرد }}}
تم الشكر بواسطة:
#5
قصدي البحث عن نص موجود في عمود معين في أداة ال MSFlexGrid1 ، وليكن الاسم و اللقب ونقله الى ال text1 و text2 الموجودة في نفس الفورم
الرد }}}
تم الشكر بواسطة:
#6
كما قال الاخ vb_coder

MSFlexGrid1.TextMatrix(I,0)

بأمكانك تغير الكود 0 او 1 او 2 حسب ترتيب العمود

Exclamation اعتذر عن الانقطاع  لظروف خاصة 



الرد }}}
تم الشكر بواسطة:
#7
شكرا لكم
لديا MSFlexGrid1 يحتوي على 14 عمود و1000 صف
لهذا اريد كود البحث في MSFlexGrid1 وعرضها تلك البيانات حسب ما اختار انا وعرضها في text1 و text2 وليكن الاسم فيtext1 واللقب في text2
وشكرا مسبقا
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم