با سلام
من تو برنامم از لیست ویو سفارشی که آرمین عزیز در بخش سورس کد گذاشته بود استفاده کردم حالا میخوام فرضا همه ایتم هایی که فیلد daste اونا 1 هست رو تو لیست ویو بیارم
به این کد رسیدم ولی کار نمیکنه
Sub feh1_Click
Activity.LoadLayout("frmmain")
Dim stop As Int
stop = 0
Dim aa1 As list
sv1.Panel.Color = Colors.Transparent
cur= sql1.ExecQuery("SELECT onvan FROM tbl1 WHERE daste='1'")
For i=0 To cur.RowCount-1
cur.Position=i
Next
aa1.Add(cur.GetString("onvan"))
For i = 0 To i
Dim p1 As Panel
p1.Initialize("")
sv1.Panel.AddView(p1,0,stop,100%x,100dip)
stop = stop + 100dip
p1.LoadLayout("frmitem")
btnnumber.Tag = aa1.Get(i)
btnnumber.Text = i + 1
lblfrom.Text = aa1.Get(i)
Next
End Sub