علاقه مندیها در مولتی پنل

سوال

سلام خسته نباشید

از اول میگم من چهارتا فهرست دارم که متنهاش بصورت مولتی پنل هست

دیتابیس هم چهارتا tbl_fehrest وچهارتا tbl_matn هست که جدول بندی و نام و همه چیز مثل همه

حالا  برای اینکه لیست را به علاقه مندی اضافه کنم گیر کردم

برای اضافه کردن لیست به علاقه مندی برای بخش اول این شکلی دستور زدم

Cur3=Sql2.ExecQuery2("SELECT * FROM TblFehrest1 WHERE ID=?",Array As String(meghdar))
			Cur3.Position=0
			If (Cur3.GetString ("Alage")="0") Then
				Alageh="0"
				Imagelike.Bitmap = LoadBitmapSample(File.DirAssets,"fav.png",Imagelike.Height,Imagelike.Width)
			Else
				Alageh="1"
				Imagelike.Bitmap = LoadBitmapSample(File.DirAssets,"fav-cop.png",Imagelike.Height,Imagelike.Width)
			End If

درساب ایمیج لایک هم به اینصورت

Sub Imagelike_Click
	If	 Alageh="0" Then
		Sql2.ExecNonQuery2("UPDATE TblFehrest1 SET Alage=1 WHERE ID=?",Array As String(meghdar))
		Imagelike.Bitmap=LoadBitmapSample(File.DirAssets , "fav-cop.png" ,Imagelike.Width , Imagelike.Height)
		ToastMessageShow("این صفحه به لیست علاقه مندیها اضافه شد",False)
		Alageh="1"
	Else
		Sql2.ExecNonQuery2("UPDATE TblFehrest1 SET Alage=0 WHERE ID=?",Array As String(meghdar))
		Imagelike.Bitmap=LoadBitmapSample(File.DirAssets , "fav.png" ,Imagelike.Width , Imagelike.Height)
		ToastMessageShow("این صفحه ازلیست علاقه مندیهاحذف شد",False)
		Alageh="0"
	
	End If
End Sub

حالا این درست عمل میکنه (ولی برای لیست یک مولتی پنلم) اومدم توی ساب کلیکم فهرست دوم را زیر همین کپی کردم تصویرشوپیوست کردم لیست را اضافه میکنه ولی تصویرFAV.PNG را عوض نمیکنه وهمچنین بجای پیغام اضافه شد پیغام حذف شد میده

اومدم یک ترفند من درآوردی دیگه زدم توی ساب کلیک اینجوری زدم

Sql2.ExecNonQuery2("UPDATE TblFehrest1 AND TblFehrest2 SET Alage=1 WHERE ID=?",Array As String(meghdar))

بجای AND همه چیو تست کردم ولی سینتکس ارور میده

اساتید عزیز لطفا راهنمایی کنید

ممنون میشم

فقط لطفا با مثال توضیح بدهید

 


فایل پیوست
حل شد 0
, 2020-04-14T23:48:42+03:30 2 پاسخ کاربر تازه 0

پاسخ ها ( 2 )

  1. morteza
    1
    2020-04-15T11:18:37+03:30
    پاسخ

    سلام.

    عزیزم، توی یک جمله بگو میخوای چی کار کنی.

    اینقدر طولانی ننویس.

  2. علی شجاعی
    4
    2020-04-15T12:57:11+03:30
    پاسخ
    این پاسخ ویرایش شد.

    سلام

    مشکلتون بخاطر این هست که داخل مولتی پنلل، شما از Tag و Sender استفاده نکردید.

    در ضمن بجای اینکه بیاید تو یه خط دو تا تیبل رو آپدیت کنید، تو دو خط بضورت جداگونه این کار رو انجام بدید. فک کنم اینجوری استانداردتره.

    Sql2.ExecNonQuery2("UPDATE TblFehrest1 SET Alage=1 WHERE ID=?",Array As String(meghdar))
Sql2.ExecNonQuery2("UPDATE TblFehrest2 SET Alage=1 WHERE ID=?",Array As String(meghdar))

     

     

     

    این کار رو انجام بدید. آموزشش تو سایت هست.

    امیدوارم مشکلتون حل بشه

    بهترین پاسخ
    • خداکریمی
      0
      2020-04-18T22:29:21+03:30
      پاسخ

      سلام مشکلم حل شد خیلی ممنون ازراهنمایی خوبتون فقط وقتی میخوام فهرستو (یعنی لیست علاقه مندیها که اضافه شده)بیارم اینجوری انجام میدم

      Sub Imgfav1_Click
Mp.RemoveAllViews
		Mp.AddView(arialistview,0,0,100%x,100%y)
		cur = Sql.ExecQuery("Select * From TblFehrest1 Where Alage = 1" ) 

		For i = 0 To cur.RowCount - 1		
			cur.Position = i		
			M = cur.GetString("ID")		
			stronvan = cur.GetString("Name")		
			l4.InsertAt(i,cur.GetInt("ID"))		
			l1.Add(stronvan)
			l2.Add("لیست : "& M)
			l3.Add(LoadBitmap(File.DirAssets, "fav.png"))
			Next
End Sub

      این کد درست کار میکنه خب حالامیخوام TblFehrest2راهم روی همین کلیک بیاره حالا وقتی این کدهارا دوباره با tblfehrest2زیر همین کپی میکنم وقتی ازfehrest1به لیست علاقه مندی اضافه میکنم از fehrest2هم یکی اضافه میکنه

      من نمیخوام برای بازکردن فهرست علاقه مندیها دوتا دکمه بذارم برای هرلیست

      لطفا کمک کنید

      خیلی ممنون

       

ارسال یک پاسخ