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

نسخة كاملة : سؤال حول MSFlexGrid1
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لديا MSFlexGrid1 به بيانات و اريد البحث عن المعلومات و عرضها في التكست بوكس
اريد كود البحث من فضلكم وجزاكم الله كل الخير
ممكن لو انت مستخدم قاعدة البيانات 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
انا استعمل الحفظ بدون قاعدة بيانات ( الحفظ مباشرة في MSFlexGrid1 ) ان امكن من فضلكم
السلام عليكم

- إذا كان قصدك إنك تبحث عن نص موجود في عمود معين في أداة ال 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 "لم يتم العثور على نتيجة"
قصدي البحث عن نص موجود في عمود معين في أداة ال MSFlexGrid1 ، وليكن الاسم و اللقب ونقله الى ال text1 و text2 الموجودة في نفس الفورم
كما قال الاخ vb_coder

MSFlexGrid1.TextMatrix(I,0)

بأمكانك تغير الكود 0 او 1 او 2 حسب ترتيب العمود
شكرا لكم
لديا MSFlexGrid1 يحتوي على 14 عمود و1000 صف
لهذا اريد كود البحث في MSFlexGrid1 وعرضها تلك البيانات حسب ما اختار انا وعرضها في text1 و text2 وليكن الاسم فيtext1 واللقب في text2
وشكرا مسبقا