تحديث البيانات بعد فورم الاضافة

السلام عليكم

انا في انتضار الرد

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

اخي قم بعمل دالة في الفورم الرئيسي وظيفتها تعبئة البيانات في القائمة المنسدلة, فما عليك الا عند اضافة عنصر في فورم الاضافة قم باستدعاء تلك الدالة ليتم تحديث البيانات تلقائيا

السلام عليكم

اخي شكرا على الرد ولكن ممكن ان توضح ذلك

السلام عليكم

انا في انتضار الرد

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

اخي قم بوضع كود تعبئة القائمة في دالة عامة في الفورم الرئيسي, بعد ما تقوم بالاضافه في فورم الاضافه ماعليك الا استدعاءها من هناك

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

اضف زر جديد

وفي داخل الكود للزر اكتب ما يلي

*اذا كنت تستخدم المعالج الكود كتالي

me.TableNameTableadapter.Fill(DataSet_Name.TableName)

*اذا كنت تستخدم الاتصال بالكود كتالي

dim connstr as string = "Connection String to your DataBase Location"
dim conn as new oledbConnection (connstr)
dim dataset1 as new Dataset
dim SQL as string = "Select * From TableName"
dim dat as new oledbDataAdapter(conn,SQL)

هذا هو الكود لطلبك وإن شاء الله توضحلك كل شي

بالتوفيق

شكرا لك اخ عبدالرحمن المرشود

ولكن

ماهو حدث الكومبو بوكس الذي يتم فيه تحديث البيانات ؟؟

ابوخالد العيدروس كتب:

شكرا لك اخ عبدالرحمن المرشود

ولكن

ماهو حدث الكومبو بوكس الذي يتم فيه تحديث البيانات ؟؟

كما ذكر الأستاذ VBHelper قم بعمل دالة منفصلة ثم قم باستدعائها بعد الإضافة أو بعد الخروج من الفورم حسبما تشاء ....

حاولت إرفاق المشروع بعد التعديل ولكن حجمه أكبر من الحد المسموح :

على كل حال قم بإنشاء دالة فرعية ولتسميها LoadData وضع فيها كود جلب البيانات كالتالي :

 Sub loadData()
        conn.Open()
        Dim Str1 As String = "SELECT * FROM depart"
        Adapter = New OleDbDataAdapter(Str1, conn)
        DataSet1.Clear()
        Adapter.Fill(DataSet1, "depart")
        AddressBindingSource = New BindingSource(DataSet1, "depart")
        ComboBox1.DataSource = DataSet1.Tables("depart")
        ComboBox1.DataSource = AddressBindingSource
        ComboBox1.DisplayMember = "dep_name"
        ComboBox1.ValueMember = "dep_id"
        Me.TextBox8.DataBindings.Clear()
        TextBox8.DataBindings.Add("Text", AddressBindingSource, "dep_id")


        conn.Close()

End Sub

ثم عند الضغط على زر العودة لفورم إضافة القسم ، أضف الكود التالي :

 Form1.Show()
        Call Form1.loadData()
        Me.Close()

لاحظ إضافة Dataset1.clear() لكي يقوم بمسح الداتاسيت وتعبئتها من جديد لتجنب تكرار البيانات عند كل إضافة ...

بالتوفيق إن شاء الله