تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال عن ComboBox
#1
Question 
السلام عليكم عندى سؤال 
الكود يعمل على عرض  اسماء الدولة اذا كانت اللغة عربية او انجليزى و لكن المشكلة ان الكود يعرض دولة وحده وفقط ولسه جميع البيانات من الجدوال
توضيح اكثر
 عند تنفيذ الكود يتم عرض دولة واحده قفط
ولكن اوريد ان يتم عرض كل البيانات الموجود داخل الجدوال
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
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ
الرد }}}
تم الشكر بواسطة: ahmed4



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم