السلام عليكم عندى سؤال
الكود يعمل على عرض اسماء الدولة اذا كانت اللغة عربية او انجليزى و لكن المشكلة ان الكود يعرض دولة وحده وفقط ولسه جميع البيانات من الجدوال
توضيح اكثر
عند تنفيذ الكود يتم عرض دولة واحده قفط
ولكن اوريد ان يتم عرض كل البيانات الموجود داخل الجدوال
الحمد الله تم حل المشكلة تقريبا القهوة لى شربتها مغشوشة
حذف كلمة 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()
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
الحمد الله تم حل المشكلة تقريبا القهوة لى شربتها مغشوشة
حذف كلمة 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
قال تعالى : يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