ساخت علاقه مندی مالتی تیبل

[nasim 370]

سلام دوستان

من یه کتاب دارم شامل چندین فصله میخوام واسش قسمت علاقه مندی بذارم ولی بلد نیستم یعنی وقتی کتاب یه قسمتی میشه راحته و توی StartActivity  میگی کدوم فعال بشه ولی وقتی چندتا اکتیویتی داری برای نشون دادن متن هات اونوق باید چیکار کرد؟

[alirezakazemizaroomi 437]

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

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

[nasim 370]

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

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

 

کد رو گذاشتم وقتی روی دکمه علاقه مندی کلیک میکنم تا تا اضافه بشه به لیست همچین اروری میده

 

[alirezakazemizaroomi 437]

کد لاین 472 کدوم میشه؟برنامه رو روی (debug(legacy اجرا بگیرببین رو کدوم خط ارور میده

[nasim 370]

کد لاین 472 کدوم میشه؟برنامه رو روی (debug(legacy اجرا بگیرببین رو کدوم خط ارور میده

اجرا کردم متوجه نشدم ((

من سورس رو بهش شما داده بودماااا

اگه میخوایین دوباره بفرستم شما اجرا کنین من از این قسمت خیلی سردرنمیارم  همین (debug(legacy

 

به این گیر داد

     cur=kollemataleb.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&kollemataleb.fast)

[nasim 370]

شما باید آی دی آیتمی که روی آن کلیک شده است را در یک Value بریزید و سپس شرط بگزارید که برای مثال اگر آی دی بین 1 تا 10 بود صفحه مطالب مخصوص به آن سری از آی دی را باز کند ، اگر آی دی بین 11 تا 20 بود صفحه مطالب مخصوص به آن سری از آی دی ها را باز کند.این کد ها باید در ساب کلیک لیست ویو قرار بگیرد.

 

چقد خوب که خودتون جواب میدید

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

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

[alirezakazemizaroomi 437]

شرمنده من یه جای کدها رو اشتباه دادم؛یه بار دیگه کدارو میذارم

این کد اکتیویتیfav:

#Region  Activity Attributes 
#FullScreen: False
#IncludeTitle: False
#End Region


Sub Process_Globals


Dim sql1 As SQL
Dim cur As Cursor


End Sub


Sub Globals


Private Lab As Label
Private ListView1 As ListView
Private im1 As ImageView
End Sub


Sub Activity_Create(FirstTime As Boolean)




Activity.LoadLayout("fehrest")
If File.Exists(File.DirInternal , "newf3.db")=False Then
File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
End If


If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal , "newf3.db" , False)
End If


sql1.Initialize(File.DirInternal,"newf3.db",True)
cur=sql1.ExecQuery("SELECT * FROM tbl1 WHERE fav = 1")
For s=0 To cur.RowCount-1
cur.Position=s


ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
ListView1.SingleLineLayout.Label.TextColor=Colors.White
ListView1.SingleLineLayout.ItemHeight=10%y
ListView1.SingleLineLayout.Label.TextSize = 24
ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
ListView1.SingleLineLayout.Label.Width = -2
ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))


Next
End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)


    dbsarafon.fast = Value




   StartActivity(kollemataleb2)
   




End Sub

این کد اکتیویتی kollemataleb1:

#Region  Activity Attributes 
#FullScreen: False
#IncludeTitle: True
#End Region


Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim sql1 As SQL
Dim fast As String


End Sub


Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Private ListView1 As ListView


End Sub


Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("fehrest")
If File.Exists(File.DirInternal , "newf3.db")=False Then
File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
End If


If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal , "newf3.db" , False)
End If


Dim cur As Cursor
cur=sql1.ExecQuery("SELECT * FROM tbl1 where id Between 0 AND 46")
For s=0 To cur.RowCount-1
cur.Position=s


ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
ListView1.SingleLineLayout.Label.TextColor=Colors.White
ListView1.SingleLineLayout.ItemHeight=10%y
ListView1.SingleLineLayout.Label.TextSize = 24
ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
ListView1.SingleLineLayout.Label.Width = -2
ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))


Next
End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)
Dim cur1 As Cursor
cur1=sql1.ExecQuery("SELECT * FROM tbl1 WHERE id=" &Value)
cur1.Position=0


For i = 0 To 9
If cur1.GetString("pic"&i) <> Null Then
zanane.bitmap1(i).InitializeSample(File.DirAssets,cur1.GetString("pic"&i)&".jpg",Activity.Height,Activity.Width)
End If
fast=Value
StartActivity(kollemataleb2) 
Next
End Sub

