قراردادن پنل در بین اطلاعات دیتابیس

[Amir - B 185]

سلام دوستان

مثلا من 50 تا رکورد دارم تو دیتابیسم . 

میخوام بین این رکوردها در حلقه فور ، مثلا یک پنل تبلیغ قرار بدم 

چطوریه این کار؟

ممنون

[میلاد 441]

اینو بزار توی اکتیویتی کریت 

show("SELECT * FROM name-tbl )

اینم ک یه ساب جداست

Sub show(query As String)
	cur = sql.ExecQuery(query)

For i = 0 To cur.RowCount-1
cur.Position = i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,s,96%x,100%y)
s = s + 27%y
p.LoadLayout("main")
Label1.text = cur.GetString("name")
Label2.Text = cur.GetString("famil")
Button1.Tag = cur.GetString("id")
ScrollView1.Panel.Height = s
ScrollView1.Panel.Color = Colors.Transparent
Next
End Sub