منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم عندى سؤال
الكود يعمل على عرض اسماء الدولة اذا كانت اللغة عربية او انجليزى و لكن المشكلة ان الكود يعرض دولة وحده وفقط ولسه جميع البيانات من الجدوال
توضيح اكثر
عند تنفيذ الكود يتم عرض دولة واحده قفط
ولكن اوريد ان يتم عرض كل البيانات الموجود داخل الجدوال
Exclamation

كود :

   Sub FillComboBoxar()

        Dim StrSQL As String = "Select * From Locations "

        Dim da As New OleDb.OleDbDataAdapter(StrSQL, cn)

        Dim dtt As New DataTable

        dtt.Clear()

        da.Fill(dtt)

        CREATE_ACCOUNT.ComboBox4.Items.Clear()

        For Each row As DataRow In dtt.Rows

            If My.Settings.LangName = "العربية" Then

                CREATE_ACCOUNT.ComboBox4.Items.Add(row("LocationsARABIC")).ToString()

                Exit Sub

            End If

            If My.Settings.LangName = "ENGLISH" Then

                CREATE_ACCOUNT.ComboBox4.Items.Add(row("LocationsEnglish"))

                Exit Sub

            End If

            If My.Settings.LangName = "français" Then

                CREATE_ACCOUNT.ComboBox4.Items.Add(row("LocationsFrench"))

                Exit Sub

            End If

            If My.Settings.LangName = "DEUTSCH" Then

                CREATE_ACCOUNT.ComboBox4.Items.Add(row("LocationsGerman"))

                Exit Sub

            End If

        Next

    End Sub

الحمد الله تم حل المشكلة تقريبا القهوة لى شربتها مغشوشة Big Grin

حذف كلمة ExitSub بس كده

كود :

Sub FillComboBoxar()

        Dim StrSQL As String = "Select * From Locations "

        Dim da As New OleDb.OleDbDataAdapter(StrSQL, cn)

        Dim dtt As New DataTable

        dtt.Clear()

        dtt = ExcSqlDT(StrSQL)

        da.Fill(dtt)

        CREATE_ACCOUNT.ComboBox4.Items.Clear()

        For Each row As DataRow In dtt.Rows

            If My.Settings.LangName.ToString = "العربية".ToString Then

                CREATE_ACCOUNT.ComboBox4.Items.Add(row("LocationsARABIC"))

            End If

            If My.Settings.LangName = "ENGLISH" Then

                CREATE_ACCOUNT.ComboBox4.Items.Add(row("LocationsEnglish"))

            End If

            If My.Settings.LangName = "français" Then

                CREATE_ACCOUNT.ComboBox4.Items.Add(row("LocationsFrench"))

            End If

            If My.Settings.LangName = "DEUTSCH" Then

                CREATE_ACCOUNT.ComboBox4.Items.Add(row("LocationsGerman"))

            End If

        Next

    End Sub

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alims