رفتن به مطلب
بیسیک فور ایکس
  • اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 0
arsin007

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

سوال

سلام خدمت دوستان گرامی.


ببخشید من یه کتاب ساختم با دیتابیس چندجدولی، حالا تو قسمت سرچ و علاقمندی ها یه مشکل مشابه رو دارم که تاحالا هرچی تلاش کردم و گشتم و پرسیدم به جایی نرسیدم.


شرح مشکل:


وقتی واژه ای رو سرچ می کنی تو قسمت عناوین یا مطالب کتاب به خوبی تو همه جداول می گرده و نشونشون می ده و تا اینجا مشکلی نیست، اما هنگامی که روشون کلیک می کنی فقط مطالب یا عناوین یک جدول رو میاره، حتی اگر روی مثلا مطلب جدول دوم بزنی بازم مطلب جدول اول رو نشون میده.


واسه قسمت علاقمندی ها هم همین مشکل هست. حالا از شما می خوام لطفا بگین چکار کنم و چه دستور شرطی رو تو قسمت آیتم کلیک بنویسم؟


بنده مبتدی مبتدی هستم و این کتاب رو هم از روی یه سورس ناقص ساختم


کدها به صورت زیر هستن



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 = 0 To Cur.RowCount - 1
Cur.Position = j
Cur2 = Sql1.ExecQuery("Select * From TblFeh2_1 Where ID1 = '" & Cur.GetString("FehID1") & "'")
Cur2.Position = 0
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 = 16

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 پاسخ به این سوال تا کنون داده شده است

Recommended Posts

  • 0

کسی بلد نیست کمک کنه؟

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

×