علاقه مندی با چند تیبل

[jfareba 37]

سلام چندتا تیبل دارم تو دیتا بیسم

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

SQL1.Initialize(File.DirInternal,"nameh.db",True)
	cur =SQL1.ExecQuery("SELECT * FROM nam WHERE id ="&fav.meghdar)
	m.Initialize("")
	m.Gravity = Gravity.RIGHT
	m.TextColor=Colors.Black
	ts.Initialize
	For i = 0 To cur.RowCount-1
		cur.Position = i
		m.Text = cur.GetString("matn")
	Next

من خیلی جستجو کردم ولی چیزی پیدا نکردم

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

 

[sajad8888 819]

این کدها برای دکمه علاقه مندی هستش

 

 

 

 

Sub btnfav_Click
    
    Dim cur As  Cursor
    cur=matn.sql1.ExecQuery("SELECT * FROM tabl1 WHERE id = "&matn.fasl)
    For i = 0 To cur.RowCount-1
    cur.Position=i
    
    Dim f As Int
    f = cur.GetInt("fav")
    
    If f = 1 Then
    matn.sql1.ExecNonQuery("UPDATE tabl1 set fav = 0 WHERE id = "& cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star4.png"))
    btnfav.Background=bb
    ToastMessageShow("از لیست علاقه مندی ها حذف شد " ,False)
    
    Else
    
    matn.sql1.ExecNonQuery("UPDATE tabl1 SET fav = 1 WHERE id = "&cur.GetInt("id"))
    Dim bb As BitmapDrawable
    bb.Initialize(LoadBitmap(File.DirAssets,"star40.png"))
    btnfav.Background=bb
    ToastMessageShow(" به لیست علاقه مندی ها اضافه شد",False)
    End If
    
    Next
    cur.Close
    
    
End Sub
 
 
 

[jfareba 37]

ممنون با کد دکمه مشکل ندارم با کد مطلب علاقه مندی مشکل دارم چون چندتا تیبل دارم