با سلام . از دیتا بیسم میخوام یه لیست تهیه کنم و اید کد رو نوشتم
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
با سلام . از دیتا بیسم میخوام یه لیست تهیه کنم و اید کد رو نوشتم
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ولی فقط آخرین رکوردم رو نشون میده . نمیدونم مشکل از لیسته یا از اضافه کردن به اسکرول ویو ؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.