تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
فضلاً آمل المساعدة فى كود البحث خاصة Mshflixgrid.
#1
السلام عليكم ورحمة الله وبركاته

اخوانى الاعزاء

فضلاً آمل المساعدة فى كود البحث خاصة Mshflixgrid.

مرفق مثال آمل التعديل عليه

وكل عام وانتم بخير

تقبل الله منكم صيامكم وقيامكم

رمضان كريم


الملفات المرفقة
.rar   king65.rar (الحجم : 31.83 ك ب / التحميلات : 79)
الرد }}}
تم الشكر بواسطة:
#2
ده الكود المستخدم للبحث
PHP كود :
Private Sub cmdSearch_Click()
Dim target_name As String
Dim r 
As Integer

    
' Get the name.
    target_name = InputBox("Name", "Name", "")
    If Len(target_name) = 0 Then Exit Sub

    ' 
Search for the nameskipping the column heading row.
    
target_name LCase$(target_name)
    For 
1 To Grid.Rows 1
        
If LCase$(Grid.TextMatrix(r0)) = _
            target_name Then
            
' We found the target. Select this row.
            Grid.Row = r
            Grid.RowSel = r
            Grid.Col = 0
            Grid.ColSel = Grid.Cols - 1

            ' 
Make the row visible.
            
Grid.TopRow r
            
Exit Sub
        End 
If
    
Next r

    
' We didn't find it.
    
Beep
End Sub

لا ادرى اين المشكلة 
!!!!!!!!! 


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#3
وده كود تانى لم يفلح ايضا معى
PHP كود :
Private Sub Command4_Click()

    
With Grid
        Dim row 
As Integer: For row 1 To .Rows 1
            
If InStr(.TextMatrix(row1), Me.Text7.Text) > 0 Then
                
.FocusRect flexFocusNone
                
.SelectionMode flexSelectionByRow
                
.row row
                
.Col = .Cols 1
                
.ColSel 1
                
.TopRow IIf(row 1row 1row)
                Exit For
            
End If
        
Next
    End With

End Sub
ارجو المساعدة 
... شاكرا مقدما 


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#4
البحث عن طريق الادارات .....
الرد }}}
تم الشكر بواسطة:
#5
Private Sub Text1_Change()
Text1.BackColor = vbWhite
Dim ft
On Error GoTo 11:
prevbookmark = Adodc1.Recordset.Bookmark
ft = Text1.Text
If ft = "" Then
Adodc1.Recordset.Filter = adFilterNone
Else
Adodc1.Recordset.Filter = " country_name like '" & ft & "%'"
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.Bookmark = prevbookmark
End If
End If
Exit Sub
11:
Adodc1.Recordset.Filter = adFilterNone
Text1.BackColor = vbYellow
End Sub

حسب علمي تريد عمل بحث في التكست بوكس من اول حروف وظهور الجمل في قامة اللست
قل إني نهيت أن أعبد الذين تدعون من دون الله
لما جاءني البينات من ربي وأمرت أن أسلم لرب العالمين
الرد }}}
تم الشكر بواسطة: abulayth , king2512010
#6
بارك الله فيك

يعطيك العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [vb6.0] البحث في القائمة المنسدلة haitham farooq 0 158 31-12-23, 03:06 PM
آخر رد: haitham farooq
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 387 19-11-23, 10:49 PM
آخر رد: Microformt
  تلوين صف فى MSHFlixGrid mhareek 12 960 31-10-23, 01:52 PM
آخر رد: mhareek
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
Question [vb6.0] كيف استخدم هذه الخوارزمية في برنامجي نامل المساعدة العاجله؟ Microformt 0 224 04-10-23, 11:44 PM
آخر رد: Microformt
  اخوانى الاحباب ارجو المساعدة فى كود النسخ واللصق mhareek 1 404 15-07-23, 02:28 PM
آخر رد: Amir_Alzubidy
  [vb6.0] المساعدة في تشغيل استعلام الحاقي في تبويب الاستعلامات في قاعدة بيانات اكسيس من واجهة وادي العوضي 6 601 09-07-23, 12:44 AM
آخر رد: وادي العوضي
  البحث بين السنوات Abdellah 2 446 16-06-23, 11:27 AM
آخر رد: Abdellah
  سؤال عن البحث بجدولين مختلفين ziadshhab 1 346 03-06-23, 10:35 PM
آخر رد: ahmedabdelaliem
  [سؤال] Mshflixgrid Abdellah 4 442 14-05-23, 06:49 PM
آخر رد: Abdellah

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


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