سلام دوستان ببخشید من یه لیست ویو ساختم و یه جستجو براش گذاشتم که وقتی سرچ میکنیم موارد رو مشخص مبکنه و حتی بهت میگه {عکس پایین}
[ATTACH=CONFIG]296[/ATTACH]
حالا میخوام وقتی یه کلمه سرچ میکنم فقط اون آیتم هایی که نتایج جستجو بوده توی لیست نشون داده بشه
اینم کل از کد:
Sub Process_Globals
Dim sql1 As SQL
End Sub
Sub Globals
Private ListView1 As ListView
Dim cur As Cursor
Dim esm,famil,alamat As String
Private Button2 As Button
Private Button1 As Button
Private EditText1 As EditText
Private Button3 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frm1")
If File.Exists(File.DirInternal,"tbl1.db")=False Then
File.Copy(File.DirAssets,"tbl1.db",File.DirInternal,"tbl1.db")
End If
Activity.AddMenuItem("نشان گذاری شده ها","neshan")
End Sub
Sub neshan_click
cur=sql1.ExecQuery("select esm,alamat from tbl1 where alamat='1'")
Dim m As String
m="نشان گذاری شده ها "&CRLF
For i=0 To cur.rowcount-1
cur.Position=i
m=m&CRLF
m=m&cur.GetString("esm")
Next
ToastMessageShow("m",False)
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
ListView1.Clear
If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal,"tbl1.db",False)
End If
cur=sql1.ExecQuery("SELECT * FROM tbl1")
For i = 0 To cur.RowCount-1
cur.Position=i
esm=cur.GetString("esm")
famil=cur.GetString("famil")
alamat=cur.GetString("alamat")
Dim btmp As Bitmap
If alamat=0 Then
btmp.Initialize(File.DirAssets,"fab.png")
Else
btmp.Initialize(File.DirAssets,"fa.png")
End If
ListView1.AddTwoLinesAndBitmap2(esm,famil,btmp,esm)
Next
cur.Close
End Sub
Sub Button2_Click
StartActivity(act_3)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
cur=sql1.ExecQuery("select alamat from tbl1")
cur.Position=Position
If cur.GetString("alamat")="0" Then
sql1.ExecNonQuery("update tbl1 set alama'1' where esm='"&Value&"'")
Else
sql1.ExecNonQuery("update tbl1 set alama'0' where esm='"&Value&"'")
End If
ListView1.Clear
Button1_Click
End Sub
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
sql1.ExecNonQuery("delete from tbl1 where esm='"&Value&"'")
ListView1.RemoveAt(Position)
End Sub
Sub Button3_Click
cur=sql1.ExecQuery("select esm from tbl1 where esm like '%" & EditText1.Text & "%'")
Dim btmp As Bitmap
If alamat=0 Then
btmp.Initialize(File.DirAssets,"fab.png")
Else
btmp.Initialize(File.DirAssets,"fa.png")
End If
If cur.RowCount>0 Then
Dim m As String
m="نتایج به دست آمده "&CRLF
For i=0 To cur.rowcount-1
cur.Position=i
m=m&CRLF
m=m&cur.GetString("esm")
Next
ToastMessageShow(m,False)
Else
ToastMessageShow("جستجو نتیجه ای نداشت",False)
End If
End Sub
سوال
mehdi1376 44
سلام دوستان ببخشید من یه لیست ویو ساختم و یه جستجو براش گذاشتم که وقتی سرچ میکنیم موارد رو مشخص مبکنه و حتی بهت میگه {عکس پایین}
[ATTACH=CONFIG]296[/ATTACH]
حالا میخوام وقتی یه کلمه سرچ میکنم فقط اون آیتم هایی که نتایج جستجو بوده توی لیست نشون داده بشه
اینم کل از کد:
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("frm1") If File.Exists(File.DirInternal,"tbl1.db")=False Then File.Copy(File.DirAssets,"tbl1.db",File.DirInternal,"tbl1.db") End If Activity.AddMenuItem("نشان گذاری شده ها","neshan") End SubSub neshan_click cur=sql1.ExecQuery("select esm,alamat from tbl1 where alamat='1'") Dim m As String m="نشان گذاری شده ها "&CRLF For i=0 To cur.rowcount-1 cur.Position=i m=m&CRLF m=m&cur.GetString("esm") Next ToastMessageShow("m",False) End SubSub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click ListView1.Clear If sql1.IsInitialized=False Then sql1.Initialize(File.DirInternal,"tbl1.db",False) End If cur=sql1.ExecQuery("SELECT * FROM tbl1") For i = 0 To cur.RowCount-1 cur.Position=i esm=cur.GetString("esm") famil=cur.GetString("famil") alamat=cur.GetString("alamat") Dim btmp As Bitmap If alamat=0 Then btmp.Initialize(File.DirAssets,"fab.png") Else btmp.Initialize(File.DirAssets,"fa.png") End If ListView1.AddTwoLinesAndBitmap2(esm,famil,btmp,esm) Next cur.Close End Sub Sub Button2_Click StartActivity(act_3) End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) cur=sql1.ExecQuery("select alamat from tbl1") cur.Position=Position If cur.GetString("alamat")="0" Then sql1.ExecNonQuery("update tbl1 set alama'1' where esm='"&Value&"'") Else sql1.ExecNonQuery("update tbl1 set alama'0' where esm='"&Value&"'") End If ListView1.Clear Button1_Click End Sub Sub ListView1_ItemLongClick (Position As Int, Value As Object) sql1.ExecNonQuery("delete from tbl1 where esm='"&Value&"'") ListView1.RemoveAt(Position) End Sub Sub Button3_Click cur=sql1.ExecQuery("select esm from tbl1 where esm like '%" & EditText1.Text & "%'") Dim btmp As Bitmap If alamat=0 Then btmp.Initialize(File.DirAssets,"fab.png") Else btmp.Initialize(File.DirAssets,"fa.png") End If If cur.RowCount>0 Then Dim m As String m="نتایج به دست آمده "&CRLF For i=0 To cur.rowcount-1 cur.Position=i m=m&CRLF m=m&cur.GetString("esm") Next ToastMessageShow(m,False) Else ToastMessageShow("جستجو نتیجه ای نداشت",False) End If End Subفکر نکنم خیلی مشکل باشه ... لطفا کمک کنید
لینک ارسال
به اشتراک گذاری در سایت های دیگر
17 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده