[aftfm]

السلام عليكم ورحمة الله وبركاته

البحث في بيانات DataGridView1 حسب المكتوب في اداة RichTextBox من بداية النص حتى يجد (المسافة) فإن وجد الكلمة وضعها في DataGridView2 وإن لم يجدها يقتطع جزء منها ويبحث عنه في DataGridView1 فإن وجدها يضعها في DataGridView2 ومن ثم يبحث عن بقية الكلمة وتستمر العملية مع بقية النص

علماً أن في ا ل DataGridView1  مجموعة من الاحرف والاقام والكلمات

هذا الكود يظهر بيانات DataGridView1 

كود :

   Dim temp As Integer = 0
        For i As Integer = 0 To DataGridView1.RowCount - 2
            For j As Integer = 0 To DataGridView1.ColumnCount - 2
                If DataGridView1.Rows(i).Cells(j).Value.ToString = Me.RichTextBox1.Text Then
                    MsgBox("Item found")
                    temp = 1
                End If
            Next
        Next
        If temp = 0 Then
            MsgBox("Item not found")
        End If

[messry]

(08-04-21, 09:15 PM)aftfm كتب : السلام عليكم ورحمة الله وبركاته

البحث في بيانات DataGridView1 حسب المكتوب في اداة RichTextBox من بداية النص حتى يجد (المسافة) فإن وجد الكلمة وضعها في DataGridView2 وإن لم يجدها يقتطع جزء منها ويبحث عنه في DataGridView1 فإن وجدها يضعها في DataGridView2 ومن ثم يبحث عن بقية الكلمة وتستمر العملية مع بقية النص

علماً أن في ا ل DataGridView1  مجموعة من الاحرف والاقام والكلمات

هذا الكود يظهر بيانات DataGridView1 

كود :

   Dim temp As Integer = 0
        For i As Integer = 0 To DataGridView1.RowCount - 2
            For j As Integer = 0 To DataGridView1.ColumnCount - 2
                If DataGridView1.Rows(i).Cells(j).Value.ToString = Me.RichTextBox1.Text Then
                    MsgBox("Item found")
                    temp = 1
                End If
            Next
        Next
        If temp = 0 Then
            MsgBox("Item not found")
        End If

وعليكم السلام ورحمة الله وبركاته

حاول استبدال  = Me.RichTextBox1.Text Then
بـ  

كود :

= '%" & Me.RichTextBox1.Text & "%' Then

[aftfm]

الف شكر اخي الكريم messry

لكني اريد بدل MsgBox("Item found")

يتم وضع النص او جزء منه او بديته حسب ما يجدة في الجريد 1
يتم وضعه في الجريد 2 ويكمل في الجزء الباقي من الكلمة حتى تنتهي ومن ثم ينتقل الى الكلمة التي تليها
وهكذا حتى ينتهي النص

ولكن حسب ا لموجود في الجريد 1

[messry]

(08-04-21, 10:14 PM)aftfm كتب :

كود :

           DataGridView2.Rows.Add(DataGridView1.Rows(i).Cells(j).Value.ToString)

[aftfm]

الف شكر على ردك
 لكن الكود

كود :

  DataGridView2.Rows.Add(DataGridView1.Rows(i).Cells(j).Value.ToString)

 يبحث عن نص كامل فإن لم يجدة لا يقوم بتجزئته

كما هو موضح في الصور 

وعند وجود حرف مثلا كحرف ب يقوم بتكرار الحرف إن وجد أكثر من حرف (ب) والمطلوب إذا وجد الحرف او النص في أي سطر من الجريد يكتفي به وينتقل الى بقية النص

[messry]

(09-04-21, 03:27 PM)aftfm كتب : الف شكر على ردك
 لكن الكود

كود :

  DataGridView2.Rows.Add(DataGridView1.Rows(i).Cells(j).Value.ToString)

 يبحث عن نص كامل فإن لم يجدة لا يقوم بتجزئته

كما هو موضح في الصور 

وعند وجود حرف مثلا كحرف ب يقوم بتكرار الحرف إن وجد أكثر من حرف (ب) والمطلوب إذا وجد الحرف او النص في أي سطر من الجريد يكتفي به وينتقل الى بقية النص

الكود المذكور ليس للبحث بل لاضافة الحقل في DataGridView1 الى سطر جديد في DataGridView2 



وهذا الأمر يتم وضعه بدلا من الرسالة التي تظهر                 MsgBox("Item found")