من تو برنامم از لیست ویو سفارشی که آرمین عزیز در بخش سورس کد گذاشته بود استفاده کردم حالا میخوام فرضا همه ایتم هایی که فیلد 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
سوال
Farzad Musavi 576
با سلام
من تو برنامم از لیست ویو سفارشی که آرمین عزیز در بخش سورس کد گذاشته بود استفاده کردم حالا میخوام فرضا همه ایتم هایی که فیلد 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لینک ارسال
به اشتراک گذاری در سایت های دیگر
12 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده