[EMADSSS]

(01-04-20, 03:36 PM)سامي محمد كتب : اضف الليست بكس داخل شرط البحث ليكون الشكر النهائي هكذا

كود :

    GgDataGridView.DataSource = Nothing
        ListBox1.DataSource = Nothing
        GgDataGridView.Rows.Clear()
        ListBox1.Items.Clear()
        Dim N As Integer
        Dim Txt As String = Nothing
        For Each x As String In TextBox9.Text
            x = Regex.Replace(x, "[إأآا]", "[إأآا]")
            x = Regex.Replace(x, "[هة]", "[هة]")
            x = Regex.Replace(x, "[وؤ]", "[وؤ]")
            x = Regex.Replace(x, "[يى]", "[يى]")
            Txt &= x
        Next
        For Each x As DataRow In EeeeDataSet.gg.Rows
            If Regex.IsMatch(x(1), "^" & Txt) = True Then
                GgDataGridView.Rows.Add()
                GgDataGridView(0, N).Value = x(0)
                GgDataGridView(1, N).Value = x(1)
                GgDataGridView(2, N).Value = x(2)
                ListBox1.Items.Add(x(1))
                N += 1
            End If
        Next

شكرا اخي الكريم كلك ذوق الله يعطيك العافي
عندي سؤال بدي عذبك هلق لو كانت عملية البحث هذه فقط ضمن الليسيت بوكس وبدون الداتا كريت قيو  مو افضل لان نتيجة الفلترة في الليست بوكس تلقائيا النتيجة تضهر في الداتا كريت قيو وشكرا لك مرة أخرى