منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال عن ComboBox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : سؤال عن ComboBox (/showthread.php?tid=39668)

سؤال عن ComboBox - alims - 10-10-21

السلام عليكم عندى سؤال 
الكود يعمل على عرض  اسماء الدولة اذا كانت اللغة عربية او انجليزى و لكن المشكلة ان الكود يعرض دولة وحده وفقط ولسه جميع البيانات من الجدوال
توضيح اكثر
 عند تنفيذ الكود يتم عرض دولة واحده قفط
ولكن اوريد ان يتم عرض كل البيانات الموجود داخل الجدوال
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