سلام من این کد رو واسه سرچ توی edittextchange value زدم . کار هم میکنه ولی وقتی یه چیزی سرچ میکنی همه ی چیزایی که توی لیست میاد با یه اسمه . یعنی اگه 10 تا کلمه توشون a باشه 10 تا مثلا amir مینویسه .
مشکلش چی میتونه باشه؟؟
Sub EditText1_TextChanged (Old As String, New As String)
Dim cur As Cursor
cur = sql1.ExecQuery("SELECT en FROM vocab WHERE en LIKE '%" & EditText1.Text & "%'")
ListView1.Clear
For i = 0 To cur.RowCount-1
cur.Position = i
ListView1.AddSingleLine(" "&cursor1.GetString("en"))
Next
End Sub
سوال
amirsafari 116
سلام من این کد رو واسه سرچ توی edittextchange value زدم . کار هم میکنه ولی وقتی یه چیزی سرچ میکنی همه ی چیزایی که توی لیست میاد با یه اسمه . یعنی اگه 10 تا کلمه توشون a باشه 10 تا مثلا amir مینویسه .
مشکلش چی میتونه باشه؟؟
Sub EditText1_TextChanged (Old As String, New As String) Dim cur As Cursor cur = sql1.ExecQuery("SELECT en FROM vocab WHERE en LIKE '%" & EditText1.Text & "%'") ListView1.Clear For i = 0 To cur.RowCount-1 cur.Position = i ListView1.AddSingleLine(" "&cursor1.GetString("en")) Next End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.