اینم کد اکتیویتی kollemataleb2:

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim lable1 As Label
    Private ScrollView1 As ScrollView
	Dim i1 As PhoneIntents
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example
	Activity.LoadLayout("frm3")
	If File.Exists(File.DirInternal , "newf3.db")=False Then
	File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
	End If
	
	If kollemataleb1.sql1.IsInitialized=False Then
	kollemataleb1.sql1.Initialize(File.DirInternal , "newf3.db" , False)
	End If
   Dim cur As Cursor 
   cur=kollemataleb1.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&kollemataleb1.fast)
   cur.Position =0
   
	Dim h As Int
	For i = 0 To 9
	If cur.GetString("matn"&i) <> Null Then
	lable1.Initialize("Lable1")
	lable1.Text=cur.GetString("matn"&i)
	lable1.TextColor=Colors.Black
	lable1.Typeface=Typeface.LoadFromAssets("wyekan.ttf")
	lable1.TextSize=20
	lable1.Gravity=Gravity.CENTER
	
	ScrollView1.Panel.AddView(lable1,0,h+2%y,ScrollView1.Width-10,ScrollView1.Height)
	Dim su As StringUtils
	lable1.Height=su.MeasureMultilineTextHeight(lable1,lable1.Text)+10
	h = h+ su.MeasureMultilineTextHeight(lable1,lable1.Text)+30
	ScrollView1.Panel.Height=h
	End If
	
	If cur.GetString("pic"&i) <> Null Then
	Dim image As ImageView
	image.Initialize("imageview")
	image.Tag=cur.GetString("pic"&i)
	
	ScrollView1.Panel.AddView(image,0,h,ScrollView1.Width,ScrollView1.Height)
	image.Bitmap=zanane.bitmap1(i)
	 
	If zanane.bitmap1(i).width > 100%x Then
	image.Width=100%x
	image.Height=(image.Width/zanane.bitmap1(i).width)*zanane.bitmap1(i).height	
	image.Gravity=Gravity.CENTER 
	
	Else
	 image.Width=zanane.bitmap1(i).width
	 image.Width=zanane.bitmap1(i).height
	 image.Left=(100%x - image.Width)/2
	 End If
	
	h= h + image.Height + 38
	ScrollView1.Panel.Height=h
	End If 
	 Next

End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

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

[nasim 370]

 

شرمنده من یه جای کدها رو اشتباه دادم؛یه بار دیگه کدارو میذارم

این کد اکتیویتیfav:

#Region  Activity Attributes 
#FullScreen: False
#IncludeTitle: False
#End Region


Sub Process_Globals


Dim sql1 As SQL
Dim cur As Cursor


End Sub


Sub Globals


Private Lab As Label
Private ListView1 As ListView
Private im1 As ImageView
End Sub


Sub Activity_Create(FirstTime As Boolean)




Activity.LoadLayout("fehrest")
If File.Exists(File.DirInternal , "newf3.db")=False Then
File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
End If


If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal , "newf3.db" , False)
End If


sql1.Initialize(File.DirInternal,"newf3.db",True)
cur=sql1.ExecQuery("SELECT * FROM tbl1 WHERE fav = 1")
For s=0 To cur.RowCount-1
cur.Position=s


ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
ListView1.SingleLineLayout.Label.TextColor=Colors.White
ListView1.SingleLineLayout.ItemHeight=10%y
ListView1.SingleLineLayout.Label.TextSize = 24
ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
ListView1.SingleLineLayout.Label.Width = -2
ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))


Next
End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)


    dbsarafon.fast = Value




   StartActivity(kollemataleb2)
   




End Sub

دشمنتون شرمنده 

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

 

 

در واقع به این خط گیر داده

   cur=kollemataleb.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&kollemataleb.fast)

[alirezakazemizaroomi 437]

به جای این:

cur=kollemataleb.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&kollemataleb.fast)

باید اینو بذاری دیگه

cur=kollemataleb1.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&kollemataleb1.fast)

مگه کدهای قبلی رو تغییر ندادین؟

[nasim 370]

به جای این:

cur=kollemataleb.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&kollemataleb.fast)

باید اینو بذاری دیگه

cur=kollemataleb1.sql1.ExecQuery("SELECT * FROM tbl1 WHERE id="&kollemataleb1.fast)

مگه کدهای قبلی رو تغییر ندادین؟

چرا تغییر دادم اسم اکتیویتی من kollemataleb بود دیگه اسم اونجا رو عوض کردم چون موقع کپی کردن هم قرمز نشونشون داد

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

