سلام دوستانبرای جستجو توو لیست ویو بر اساس جستجوی انگلیسی و فارسی اینکارو انجام دادم:
Sub EditText1_TextChanged (Old As String, New As String)
'پاک کردن تکست باکس
If New.Length > 10 Then EditText1.Text = ""
'جستجو
TXT = EditText1.Text
TXT = TXT.Trim
Cur1 = SQL1.ExecQuery("SELECT * FROM tbl WHERE Species LIKE '%"&TXT&"%'")
Cur2 = SQL1.ExecQuery("SELECT * FROM tbl WHERE FA LIKE '%"&TXT&"%'")
If RadioButton1.Checked=True Then
ListView1.Clear
For i = 0 To Cur1.RowCount - 1
Cur1.Position = i
ListView1.AddTwoLinesAndBitmap(Cur1.Getstring("Species"),Cur1.Getstring("FA"),LoadBitmap(File.DirAssets,Cur1.GetString("Pic")))
Next
Else If RadioButton2.Checked=True Then
ListView1.Clear
For i = 0 To Cur2.RowCount - 1
Cur2.Position = i
ListView1.AddTwoLinesAndBitmap(Cur2.Getstring("Species"),Cur2.Getstring("FA"),LoadBitmap(File.DirAssets,Cur2.GetString("Pic")))
Next
End If
و این رو:
Sub ListView1_ItemClick (Position As Int, Value As Object)
StartActivity(Species)
If Cur1.RowCount <> 0 Then
Cur1.Position = Position
Species.lbl0= Cur1.GetString("Species")
Else If Cur2.RowCount <> 0 Then
Cur2.Position = Position
Species.lbl0= Cur2.GetString("Species")
End If
End Sub
حالا تووو یک لی اوت جدا از این (layout2)، یک تکست باکس و یک فرمان (دکمه) دارم.
حالا من میام توو لیست ویو (layout1) مثلا ردیف سوم رو میزنم و میام توو لی اوت 2 و توو تکست باکس عددی رو مینویسم و دکمه رو میزنم تا عدد واسه همون رکورد ثبت شه.
حالا مشکل اینجاست، اگه من توو لیست ویو جستجو کنم، و بیام توو لی اوت و یه عدد تو تکست باکس بنویسم و دکمه رو بزنم تا ذخیره شه، اعداد اشتباه توو رکوردها ثبت میشه، ولی بدون جستجو کردن، اعداد درست ثبت میشه. من از این کد استفاده می کنم:
If layout1.Cur1.RowCount <> 0 Then
layout1.SQL1.ExecNonQuery("UPDATE tbl SET Cover = "&Label37.Text&" WHERE ID="&layout1.Cur1.Position&"")
Else if List.Cur2.RowCount <> 0 Then
layout1.SQL1.ExecNonQuery("UPDATE tbl SET Cover = "&Label37.Text&" WHERE ID="&layout1.Cur2.Position&"")
End If
داداش تو رو خدا کمکم کنین، خستم کرد، امروز کلا گیر این بودم. منتظرم، همین امشب جوابمو بدین
سوال
مسعود دلفان آذری 52
سلام دوستانبرای جستجو توو لیست ویو بر اساس جستجوی انگلیسی و فارسی اینکارو انجام دادم:
Sub EditText1_TextChanged (Old As String, New As String) 'پاک کردن تکست باکس If New.Length > 10 Then EditText1.Text = "" 'جستجو TXT = EditText1.Text TXT = TXT.Trim Cur1 = SQL1.ExecQuery("SELECT * FROM tbl WHERE Species LIKE '%"&TXT&"%'") Cur2 = SQL1.ExecQuery("SELECT * FROM tbl WHERE FA LIKE '%"&TXT&"%'") If RadioButton1.Checked=True Then ListView1.Clear For i = 0 To Cur1.RowCount - 1 Cur1.Position = i ListView1.AddTwoLinesAndBitmap(Cur1.Getstring("Species"),Cur1.Getstring("FA"),LoadBitmap(File.DirAssets,Cur1.GetString("Pic"))) Next Else If RadioButton2.Checked=True Then ListView1.Clear For i = 0 To Cur2.RowCount - 1 Cur2.Position = i ListView1.AddTwoLinesAndBitmap(Cur2.Getstring("Species"),Cur2.Getstring("FA"),LoadBitmap(File.DirAssets,Cur2.GetString("Pic"))) Next End Ifو این رو:
Sub ListView1_ItemClick (Position As Int, Value As Object) StartActivity(Species) If Cur1.RowCount <> 0 Then Cur1.Position = Position Species.lbl0= Cur1.GetString("Species") Else If Cur2.RowCount <> 0 Then Cur2.Position = Position Species.lbl0= Cur2.GetString("Species") End If End Subحالا تووو یک لی اوت جدا از این (layout2)، یک تکست باکس و یک فرمان (دکمه) دارم.
حالا من میام توو لیست ویو (layout1) مثلا ردیف سوم رو میزنم و میام توو لی اوت 2 و توو تکست باکس عددی رو مینویسم و دکمه رو میزنم تا عدد واسه همون رکورد ثبت شه.
حالا مشکل اینجاست، اگه من توو لیست ویو جستجو کنم، و بیام توو لی اوت و یه عدد تو تکست باکس بنویسم و دکمه رو بزنم تا ذخیره شه، اعداد اشتباه توو رکوردها ثبت میشه، ولی بدون جستجو کردن، اعداد درست ثبت میشه. من از این کد استفاده می کنم:
If layout1.Cur1.RowCount <> 0 Then layout1.SQL1.ExecNonQuery("UPDATE tbl SET Cover = "&Label37.Text&" WHERE ID="&layout1.Cur1.Position&"") Else if List.Cur2.RowCount <> 0 Then layout1.SQL1.ExecNonQuery("UPDATE tbl SET Cover = "&Label37.Text&" WHERE ID="&layout1.Cur2.Position&"") End Ifداداش تو رو خدا کمکم کنین، خستم کرد، امروز کلا گیر این بودم. منتظرم، همین امشب جوابمو بدین
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.