عزیز یه اشکال جدی به نظرم دارین. شما اومدین آیتم رو سراسری تعریف کردین. نباید همچین کاری بکنید. باید هر آیتم رو تو حلقه تعریف مقداردهی و اونو به لیست بدین. تو حلقه زیر اشتباه کردین اصن کلا مشخصه طبق آموزشا پیش نرفتین هم خودتونو اذیت کردین هم ما رو. من تو آموزشا آیتم رو اینجوری تعریف نکردم عزیز . حلقه زیر اشتباهه اولا نوتیفی رو تو حلقه گذاشتین. بعد آیتم رو باید تو حلقه تعریف کنید و اینشیالایز کنید نه اینکه تو گلو بال.
For Each MapData As Map In Data
item.Initialize
item.Id = MapData.Get("id")
item.t1 = MapData.Get("t1")
lis.Add(item)
pradapt.notifyDatasetChange ///// این اینجا چیکار میکنه؟؟؟
Next
به این صورت میشه حلقه.
For Each MapData As Map In Data
Dim item As items
item.Initialize
item.Id = MapData.Get("id")
item.t1 = MapData.Get("t1")
lis.Add(item)
Next
pradapt.notifyDatasetChange
متد زیر رو هم که اشتباه نوشتید تو خود متد تعریف کنید itm رو.
Sub pr_onBindViewHolder(itemPanel As Panel,position As Int,viewtype As Int)
itemPanel.Width = 100%X
itemPanel.Height = 21%y
itm = lis.Get(position) //////// آیتم رو همینجا تعریف کن. نه تو گلوبال
Dim panel As Panel = itemPanel.GetView(0)
Dim lbl1 As Label = panel.GetView(0)
Dim p As Panel = panel.GetView(6)
p.Tag = itm.id
lbl1.Text = itm.t1
End Sub