مشکل با قسمت جستجوی کتاب در بیسیک فور آندروید
سلام خدمت دوستان گرامی.
ببخشید من یه کتاب ساختم با دیتابیس چندجدولی، حالا تو قسمت سرچ و علاقمندی ها یه مشکل مشابه رو دارم که تاحالا هرچی تلاش کردم و گشتم و پرسیدم به جایی نرسیدم.
شرح مشکل:
وقتی واژه ای رو سرچ می کنی تو قسمت عناوین یا مطالب کتاب به خوبی تو همه جداول می گرده و نشونشون می ده و تا اینجا مشکلی نیست، اما هنگامی که روشون کلیک می کنی فقط مطالب یا عناوین یک جدول رو میاره، حتی اگر روی مثلا مطلب جدول دوم بزنی بازم مطلب جدول اول رو نشون میده.
واسه قسمت علاقمندی ها هم همین مشکل هست. حالا از شما می خوام لطفا بگین چکار کنم و چه دستور شرطی رو تو قسمت آیتم کلیک بنویسم؟
بنده مبتدی مبتدی هستم و این کتاب رو هم از روی یه سورس ناقص ساختم
کدها به صورت زیر هستن:
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ ۱۲ ۱۳ ۱۴ ۱۵ ۱۶ ۱۷ ۱۸ ۱۹ ۲۰ ۲۱ ۲۲ ۲۳ ۲۴ ۲۵ ۲۶ ۲۷ ۲۸ ۲۹ ۳۰ ۳۱ ۳۲ ۳۳ ۳۴ ۳۵ ۳۶ ۳۷ ۳۸ ۳۹ ۴۰ ۴۱ ۴۲ ۴۳ ۴۴ ۴۵ ۴۶ ۴۷ ۴۸ ۴۹ ۵۰ ۵۱ ۵۲ ۵۳ ۵۴ ۵۵ ۵۶ ۵۷ ۵۸ ۵۹ ۶۰ ۶۱ ۶۲ ۶۳ |
Sub ImgSearchMatn_Click IsMain = False PnlSearch.RemoveAllViews PnlSearch.LoadLayout("LSrchOnvan") Dim StrOnvan As String Dim Cur2 As Cursor If (TxtSearch.Text = "") Then ToastMessageShow("متنی وارد نشده" , True) Else Cur = Sql1.ExecQuery("Select * From TblMatlab2_1 Where Matn1 Like '%" & TxtSearch.Text & "%'") For j = ۰ To Cur.RowCount - ۱ Cur.Position = j Cur2 = Sql1.ExecQuery("Select * From TblFeh2_1 Where ID1 = '" & Cur.GetString("FehID1") & "'") Cur2.Position = ۰ StrOnvan = Cur2.GetString("OnvanFeh1") LV_SrchOnvan.AddSingleLine2(StrOnvan , Cur2.GetString("ID1")) Next LV_SrchOnvan.SingleLineLayout.Label.TextColor = Colors.White LV_SrchOnvan.SingleLineLayout.Label.Gravity = Gravity.CENTER LV_SrchOnvan.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("byekan.ttf") LV_SrchOnvan.SingleLineLayout.Label.TextSize = ۱۶ Dim img As BitmapDrawable img.Initialize(LoadBitmap(File.DirAssets , "itemback.png")) LV_SrchOnvan.SingleLineLayout.Background = img '----------------------------- Dim StrOnvan1 As String Dim Cur3 As Cursor Cur1 = Sql1.ExecQuery("Select * From TblMatlab2_2 Where Matn2 Like '%" & TxtSearch.Text & "%'") For n = 0 To Cur1.RowCount - 1 Cur1.Position = n Cur3 = Sql1.ExecQuery("Select * From TblFeh2_2 Where ID2 = '" & Cur1.GetString("FehID2") & "'") Cur3.Position = 0 StrOnvan1 = Cur3.GetString("OnvanFeh2") LV_SrchOnvan.AddSingleLine2(StrOnvan1 , Cur3.GetString("ID2")) Next LV_SrchOnvan.SingleLineLayout.Label.TextColor = Colors.White LV_SrchOnvan.SingleLineLayout.Label.Gravity = Gravity.CENTER LV_SrchOnvan.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("byekan.ttf") LV_SrchOnvan.SingleLineLayout.Label.TextSize = 16 Dim img As BitmapDrawable img.Initialize(LoadBitmap(File.DirAssets , "itemback.png")) LV_SrchOnvan.SingleLineLayout.Background = img End If End Sub |
۱ ۲ ۳ ۴ ۵ ۶ ۷ |
Sub LV_SrchOnvan_ItemClick (Position As Int, Value As Object) Matlab_Alaqe.FehId1 = Value StartActivity (Matlab_Alaqe) End Sub |
پاسخ ( 1 )
سلام
متاسفانه با جستجو و علاقه مندی در بیسیک تجربه ای ندارم، ولی یک سورس کتاب کامل که دارای جستجو و علاقه مندی ها هست رو براتون میزارم، تا از روی کدهاش نگاه کنید و به نتیجه ی دلخواهتون برسید.
برای دانلود سورس کد + کتابخانه های مورد نیاز: کلیک کنید.
موفق باشید.