با سلام من هرچی سرچ کردم نتونستم یک چیزی برای درست کردن یک سرچ برای دیتابیس 1000تایی پیدا کنم
کد نوشتم معمولی ارور داد
ScrollView1.Panel.RemoveAllViews
top = ScrollView1.Height - ScrollView1.Height + 2%y
ScrollView1.ScrollPosition = top
'cur = sql.ExecQuery("Select * From Matn Where Matn Like '%" & EditText1.Text & "%'")
'cur = Main.SQL.ExecQuery("SELECT * FROM Matn WHERE Titr LIKE '"&EditText1.Text&"%' ")
' cur = Main.SQL.ExecQuery("SELECT Titr,Favo FROM MatnWHERE Titr ='"& Value &"'")
cur=sql.ExecQuery("SELECT * FROM Matn WHERE Titr Like '%"&EditText1.Text&"%' OR Matn Like '%"&EditText1.Text&"%' ")
For i = 0 To cur.RowCount -1
cur.Position = i
Dim pnl As Panel
pnl.Initialize("")
ScrollView1.Panel.AddView(pnl,2%x,top,96%x,30%y)
pnl.LoadLayout("multi")
anim.InitializeScaleCenter("scale",0,0,1,1,Panel1)
anim.Duration = 1000
anim.Start(Panel1)
Label1.Text = cur.GetString("Titr")
Label1.Tag = cur.GetString("id")
Label1.Typeface = ACTMENU.typ
Label1.TextSize = 20
Label1.TextColor = Colors.Black
top = top + 15%y
ScrollView1.Panel.Height = top + 3%y
Next
cur.Close
سوال
HAMEDDDR 15
با سلام من هرچی سرچ کردم نتونستم یک چیزی برای درست کردن یک سرچ برای دیتابیس 1000تایی پیدا کنم
کد نوشتم معمولی ارور داد
ScrollView1.Panel.RemoveAllViews top = ScrollView1.Height - ScrollView1.Height + 2%y ScrollView1.ScrollPosition = top 'cur = sql.ExecQuery("Select * From Matn Where Matn Like '%" & EditText1.Text & "%'") 'cur = Main.SQL.ExecQuery("SELECT * FROM Matn WHERE Titr LIKE '"&EditText1.Text&"%' ") ' cur = Main.SQL.ExecQuery("SELECT Titr,Favo FROM MatnWHERE Titr ='"& Value &"'") cur=sql.ExecQuery("SELECT * FROM Matn WHERE Titr Like '%"&EditText1.Text&"%' OR Matn Like '%"&EditText1.Text&"%' ") For i = 0 To cur.RowCount -1 cur.Position = i Dim pnl As Panel pnl.Initialize("") ScrollView1.Panel.AddView(pnl,2%x,top,96%x,30%y) pnl.LoadLayout("multi") anim.InitializeScaleCenter("scale",0,0,1,1,Panel1) anim.Duration = 1000 anim.Start(Panel1) Label1.Text = cur.GetString("Titr") Label1.Tag = cur.GetString("id") Label1.Typeface = ACTMENU.typ Label1.TextSize = 20 Label1.TextColor = Colors.Black top = top + 15%y ScrollView1.Panel.Height = top + 3%y Next cur.Closeولی وقتی سرچ میکنم هنگ میکنه دستگاه
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.