مشکل با جستجو

[bahman2012 13]

سلام دوستان

من تو جستجو برنامم با مشکل مواجه شدم

من از لیست سفارشی تو برنامم استفاده میکنم

مشکل اینجاست که تو جستجو با هر بار تغییر متن داخل کادر جستجو لیست با توجه به کلمه تغییر میکنه اما لیست جدید میاد روی لیست قبلی

ما تو لیست پیش فرض بیسک معمولا از کلمه List_Matlab.Clear استفاده میکردیم الان نمیدونم از چی استفاده کنم

این لیست منه

Sub EditText1_TextChanged (Old As String, New As String)If EditText1.Text="" Then
   lbl_num_search.Text = "لطفا کلمه ای جهت جستجو در کادر بالا تایپ کنید."
Else
If sq.IsInitialized =False Then
   sq.Initialize(File.DirInternal,"sabzeh",False)
End If
   cur = sq.ExecQuery("SELECT * FROM sabzehdb WHERE "&chek&" LIKE '%"&EditText1.Text&"%'")
   lbl_num_search.Text = "تعداد یافت شده : '"&cur.RowCount&"'"
   '

   sv_feh1.Panel.Height = cur.RowCount * 83dip
   h=0
       For i = 0 To cur.RowCount-1
           cur.Position=i
           '
           pa.Initialize("")
           sv_feh1.Panel.AddView(pa,0,h,97%x,83dip) ' اسکرول بار
           h=h+83dip
           pa.LoadLayout("row_fehrest")
           '
               onvan=cur.GetString("name")
               image=cur.GetString("image")
               fav =cur.GetString("star")
             lbl_row_name.Text= onvan
           '
           img_row.SetBackgroundImage(LoadBitmap (File.DirAssets ,image))
           If fav = "1" Then
               btn_row_fav.SetBackgroundImage(LoadBitmap (File.DirAssets ,"star_on.png"))
           Else 
               btn_row_fav.SetBackgroundImage(LoadBitmap (File.DirAssets ,"star_of.png"))
           End If
       Next
   cur.Close
End If

End Sub

[نیما قبادی 246]

این کدها رو تو چه سابی نوشتی دقیقا؟؟؟

[مجید آرتا 5,874]

لیست ویو سفارشی رو خودتون ساختین ( نوشتین ) ؟ بنده یک لیست ویو سفارشی دارم که مربوط میشه به سایت اصلی و تابع Clear هم داره واسه پاک کردن آیتم ها.

[نیما قبادی 246]

یه سوال برام پیش اومد ن فقط من بلکه آقای آرتا دیگه*خنده*

دقیقا اینجا چیکار میکنه این کد

lbl_num_search.Text = "تعداد یافت شده : '"&cur.RowCount&"'"

وبعد شما که میگید لیست ویو اختصاصی کدی نمیبینم برای لود کردنش ؟؟؟!!!!!!!!!!!!!!!!!!!!!!!!*گاز*

تا جایی که فهمیدم امدید از استرینگ استفاده کردین درسته؟ که کالومن هارو بگیری ؟؟

بعد شما اومدید بین دستور WHERE یه chek گذاشتید این دقیقا چی هست؟؟؟

یکم کدوتون نا خواناست

[bahman2012 13]

ببینید این قسمتی از کده و به خوبی به خوبی کار میکنه فقط مشکل اینجاست که اگه کلمه داخل Edite text عوض بشه لیست جدید جستجو میاد رو لیست قبلی این کد پایین هم میاد رکود های پیدا شده تو دیتابیس رو میشماره

lbl_num_search.Text = "تعداد یافت شده : '"&cur.RowCount&"'"

آقای نیما قبادی عزیز کد زیر بخشی از کد بالاست که میاد یه اکتیویتی رو دیگه رو به عنوان لیست سفارشیم لود میکنه "row_fehrest" pa.Initialize("")

sv_feh1.Panel.AddView(pa,0,h,97%x,83dip) ' اسکرول بار

h=h+83dip

pa.LoadLayout("row_fehrest")