Sub EditText1_TextChanged (Old As String, New As String)
sv.Panel.RemoveAllViews
size=sv.Height - sv.Height
sv.ScrollPosition = size
Dim cur As Cursor
cur=sql1.ExecQuery("select * FROM footbal WHERE en LIKE '%" & EditText1.text & " %'")
For i = 0 To cur.RowCount - 1
cur.Position=i
Dim p1 As Panel
p1.Initialize("p1")
sv.Panel.AddView(p1,2%x,size,98%x,80%y)
size = size + 21%y
p1.LoadLayout("formonvan")
p1.Tag = cur.GetInt("id")
Label1.Text=cur.GetString("en")
Label2.Text=cur.GetString("fa")
Button1.Tag=Label1.Text
Button2.Tag=Label1.Text & " = " & Label2.Text
sv.Panel.Height = size
Next
End Sub
حالا اگه بخوام توی queryبگم که 10 تا 10 تا لود کنه باید چی بگم
سوال
Mali43356@gmail.com 3
سلام ببخشید من این کد رو واسه سرچ نوشتم
Sub EditText1_TextChanged (Old As String, New As String) sv.Panel.RemoveAllViews size=sv.Height - sv.Height sv.ScrollPosition = size Dim cur As Cursor cur=sql1.ExecQuery("select * FROM footbal WHERE en LIKE '%" & EditText1.text & " %'") For i = 0 To cur.RowCount - 1 cur.Position=i Dim p1 As Panel p1.Initialize("p1") sv.Panel.AddView(p1,2%x,size,98%x,80%y) size = size + 21%y p1.LoadLayout("formonvan") p1.Tag = cur.GetInt("id") Label1.Text=cur.GetString("en") Label2.Text=cur.GetString("fa") Button1.Tag=Label1.Text Button2.Tag=Label1.Text & " = " & Label2.Text sv.Panel.Height = size Next End Subحالا اگه بخوام توی queryبگم که 10 تا 10 تا لود کنه باید چی بگم
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.