[abdel.halim]

السلام عليكم ورحمة الله 
الرجاء المساعده فى ربط مربع كومبوبوكس بالبيانات 


اولا تم عمل صفحه خاصه بحفظ بيانات ما

وتم عمل كومبوبوكس اريد تحميل البيانات من صفحه الداتا الى مربع الكومبوبوكس بدون استخدام اي زر "تلقائيا" بحيث ا\ا تم اضافه بيانات جديدة فى صفحه البيانات تحمل تلقئيا فى الكمبوبوكس 

حيث تم كتابه الكود التالي فى اللود الخاص بالفورم الموجود به الكمبوبوكس 


 Load_Groups()
        ItemGroup.DataSource = GroupsDT
        ItemGroup.DisplayMember = "GroupName"
        ItemGroup.ValueMember = "GroupName"

[حريف برمجة]

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

نفس الكود ضعه بعد الحفظ والتعديل والحذف .

[abdel.halim]

(10-10-17, 06:35 PM)حريف برمجة كتب : وعليكم السلام ورحمة الله وبركاته

نفس الكود ضعه بعد الحفظ والتعديل والحذف .

تم وضع نفس الكود بعد كود الحفظ بالنسبه للحفظ والتعديل والحذف لكن لايوجد نتيجة

[حريف برمجة]

ارفع مثالك لتعديله .

[abdel.halim]

(10-10-17, 08:21 PM)حريف برمجة كتب : ارفع مثالك لتعديله .

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

كود :

Public Class Items
   ' كود إضافة الاصناف
   Public Sub newitems()
       Code_Items()
       ItemBarcode.Text = ""
       ItemCompany.Text = ""
       ItemDate.Value = Now.Date
       ItemEarn.Text = 0
       ItemGroup.Text = ""
       ItemID.Text = mynewIDItems
       ItemLimit.Text = 0
       ItemMaxDiscount.Text = 0
       ItemName.Text = ""
       ItemPlace.Text = ""
       ItemPrice.Text = 0
       ItemQty.Text = 0
       ItemTime.Value = Now
       ItemUser.Text = ""
   End Sub
   Private Sub Items_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       ' تحميل قؤائم combobox
       ' قائمة المجموعات
       Load_Groups()
       ItemGroup.DataSource = GroupsDT
       ItemGroup.DisplayMember = "GroupName"
       ItemGroup.ValueMember = "GroupName"
       '==================================
       ' قائمة الشركات
       Load_companies()
       ItemCompany.DataSource = companiesDT
       ItemCompany.DisplayMember = "CompanyName"
       ItemCompany.ValueMember = "CompanyID"
       '==================================
       'قائمة المخازن
       Load_places()
       ItemPlace.DataSource = placesDT
       ItemPlace.DisplayMember = "PlaceName"
       ItemPlace.ValueMember = "placeID"
       'تحميل جدول الأصناف
       Load_Items()
       DataGridView1.DataSource = ItemsDT
       newitems()
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       newitems()
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       ' كود الحفظ الاصناف
       ItemsDT.Rows.Add()
       Dim last As Integer = ItemsDT.Rows.Count - 1
       ItemsDT.Rows(last).Item("ItemBarcode") = ItemBarcode.Text
       ItemsDT.Rows(last).Item("ItemCompany") = ItemCompany.Text
       ItemsDT.Rows(last).Item("ItemDate") = ItemDate.Value
       ItemsDT.Rows(last).Item("ItemEarn") = ItemEarn.Text
       ItemsDT.Rows(last).Item("ItemGroup") = ItemGroup.Text
       ItemsDT.Rows(last).Item("ItemID") = ItemID.Text
       ItemsDT.Rows(last).Item("ItemLimit") = ItemLimit.Text
       ItemsDT.Rows(last).Item("ItemMaxDiscount") = ItemMaxDiscount.Text
       ItemsDT.Rows(last).Item("ItemName") = ItemName.Text
       ItemsDT.Rows(last).Item("ItemPlace") = ItemPlace.Text
       ItemsDT.Rows(last).Item("ItemPrice") = ItemPrice.Text
       ItemsDT.Rows(last).Item("ItemQty") = ItemQty.Text
       ItemsDT.Rows(last).Item("ItemTime") = ItemTime.Value
       ItemsDT.Rows(last).Item("ItemUser") = ItemUser.Text

       Dim Save As New OleDbCommandBuilder(ItemsDA)
       ItemsDA.Update(ItemsDT)
       ItemsDT.AcceptChanges()
       MsgBox("تم حفظ بيانات الصنف بنجاح")
       Load_Items()
       newitems()
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       'كود تعديل الاصناف
       Dim pos As Integer = BindingContext(ItemsDT).Position
       ItemsDT.Rows(pos).Item("ItemBarcode") = ItemBarcode.Text
       ItemsDT.Rows(pos).Item("ItemEarn") = ItemEarn.Text
       ItemsDT.Rows(pos).Item("ItemDate") = ItemDate.Value
       ItemsDT.Rows(pos).Item("ItemID") = ItemID.Text
       ItemsDT.Rows(pos).Item("ItemName") = ItemName.Text
       ItemsDT.Rows(pos).Item("ItemGroup") = ItemGroup.Text
       ItemsDT.Rows(pos).Item("ItemTime") = ItemTime.Value
       ItemsDT.Rows(pos).Item("ItemLimit") = ItemLimit.Text
       ItemsDT.Rows(pos).Item("ItemUser") = ItemUser.Text
       ItemsDT.Rows(pos).Item("ItemCompany") = ItemCompany.Text
       ItemsDT.Rows(pos).Item("ItemMaxDiscount") = ItemMaxDiscount.Text
       ItemsDT.Rows(pos).Item("ItemPlace") = ItemPlace.Text
       ItemsDT.Rows(pos).Item("ItemPrice") = ItemPrice.Text
       ItemsDT.Rows(pos).Item("ItemQty") = ItemQty.Text

       Dim Save As New OleDbCommandBuilder(ItemsDA)
       ItemsDA.Update(ItemsDT)
       ItemsDT.AcceptChanges()
       MsgBox("تم تعديل البيانات بنجاح")
       Load_Items()
   End Sub

   Private Sub DataGridView1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.SelectionChanged
       Try
           Dim pos As Integer = BindingContext(ItemsDT).Position
           ItemBarcode.Text = ItemsDT.Rows(pos).Item("ItemBarcode")
           ItemCompany.Text = ItemsDT.Rows(pos).Item("ItemCompany")
           ItemDate.Value = ItemsDT.Rows(pos).Item("ItemDate")
           ItemID.Text = ItemsDT.Rows(pos).Item("ItemID")
           ItemName.Text = ItemsDT.Rows(pos).Item("ItemName")
           ItemEarn.Text = ItemsDT.Rows(pos).Item("ItemEarn")
           ItemTime.Value = ItemsDT.Rows(pos).Item("ItemTime")
           ItemGroup.Text = ItemsDT.Rows(pos).Item("ItemGroup")
           ItemUser.Text = ItemsDT.Rows(pos).Item("ItemUser")
           ItemLimit.Text = ItemsDT.Rows(pos).Item("ItemLimit")
           ItemMaxDiscount.Text = ItemsDT.Rows(pos).Item("ItemMaxDiscount")
           ItemPlace.Text = ItemsDT.Rows(pos).Item("ItemPlace")
           ItemPrice.Text = ItemsDT.Rows(pos).Item("ItemPrice")
           ItemQty.Text = ItemsDT.Rows(pos).Item("ItemQty")
       Catch ex As Exception
       End Try
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       ' كود حذف الاصناف
       If MsgBox("هل تريد حذف الصنف؟", MsgBoxStyle.OkCancel, "رسالة تأكيد") = MsgBoxResult.Ok Then
           Dim pos As Integer = BindingContext(ItemsDT).Position
           ItemsDT.Rows(pos).Delete()

           Dim Save As New OleDbCommandBuilder(ItemsDA)
           ItemsDA.Update(ItemsDT)
           ItemsDT.AcceptChanges()
           MsgBox("تم الحذف بنجاح")
           Load_Items()
       Else
       End If
   End Sub

   Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       'كود البحث
       ItemsDT.Clear()
       ItemsDA = New OleDbDataAdapter("select * from Items where ItemName Like'%" & TextBox1.Text & "%'", con)
       ItemsDA.Fill(ItemsDT)
   End Sub
