[Marwan9990]

(16-03-17, 11:37 PM)حريف برمجة كتب : اذا ما تعرف الاكواد لكونك مبتدي هذا ليس بعيب ،،، المراد تصمم الفورم بالشكل المطلوب من الادوات وتطلب مطلوبك ستجد الجواب بشكل عاجل ...

اما ننزل ملف ونظيف ادوات ونحذف ادوات ونغير لغة البرمجة من c# إلى vb.net هذا صعب على اللي بيساعدك ومتعب له ايضاً

اسعد الله صباحكك اخي 
قمت بعض التعديلات الي فهمت لها امس 
وعملت مثل ما طلبت مني هذا نموذج جاهز كل شي فيه تمام ميه ميه 
انا فقط محتاج احد يعدل لي على على خيار القسم هو الحين فيه تحديد الموهل والجنسيه 
فقط باقي تحديد هذا موهل وجنسيه في القسم الي انا اختاره مع العلم انه كل شي جاهز 
محتاج لمسه من ايدكم فقط لتعديل على الكود بحيث اني اقدر اعمله على القسم الي انا احدده او اختاره ..

اتوقع والله اعلم انه التعديل لازم يكون فهذا الكود حاولت اغير واضيف بيه ولكني لم انجح ..

كود :

Private Qual As New DataTable()
        Private Natio As New DataTable()
        Private emp As New DataTable()
        Public Sub New()
            InitializeComponent()
            Qual = getData("Select * FRom Qualifications")
            Natio = getData("Select * From Nationalities")
            emp = getData("Select * FRom Query")
            dataGridView1.DataSource = emp
            For Each item In Me.Controls
             If TypeOf item Is GroupBox Then
                 Dim gb As GroupBox = TryCast(item, GroupBox)
                 For Each item2 In gb.Controls
                    If TypeOf item2 Is ComboBox Then
                        Dim cb As ComboBox = TryCast(item2, ComboBox)
                        If cb.Name.Contains("_") Then
                            cb.DataSource = Qual
                            cb.DisplayMember = "QualiCaption"
                            cb.ValueMember = "QualiDI"
                        Else
                            cb.DataSource = Natio
                            cb.DisplayMember = "NationalitiesCaption"
                            cb.ValueMember = "NationalitiesID"
                        End If
                    End If
                 Next item2
             End If
            Next item

مرفق النموذج جاهز لتعديل عليه ..