PDA

View Full Version : Item Data



javadaskari
جمعه 05 مهر 1387, 12:28 عصر
سلام

1.کسي ميدونه معادل متد ItemData که مربوط به شي ListBox در VB 6 بود در VB 2005 چي ميشه؟

2.علت کار نکردن اين کد چيست؟ روي خط اول اشکال ميگرد.آيا حلقه for...each جور ديگري تعريف ميشود؟


For Each row In objDS.Tables("Table1").Rows

List1.Items.Insert(index, reader.GetString(1))
index += 1

Next

ALI TT
جمعه 05 مهر 1387, 23:14 عصر
توی هر دو سوالت : چه کار می خوای کنی ، می خوای خروجیت چی باشه ؟

* در ضمن برای نوشتم کدها در سایت از [CODE] استفاده کن . عکسشم توی نوار ابزاره ----> #

javadaskari
شنبه 06 مهر 1387, 08:29 صبح
ببخشيد کد مورد نظر را به صورت زير اصلاح ميکنم




For Each row In objDS.Tables("Table1").Rows

cbo1.Items.Insert(index, CStr(row("Name")))
index += 1

Next



در سوال اولي ميخواستم يکي از فيلد هاي جدول را به Listbox اضافه کنم و همچنين ID آن فيلد را هم در متد ItemData آن ذخيره کنم.چون ID ها به ترتيب 1 تا n نيست.از اين کار براي حذف و ويرايش استفاده ميکنم.

در سوال دوم هم نميدونم چرا ولي اگر بانکم را به Accsess تغييير دهم مشکل حل ميشود.بانک من در حال حاضر SQL 2005 است.حالا چگونه مشکل را حل کنم؟ با تشکر

شاپرک
شنبه 06 مهر 1387, 11:38 صبح
cbo1.Items.Add

ALI TT
یک شنبه 07 مهر 1387, 01:15 صبح
از این کد هم می تونی بجای حلقه ی For each استفاده کنی :

Dim ID As Integer

For i As Integer = 0 To DataSet1.Tables({نام جدول مربوط}).Rows.Count - 1

ListBox1.Items.Add(DataSet1.Tables(0).Rows(i)(فی لد مربوط)).ToString
ID = DataSet1.Tables(0).Rows(i)(فیلد آی دی)
.
.
.
Next