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

[amin90297 0]

     

             Activity.RemoveAllViews
             Activity.LoadLayout("Lm")
             ListView1.Clear
	 Sql1.Initialize(File.DirInternal , "data.db" , True)
	Dim Cur As Cursor
            Cur = Sql1.ExecQuery("Select * From TblMain ")  
             ListView1.SingleLineLayout.ItemHeight = 10%Y
	 ListView1.SingleLineLayout.Label.Color =Colors.White
             ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER
   	 ListView1.SingleLineLayout.Label.TextSize = 15
	 ListView1.SingleLineLayout.Label.TextColor = Colors.Black
	 ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets ("byekan.ttf")

	Cur.Position =0
	ListView1.AddSingleLine2( Cur.GetString("data"), Cur.GetInt("FehrId"))
	If i = 1 Then
	i = i + 1
	Cur.Position = i
	           End If

 

 

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