End Class

[حريف برمجة]

الواضح ان الكود ناقص ،،،

اين جمل اسكيوال التي تجلب البيانات للكومبو ،،،

ايضاً اين sub        Load_Groups()

وجميع sub التي تحمل البيانات .

اعمل نسخه من المشروع واحذف جميع الشاشات عدا الشاشة المطلوب تعديلها فقط .. وارفقها هنا وستجد الحل بإذن الله .

[abdel.halim]

(10-10-17, 11:03 PM)حريف برمجة كتب : الواضح ان الكود ناقص ،،،

اين جمل اسكيوال التي تجلب البيانات للكومبو ،،،

ايضاً اين sub        Load_Groups()

وجميع sub التي تحمل البيانات .

اعمل نسخه من المشروع واحذف جميع الشاشات عدا الشاشة المطلوب تعديلها فقط .. وارفقها هنا وستجد الحل بإذن الله .

رابط الملف في 
https://www.mediafire.com/file/mqrhga132...20Chem.rar

البرنامج مبني على قاعده بيانات اكسس

[حريف برمجة]

الآن البرنامج أول ما يشتغل معك يتحمل البيانات في جميع الكمبوبوكس ؟

إذا نعم انسخ الاكواد الموجوده في الفورم لود وضعها في آخر كود الحفظ وآخر كود الحذف وسيعمل معك بإذن الله .

لأن مشروعك شغلته ظهرت اخطاء .

[abdel.halim]

(11-10-17, 07:10 PM)حريف برمجة كتب : الآن البرنامج أول ما يشتغل معك يتحمل البيانات في جميع الكمبوبوكس ؟

إذا نعم انسخ الاكواد الموجوده في الفورم لود وضعها في آخر كود الحفظ وآخر كود الحذف وسيعمل معك بإذن الله .

لأن مشروعك شغلته ظهرت اخطاء .

اولا بشكرك على الاهتمام بموضوعي 
ثانيا انا جربت نفس الطريقة ما اشتغلت 
ثالثا ده ملف البرنامج بالكامل 
ملحوظة ممكن تغير عنوان تحميل البيانات علشان يشتغل معاك اللى في صفحه الكونيكشن 
https://www.mediafire.com/file/mqrhga132...20Chem.rar