مشکل با سرچ

[berayan 88]

سلام دوستان روشی رو لازم دارم که در میان (پنل های ) ایجاد شده توسط (حلقه فور) فقط پنلی رو که کاربر سرچ کرده نمایش بده و الباقی پنل ها محو بشن و پنل های نمایش داده شده پشت سر هم قرار بگیرن .

ا قبلا خودم از روش دیگری استفاده کردم ام چون مطالب زیاده 2 الی 3 ثانیه طول میکشه تا همچیز دوباره از اول تنظیم بشه . می خوام سرعت کار بالا بره .

Sub Bts_Click'sherch
Dim f,l As String
f = Searchtext.Text
l = spinner1.SelectedIndex
'-----------------------------
[color=#0000ff]If spinner1.SelectedItem = "گوینده" Then[/color]
'-------------------------------------------
ScrollView1.RemoveView
Activity.LoadLayout("scroll")
spinner1.Clear
spinner1.AddAll(Array As String ("متن","گوینده"))
Searchtext.Text = f
spinner1.SelectedIndex = l
'---------------------------------------------------
Dim cur1 As Cursor
cur1 = sql1.ExecQuery("SELECT * FROM tb_bankmatn WHERE ostad LIKE '%" & Searchtext.Text & "%'")
Dim cur2 As Cursor
cur2 = sql2.ExecQuery("SELECT * FROM tb_stings WHERE id=1")
cur2.Position = 0

[color=#ff0000] توسط این تابع تنظیماتی روکه در اکتیویتی استفده کردم دو باره به این قسمت آوردم tanzim
[/color]

[color=#0000ff]End If
[/color]

[color=#0000ff]If spinner1.SelectedItem = "متن" Then[/color]
'-------------------------------------------
ScrollView1.RemoveView
Activity.LoadLayout("scroll")
spinner1.Clear
spinner1.AddAll(Array As String ("متن","گوینده"))
Searchtext.Text = f
spinner1.SelectedIndex = l
'---------------------------------------------------
Dim cur1 As Cursor
cur1 = sql1.ExecQuery("SELECT * FROM tb_bankmatn WHERE matn LIKE '%" & Searchtext.Text & "%'")
Dim cur2 As Cursor
cur2 = sql2.ExecQuery("SELECT * FROM tb_stings WHERE id=1")
cur2.Position = 0
[color=#FF0000] توسط این تابع تنظیماتی روکه در اکتیویتی استفده کردم دو باره به این قسمت آوردم[/color][color=#ff0000] tanzim[/color]
[color=#0000ff] End If[/color]