اشکال در تکمیل لیست

[mamad20 18]

با سلام . از دیتا بیسم میخوام یه لیست تهیه کنم و اید کد رو نوشتم

Public Sub loadList As List
Dim l2 As List
l2.Initialize

Dim c1 As Cursor
c1 = sql1.ExecQuery("select * from tbl_list")
For i = 0 To c1.RowCount - 1
 c1.Position = i
 Dim t1 As listItem
 t1.Initialize
 t1.code = c1.GetInt("code")
 t1.content = c1.GetString("content")
 t1.rate = c1.GetInt("rate")
 t1.title = c1.GetString("title")
 l2.Add(t1)
Next
Return l2
End Sub

 و در اسکرول ویو اینجوری لود کذدم که 

	Activity.LoadLayout("lblfrm1")
		Dim list2 As List	
		list2.Initialize
		Dim top As Int
		top = 0
	Dim db1 As database
	db1.Initialize
	list2 = db1.loadlist
		For i = 0 To list2.Size - 1
Dim Panel1 As Panel
Panel1.Initialize("")
scrol1.Initialize(1000dip)
scrol1.Panel.AddView(Panel1,10%x,top,90%x,10%y)
top = top + 50dip
		Dim k1 As listitem
		k1.Initialize
		k1 = list2.Get(i)
		Label1.Text = k1.name
		Next 

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

[mamad20 18]

مشکل این بود که لایوت رو باید درون پنل لود میکردم و من درون اکتیویتی لود کرده بودم

[محمد رشوند 1,209]

@@mamad20,

سعی کنید از این به بعد کدهاتون رو مرتب بنویسید که برای برنامه نویس دیگه یکم خواناتر باشه تعریف متغییر هاتون تو گلوبال باشه اینیشیالایز هاتون توی اکتیوتی کریت باشه بقیه کد ها هم سر جاشون

شما این خط رو جایگزین کنید ببینید مشکل حل میشه

l2.Add(i)

[AMiN.M7892 1,029]

سلام

بنظر میاد مشکل از لود تو اسکرول ویو باشه چون شما ارتفاع اسکرول ویو رو تنظیم کردید روی 1000dip و این غلطه

بجاش باید اون خط رو حذف کنید و بعد از حلقه لود تو اسکرول ویو کد زیر رو بنویسید:

ScrollView1.Panel.Height = Top 

[mamad20 18]

 

@@mamad20,

سعی کنید از این به بعد کدهاتون رو مرتب بنویسید که برای برنامه نویس دیگه یکم خواناتر باشه تعریف متغییر هاتون تو گلوبال باشه اینیشیالایز هاتون توی اکتیوتی کریت باشه بقیه کد ها هم سر جاشون

شما این خط رو جایگزین کنید ببینید مشکل حل میشه

l2.Add(i)

 

به کجاش اضافه کنم ؟

 

 

سلام

بنظر میاد مشکل از لود تو اسکرول ویو باشه چون شما ارتفاع اسکرول ویو رو تنظیم کردید روی 1000dip و این غلطه

بجاش باید اون خط رو حذف کنید و بعد از حلقه لود تو اسکرول ویو کد زیر رو بنویسید:

ScrollView1.Panel.Height = Top 

هیت پنل رو توی اد ویو خواسته و تاپ قرار دادم و این نیاز نیست . 

 

کسی نظر دیگه نداره ؟