افزودن یک فیلد از رکوردها به آرایه

[b.pasdar]

با سلام خدمت اساتید محترم

میخواهم یک آرایه n عنصری بسازم و عناصر اونو با یک فیلد از n رکوردی ک در دیتا گرید نمایش داده میشه پر کنم.

مثلا در دیتا گرید پنج تا رکورد نمایش داده شده داریم و میخواهم فیلد tel رو در آرایه دخیره کنم بطوری ک فیلد tel رکورد اول رو در عنصر اول آرایه ذخیره کرد، بره سراغ ذخیره فیلد tel رکورد دوم و همین طور تا آخرین رکورد نمایش داده شده ادامه بده و یکی یکی فیلد مورد نظر رو در آرایه ذخیره کنه.

نکته: رکوردهای نمایش داده در دیتا گرید قبلش توسط رکوردست از بانک فراخونی شده و در دیتا گرید ست شده.

چطوری این کارو انجام بدم؟ ممنون میشم راهنماییم کنید.

با تشکر

[ahmad abdoli]

سلام


Dim s() As String
ReDim s(Adodc1.Recordset.RecordCount)
For i = 1 To Adodc1.Recordset.RecordCount
s(i) = Adodc1.Recordset.Fields("tel")
Adodc1.Recordset.MoveNext
Next

[b.pasdar]

سلام


Dim s() As String
ReDim s(Adodc1.Recordset.RecordCount)
For i = 1 To Adodc1.Recordset.RecordCount
s(i) = Adodc1.Recordset.Fields("tel")
Adodc1.Recordset.MoveNext
Next

سلام دوست عزیز
ممنون از راهنماییت، لطف بزرگی کردی
فقط دوتا سوال داشتم این دستور redim چیکار میکنه؟
و اینکه اگر بخوام به این آرایه در تمامی فرمهام دسترسی داسته باشم باید اونو در ماژول ب صورت پابلیک تعریف کنم؟

[ahmad abdoli]

جواب سوال اول: دستور Redim برای تغییر دادن طول آرایه استفاده می شه

جواب سوال دوم: بله به صورت Public در ماژول

[b.pasdar]

یعنی اگه من ب صورت Public تعریف کنم و در داخل command button با دستور Redim بخوام تغییر طول بدم و مقداردهی بکنم مشکلی پیش نمیاد؟