[alirezakazemizaroomi 437]

اصلا کدهای قبلی رو بیخیال بشین همین سه تا اکتیویتی رو که تو پست قبلی گذاشتم رو کپی کن باید درست کار کنه(،من تو سورس شما گذاشتم درست کارمیکنه)

[nasim 370]

اصلا کدهای قبلی رو بیخیال بشین همین سه تا اکتیویتی رو که تو پست قبلی گذاشتم رو کپی کن باید درست کار کنه(،من تو سورس شما گذاشتم درست کارمیکنه)

بازم همون ارور رو میده اگه ممکنه خواهش کنم کدهای خودمو که تغییردادین و جاب گرفتین رو برام بذارین

اسباب زحمت میشه براتون

لطف میکنین

[nasim 370]

کسی نیست جواب بده...

[nasim 370]

شما باید آی دی آیتمی که روی آن کلیک شده است را در یک Value بریزید و سپس شرط بگزارید که برای مثال اگر آی دی بین 1 تا 10 بود صفحه مطالب مخصوص به آن سری از آی دی را باز کند ، اگر آی دی بین 11 تا 20 بود صفحه مطالب مخصوص به آن سری از آی دی ها را باز کند.این کد ها باید در ساب کلیک لیست ویو قرار بگیرد.

دوباره سلام

آقا مهدی من هرکاری کردم نشد

میشه این حرفی که گفتین رو به صورت کد توضیح بدین

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

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

اگه ممکنه راهنماییم کنید که خیلی لنگ موندم

[مهران محمودی 778]

درود،

متاسفانه بنده سوال شما رو درست متوجه نشدم

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

 

http://answercenter.ir/topic/4850-%D8%AF%D9%88%D8%B1%D9%87-%D8%A2%D9%85%D9%88%D8%B2%D8%B4%DB%8C-%D8%B3%D8%A7%D8%AE%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%B9%D9%84%D8%A7%D9%82%D9%87-%D9%85%D9%86%D8%AF%DB%8C/

 

http://answercenter.ir/topic/404-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%B3%D8%A7%D8%AE%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%B9%D9%84%D8%A7%D9%82%D9%87-%D9%85%D9%86%D8%AF%DB%8C-%D9%87%D8%A7-%D8%AF%D8%B1-basic4android/

 

http://answercenter.ir/topic/6291-%D8%A7%D9%85%D9%88%D8%B2%D8%B4-%D8%B3%D8%A7%D8%AE%D8%AA-%D9%84%DB%8C%D8%B3%D8%AA-%D8%B9%D9%84%D8%A7%D9%82%D9%87-%D9%85%D9%86%D8%AF%DB%8C-%D9%87%D8%A7/

[Farzad Musavi 576]

بارها بحث شده در این مورد سرچ کنید بهترین راه استفاده از یک تیبله و هیتلر کردنش بر اساس یه فیلد

[مجید آرتا 5,874]

سلام

خب بزارید راهنماییتون کنم.

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

توی این ستون اون اطلاعات یا رکورد هایی که جزء یک دسته هستند یک مقدار بهشون توی فیلد Parent  نسبت بدید.

مثلا اطلاعات شماره 1 تا 10 بنده دوست دارم جزء دسته بندی نوع 1 باشند.خب بنده میام ستون Parent  اطلاعات یک تا ده رو عدد ( مثلا ) 1 رو قرار میدم.

در ضمن برای نمایش متنون هم نیازی نیست از چندین اکتویتی استفاده کنید.از یک اکتویتی میتونید استفاده کنید.

حالا ادامه بحثمون...

خب شما توی اکتیویتی فهرستتون توی رویداد دکمه موقع StartActivity مقدار Parent  رو میفرستید و توی رویداد اکتیویتی که میخوایید مثلا ااطلاعات 1 تا 10 رو نشون بدید به این شکل عمل می کنید :

Dim C As Cursor
C = SQL.ExecQuery("SELECT * FROM tbl WHERE Parent="&Main.parent)

For i = 0 To C.RowCount - 1
 C.Position = i
 Lv.AddSingleLine2(C.GetString("Title"),C.GetInt("id"))
Next

خب تا اینجای کار ما در مورد اکتویتی فهرست و اکتیویتی دسته بندی صحبت کردیم.

