كيف أقوم بتخزين بيانات عمود .. إلى مصفوفة باستخدام Vb.net؟

 Dim MyArray() As Object
 Dim Index As Integer = 0
MyArray = Array.CreateInstance(Type.GetType("System.Object"), 10)
		For Each R In T
			MyArray.SetValue(R("ColName"), Index)
			Index += 1
		Next

حيث يمكن تبديل Object بنوع البيانات التي في العمود

10 طول المصفوفة

شكرًا جزيلا للرد .. ولكن ما هو تعريف الR و الT ؟

R: DataRow

T: DataTable

السلام عليكم

طب لو سمحت

لو انا عاوزاعرف مثلاَََ اجمالي جمع حقول معينة بشرط

ازاي اعملها بس في حالة استخدام الداتا سيت

الاخ ma7moud_gaber حبذا لو طرحت سؤالك في موضع جديد لانه ليسه له علاقه مباشرة مع الموضع المطروح ، ايضا كانت ستعم الفائدة اكثر.

على اي حال الاجابة كلاتي:

بافتراض ان ال DataSet هي DSet ، الجدول المعني هو Sales والحقل المطلوب جمعه هو Price

DataView هي DV لعمل الفلترة

DataRowView هو RV للدوران داخل ال DataView

متغير Sum للمجموع

وافرتاض ان الشرط هو Price>1000

DV=Nwe DataView(DSet.Tables("Sales")
DV.RowFilter="Price>1000"
 Dim RV As DataRowView
Dim Sum As Decimal = 0
For Each RV In DV
	  Sum = Sum + RV("Price")
Next

عيه يصبح Sum هو المجموع المطلوب.

السلام عليكم

جزاك الله خيرأ

الكود اشتغل معايا عل طول

انا دخت علشان اوصل للكود دة جزاك الله خيرأََ

ممكن شرح سريع علي الكود

شكرًا أخي عبدالباسط ..

ولكن كيف نحصل على الdata row والdata table؟

بمعنى هل أستخدم SqlDataReader؟ أم DataAdapter ؟

اعذرني على كثرة أسئلتي

بالنسبة لشرح الكود:

DV=New DataView(DSet.Tables("Sales"))

لتعريف ال DataView

DV.RowFilter="Price>1000"

لعمل فلترة للبانات على حسب الشرط المطلوب

Dim RV As DataRowView

لتعريف ال DatRowView واللذي يعتبر Record من ال DataView ، بالضبط كا DataRow لل DataTable

Dim Sum As Decimal = 0
For Each RV In DV
	  Sum = Sum + RV("Price")
Next

لتعريف المتغير الذي نضع فيه المجموع، مع ملاحظة القيمة الابتدائية 0 وهو العنصر المحايد للجمع، اي اذا كنا نريد مضاريب الاعداد بدل جمعها عده ستكون القيمة الابتدائية هي 1 وهو العنصر المحايد للضرب.

اما بالنسبة للحصول على ال DataTable فهي باستخدام ال DataAdapter