كيفية جلب اسم الـbindingsource

السلام عليكم

بحثت كثيرا عن كود او فكرة كود ييحث في قاعدة البيانات كلها ولم اجد لذا حاولت تطوير فكرتي الخاصة

قمت بجمع جميع الـbindingsource في فورم واحد وجمعت جميع الفورمات في فورم واحد كل ادوات فورم في panel لوحدها وجعلتها كلها مخفية لا يظهر الpanel الا اذا كان نتيجة البحث في الجدول المرتبط بها ايجابية

ولكي تتضح الصورة اليكم الكود

   Dim s As String
        Dim l As Integer
        Dim f() As Control
        Dim p As Panel


        For Each ctrl In Me.Controls
            If TypeOf ctrl Is BindingSource Then
                CType(ctrl, BindingSource).Filter = "NAME LIKE '" & TextBox1.Text & "%'"
                If CType(ctrl, BindingSource).Count > 0 Then
                    'للاسف الخاصية name لا يمكن الدخول اليها 
                    s = CType(ctrl, BindingSource).name
                    l = s.Length
                    'الرقم 13 هو عدد الحروف في كلمة bindingsurce 
                    l = l - 13
                    'وبعد ذلك ناخذ الكلمة المتبقية من s
                    s = Mid(s, 1, l)
                    'نضيفها الى كلمة panel فتشكل اسم البانل الذي فيه البيانات المتعلقة بالجدول 
                    f = Controls.Find(s + "panel", True)
                    p = f(0)
                    p.Show()
                    Exit For


                End If

            End If
        Next

المشكلة ان الخاصية Name لا يمكن استخدامها .

ارجو ان تكون وصلت الفكرة.

كيفية جلب اسم الـbindingsource

مواضيع مشابهة