26-01-16, 11:09 PM
(آخر تعديل لهذه المشاركة : 26-01-16, 11:37 PM {2} بواسطة silverlight.)
يمكنك أن تقرأ البيانات الخاصة بالعمود االموجود به الاسماء لا غير و تحوله الي مصفوفة
علي فكرة يمكنك استخدام نفس الاسلوب مع كل عمود موجود في Table الأصلي ثم تبني DataTable جديد و تضيف له بيانات مصفوفة كل عمود علي هيئة عمود جديد و بهذا تكون تخلصت من التكرار
PHP كود :
' تعريف الجدول
Dim dt As DataTable
' تعريف اسم العمود المراد استرجاع بياناته
Dim columnName As String = "إسم العمود المراد استرجاع بياناته"
' الحصول علي مصفوفة هذا العمود
Dim names = dt.AsEnumerable().Select(Function(r) r.Field(Of String)(columnName)).ToArray()
' يمكنك استخدام الهاش ست لضمان عدم تكرار المدخلات
Dim hash As HashSet(Of String) = New HashSet(Of String)()
' تعبئة الهاش
For Each name As String In names
hash.Add(name)
Next
' استخدم الهاش في تعبئة الكومبوبوكس
For Each s As String In hash
ComboBox1.Items.Add(s)
Next
علي فكرة يمكنك استخدام نفس الاسلوب مع كل عمود موجود في Table الأصلي ثم تبني DataTable جديد و تضيف له بيانات مصفوفة كل عمود علي هيئة عمود جديد و بهذا تكون تخلصت من التكرار

