13-05-13, 03:50 AM
13-05-13, 04:36 AM
ممكن لو انت مستخدم قاعدة البيانات 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
عن طريق الكود
فى حدث التكست مع اضافة بعض تعديلات خاصة بك
On Error Resume Next
If Text2 = "" Then
Me.Adodc1.Refresh
Me.Adodc1.Recordset.MoveLast
Else
Me.Adodc1.Recordset.Filter = " [اسم الحقل] LIKE '" & Me.Text1 & "*' "
End If
13-05-13, 11:17 AM
انا استعمل الحفظ بدون قاعدة بيانات ( الحفظ مباشرة في MSFlexGrid1 ) ان امكن من فضلكم
13-05-13, 04:53 PM
السلام عليكم
- إذا كان قصدك إنك تبحث عن نص موجود في عمود معين في أداة ال MSFlexGrid1 ، وليكن العمود الأول والذي سيكون رقم ترتيبه هو صفر ، ولنفترض أن نص البحث موجود في تكست1 :
- إذا كان قصدك إنك تبحث عن نص موجود في عمود معين في أداة ال 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 "لم يتم العثور على نتيجة"
13-05-13, 09:10 PM
قصدي البحث عن نص موجود في عمود معين في أداة ال MSFlexGrid1 ، وليكن الاسم و اللقب ونقله الى ال text1 و text2 الموجودة في نفس الفورم
13-05-13, 09:30 PM
كما قال الاخ vb_coder
MSFlexGrid1.TextMatrix(I,0)
بأمكانك تغير الكود 0 او 1 او 2 حسب ترتيب العمود
MSFlexGrid1.TextMatrix(I,0)
بأمكانك تغير الكود 0 او 1 او 2 حسب ترتيب العمود
13-05-13, 09:55 PM
شكرا لكم
لديا MSFlexGrid1 يحتوي على 14 عمود و1000 صف
لهذا اريد كود البحث في MSFlexGrid1 وعرضها تلك البيانات حسب ما اختار انا وعرضها في text1 و text2 وليكن الاسم فيtext1 واللقب في text2
وشكرا مسبقا
لديا MSFlexGrid1 يحتوي على 14 عمود و1000 صف
لهذا اريد كود البحث في MSFlexGrid1 وعرضها تلك البيانات حسب ما اختار انا وعرضها في text1 و text2 وليكن الاسم فيtext1 واللقب في text2
وشكرا مسبقا