علاقه مندیها در مولتی پنل
سلام خسته نباشید
از اول میگم من چهارتا فهرست دارم که متنهاش بصورت مولتی پنل هست
دیتابیس هم چهارتا tbl_fehrest وچهارتا tbl_matn هست که جدول بندی و نام و همه چیز مثل همه
حالا برای اینکه لیست را به علاقه مندی اضافه کنم گیر کردم
برای اضافه کردن لیست به علاقه مندی برای بخش اول این شکلی دستور زدم
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ |
Cur3=Sql2.ExecQuery2("SELECT * FROM TblFehrest1 WHERE ID=?",Array As String(meghdar)) Cur3.Position=۰ If (Cur3.GetString ("Alage")="۰") Then Alageh="۰" Imagelike.Bitmap = LoadBitmapSample(File.DirAssets,"fav.png",Imagelike.Height,Imagelike.Width) Else Alageh="۱" Imagelike.Bitmap = LoadBitmapSample(File.DirAssets,"fav-cop.png",Imagelike.Height,Imagelike.Width) End If |
درساب ایمیج لایک هم به اینصورت
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ ۱۲ ۱۳ ۱۴ |
Sub Imagelike_Click If Alageh="۰" 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="۱" 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="۰" End If End Sub |
حالا این درست عمل میکنه (ولی برای لیست یک مولتی پنلم) اومدم توی ساب کلیکم فهرست دوم را زیر همین کپی کردم تصویرشوپیوست کردم لیست را اضافه میکنه ولی تصویرFAV.PNG را عوض نمیکنه وهمچنین بجای پیغام اضافه شد پیغام حذف شد میده
اومدم یک ترفند من درآوردی دیگه زدم توی ساب کلیک اینجوری زدم
۱ |
Sql2.ExecNonQuery2("UPDATE TblFehrest1 AND TblFehrest2 SET Alage=1 WHERE ID=?",Array As String(meghdar)) |
بجای AND همه چیو تست کردم ولی سینتکس ارور میده
اساتید عزیز لطفا راهنمایی کنید
ممنون میشم
فقط لطفا با مثال توضیح بدهید
فایل پیوست
پاسخ ها ( 2 )
سلام.
عزیزم، توی یک جمله بگو میخوای چی کار کنی.
اینقدر طولانی ننویس.
سلام
مشکلتون بخاطر این هست که داخل مولتی پنلل، شما از Tag و Sender استفاده نکردید.
در ضمن بجای اینکه بیاید تو یه خط دو تا تیبل رو آپدیت کنید، تو دو خط بضورت جداگونه این کار رو انجام بدید. فک کنم اینجوری استانداردتره.
این کار رو انجام بدید. آموزشش تو سایت هست.
امیدوارم مشکلتون حل بشه
سلام مشکلم حل شد خیلی ممنون ازراهنمایی خوبتون فقط وقتی میخوام فهرستو (یعنی لیست علاقه مندیها که اضافه شده)بیارم اینجوری انجام میدم
این کد درست کار میکنه خب حالامیخوام TblFehrest2راهم روی همین کلیک بیاره حالا وقتی این کدهارا دوباره با tblfehrest2زیر همین کپی میکنم وقتی ازfehrest1به لیست علاقه مندی اضافه میکنم از fehrest2هم یکی اضافه میکنه
من نمیخوام برای بازکردن فهرست علاقه مندیها دوتا دکمه بذارم برای هرلیست
لطفا کمک کنید
خیلی ممنون