حالا واسه اکتیویتی مطلبتون هم طبق گذشته عمل کنید.اگه از لیست ویو استفاده می کنید که Value  مربوط به ItemClick  رو به اکتیویتی مطلب میفرستید.اگه که از Multi Panel  استفاده می کنید خب باز از Tag  استفاده می کنید.یعنی این مقدار رو برای کرفتن مطلب آیتمی که روش کلیک میشه نیاز داریم.

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

موفق باشید

موفق باشید.

[alirezakazemizaroomi 437]

سورستو پخ کن تا درستش کنم

[alirezakazemizaroomi 437]

سلام

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

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

یکی اکتیویتی fav که کدهاش اینطوری میشه،همینو کپی کن تو سورست:

Sub Process_Globals


Dim sql1 As SQL
Dim cur As Cursor


End Sub


Sub Globals


Private Lab As Label
Private ListView1 As ListView
Private im1 As ImageView
End Sub


Sub Activity_Create(FirstTime As Boolean)




Activity.LoadLayout("fehrest")
If File.Exists(File.DirInternal , "newf3.db")=False Then
File.Copy(File.DirAssets , "newf3.db", File.DirInternal , "newf3.db")
End If


If sql1.IsInitialized=False Then
sql1.Initialize(File.DirInternal , "newf3.db" , False)
End If


sql1.Initialize(File.DirInternal,"newf3.db",True)
cur=sql1.ExecQuery("SELECT * FROM tbl1 WHERE fav = 1")
For s=0 To cur.RowCount-1
cur.Position=s


ListView1.AddSingleLine2(cur.GetString("fast"),cur.GetInt("id"))
ListView1.SingleLineLayout.Label.Gravity=Gravity.CENTER
ListView1.SingleLineLayout.Label.TextColor=Colors.White
ListView1.SingleLineLayout.ItemHeight=10%y
ListView1.SingleLineLayout.Label.TextSize = 24
ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("bmehrbd.ttf")
ListView1.SingleLineLayout.Label.Width = -2
ListView1.SingleLineLayout.Label.SetBackgroundImage(LoadBitmap(File.DirAssets,"btn.png"))


Next
End Sub


Sub Activity_Resume


End Sub


Sub Activity_Pause (UserClosed As Boolean)


End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)






   StartActivity(kolle mataleb)
   




End Sub

اکتیویتی kolle mataleb هم اکتیویتی هست که همه مطالبتو توش از دیتابیس فراخوانی کردی

 

[nasim 370]

سورستو پخ کن تا درستش کنم

بفرمایین

اجازه پخ خصوصی نمیدن

اینم لینکش

http://s3.picofile.com/file/8215192350/khayati.zip.html

[nasim 370]

سلام

خب بزارید راهنماییتون کنم.

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

توی این ستون اون اطلاعات یا رکورد هایی که جزء یک دسته هستند یک مقدار بهشون توی فیلد Parent  نسبت بدید.

مثلا اطلاعات شماره 1 تا 10 بنده دوست دارم جزء دسته بندی نوع 1 باشند.خب بنده میام ستون Parent  اطلاعات یک تا ده رو عدد ( مثلا ) 1 رو قرار میدم.

در ضمن برای نمایش متنون هم نیازی نیست از چندین اکتویتی استفاده کنید.از یک اکتویتی میتونید استفاده کنید.

حالا ادامه بحثمون...

خب شما توی اکتیویتی فهرستتون توی رویداد دکمه موقع StartActivity مقدار Parent  رو میفرستید و توی رویداد اکتیویتی که میخوایید مثلا ااطلاعات 1 تا 10 رو نشون بدید به این شکل عمل می کنید :

Dim C As Cursor
C = SQL.ExecQuery("SELECT * FROM tbl WHERE Parent="&Main.parent)

For i = 0 To C.RowCount - 1
 C.Position = i
 Lv.AddSingleLine2(C.GetString("Title"),C.GetInt("id"))
Next

خب تا اینجای کار ما در مورد اکتویتی فهرست و اکتیویتی دسته بندی صحبت کردیم.

حالا واسه اکتیویتی مطلبتون هم طبق گذشته عمل کنید.اگه از لیست ویو استفاده می کنید که Value  مربوط به ItemClick  رو به اکتیویتی مطلب میفرستید.اگه که از Multi Panel  استفاده می کنید خب باز از Tag  استفاده می کنید.یعنی این مقدار رو برای کرفتن مطلب آیتمی که روش کلیک میشه نیاز داریم.

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

موفق باشید

موفق باشید.

 

آقا مجید توضیح شما درست ولی من خوب متوجه نشدم میشه یکم سطح پایین بگید

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

اگه ممکنه یکم واضحتر توضیح بدین