منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال حول MSFlexGrid1 - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : سؤال حول MSFlexGrid1 (/showthread.php?tid=8868)



سؤال حول MSFlexGrid1 - abde6726 - 13-05-13

لديا MSFlexGrid1 به بيانات و اريد البحث عن المعلومات و عرضها في التكست بوكس
اريد كود البحث من فضلكم وجزاكم الله كل الخير


سؤال حول MSFlexGrid1 - elhon.tec - 13-05-13

ممكن لو انت مستخدم قاعدة البيانات 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 - abde6726 - 13-05-13

انا استعمل الحفظ بدون قاعدة بيانات ( الحفظ مباشرة في MSFlexGrid1 ) ان امكن من فضلكم


سؤال حول MSFlexGrid1 - VB_Coder - 13-05-13

السلام عليكم

- إذا كان قصدك إنك تبحث عن نص موجود في عمود معين في أداة ال 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 - abde6726 - 13-05-13

قصدي البحث عن نص موجود في عمود معين في أداة ال MSFlexGrid1 ، وليكن الاسم و اللقب ونقله الى ال text1 و text2 الموجودة في نفس الفورم


سؤال حول MSFlexGrid1 - elhon.tec - 13-05-13

كما قال الاخ vb_coder

MSFlexGrid1.TextMatrix(I,0)

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


سؤال حول MSFlexGrid1 - abde6726 - 13-05-13

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