[EMADSSS]

(02-04-20, 12:10 AM)EMADSSS كتب :

(01-04-20, 08:53 PM)سامي محمد كتب :

كود :

 ListBox1.DataSource = Nothing
        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
                ListBox1.Items.Add(x(1))
                N += 1
            End If
        Next

في الخدمة

شكرا لك اخي الكريم جازاك الله خيرا

اخي الكريم عم عذبك معي الاكواد التي ارسلتها لي تعمل بشك ممتاز في حال كان الاتصال بقاعدة البيانات مباشراً الله يعطيك العافي
ولكن عندما نقلت الاكواد لبرنامجي الاساسي والمتصل بقاعدة البيانات بشكل غير مباشر عم يعطيني الكود خطأ في هذه الجملة وذلك باسم القاعدة والجدول  رغم انني غيرته

كود :

 For Each x As DataRow In EeeeDataSet.gg.Rows