مشکل در tablayout

[mohammad3250 206]

سلام من با استفاده از دیزاین ساپورت دو صفحه ایجاد کردم که در داخل هر صفحه یک اریا لیست ویو استفاده کردم و اطلاعات انلاین میگیره

 

حالا اول کلیک میکنم درست کار میکنه ولی وقتی وقتی صفحه ها رو جابه جا میکنم برنامه قاطی میکنه ، و فقط یک ایتم اول نشون میده راهنمایی کنید لطفا

[nasim 370]

سلام من با استفاده از دیزاین ساپورت دو صفحه ایجاد کردم که در داخل هر صفحه یک اریا لیست ویو استفاده کردم و اطلاعات انلاین میگیره

 

حالا اول کلیک میکنم درست کار میکنه ولی وقتی وقتی صفحه ها رو جابه جا میکنم برنامه قاطی میکنه ، و فقط یک ایتم اول نشون میده راهنمایی کنید لطفا

سلام

اگه میشه کدا رو بذارین رفع کنیم مشکل رو

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

[mohammad3250 206]

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("buy")

ariabuy.Initialize("ariabuy")

ariabuy1.Initialize("ariabuy1")

items.Initialize

items1.Initialize

Dim cur1 As Cursor

cur1=sql1.ExecQuery("SELECT * FROM userid")

For i=0 To cur1.RowCount-1

cur1.Position=i

id=cur1.GetString("userid")

Next

abc.Initialize("abc",Me)

man.Initialize("man",Me)

abc.PostString("","")

man.PostString("","")

pcc.Initialize

pp1.Initialize("")

pp1.Color=Colors.RGB(238,238,238)

pcc.AddPage(pp1,"جدید")

pp1.AddView(ariabuy,0,1%y,100%x,85%Y)

pp2.Initialize("pp2")

pp2.Color=Colors.RGB(238,238,238)

pcc.AddPage(pp2,"مورد غلاقع")

pp2.AddView(ariabuy1,0,1%y,100%x,85%Y)

vp.PageContainer=pcc

TabLayout1.Color=Colors.RGB(255,255,255)

TabLayout1.TabIndicatorColor=Colors.RGB(244,132,0)

TabLayout1.SetTabTextColors(Colors.RGB(60,60,60),Colors.RGB(60,60,60))

TabLayout1.TabGravity=TabLayout1.GRAVITY_FILL

TabLayout1.TabMode=TabLayout1.MODE_FIXED

TabLayout1.SetViewPager(vp)

pagenum=2

End Sub

Sub JobDone (job As HttpJob)

If job.Success = True Then

Select Case job.JobName

Case "abc"

If job.GetString.Contains("notthing for shows")=True Then

Dim sk As DSSnackbar

sk.Initialize("sk",Activity,"dont item for shows",sk.DURATION_LONG)

sk.Show

Else

Dim list3() As String=Regex.Split("<br>",abc.GetString)

For i=0 To list3.Length-1

items.Add(list3(i))

Next

ariabuydb.Initialize(items.Size).ToListView(ariabuy)

End If

Case "man"

If job.GetString.Contains("dont parametr for shows")=True Then

Dim sk As DSSnackbar

sk.Initialize("sk",Activity,"dont item for shows",sk.DURATION_LONG)

sk.Show

Else

Dim json As JSONParser

json.Initialize(man.GetString)

JsonArray = json.NextArray

ariabuydb1.Initialize(JsonArray.Size).ToListView(ariabuy1)

End If

End Select

End If

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub ariabuy_getview (rowView As Panel,Position As Int)

Dim p58 As Panel

p58.Initialize("p58")

p58.LoadLayout("temp3")

rowView.AddView(p58,0,0,100%X,40%Y)

Dim lit3() As String=Regex.Split("#",items.Get(Position))

lbl_rr.Text=lit3(0).Trim

lbl_aa.Text=lit3(1)

lbl_bb.Text=lit3(2)

lbl_ss.Text=lit3(3)

p58.Tag=lit3(4)

lbl_ex.Text=lit3(5)

pagenum=2

End Sub

Sub btn_back_Click

StartActivity(home)

Activity.Finish

End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event

If KeyCode = KeyCodes.KEYCODE_BACK Then

Select pagenum

Case 1

If Msgbox2("آیا میخواهید از برنامه خارج شوید؟" ,"خروج","بله","خیر","",Null)=DialogResponse.POSITIVE Then

ExitApplication

Else

Return True

End If

Case 2

StartActivity(home)

Activity.Finish

pagenum=1

Return True

End Select

End If

End Sub

Sub ariabuy1_getview (rowView As Panel,Position As Int)

Dim p58 As Panel

p58.Initialize("p58")

p58.LoadLayout("temp3")

rowView.AddView(p58,0,0,100%X,40%Y)

Dim Json As Map = JsonArray.Get(Position)

lbl_rr.Text=Json.Get("title")

lbl_aa.Text=Json.Get("aa")

lbl_bb.Text=Json.Get("bb")

lbl_ss.Text=Json.Get("cod")

p58.Tag=Json.Get("ID")

lbl_ex.Text=Json.Get("ex")

pagenum=2

End Sub

[asheune 70]

سلام . اینجوری که من میبینم فکر کنم مشکل از تعریف متغیر ها باشه .

یکی اینکه واسه دسترسی به متغیر تو ساب ها باید اونو تو گلوبال تعریف کنی و اینکه اسم های متنوع باشه . مثلا

Dim Json As Map   و  Dim json As JSONParser   این از نظر دستوری اشکال داره چون یه نام متغیر با دو نوع مختلف . ولی چون محلی هستند خطای متغیر نمیگیره ولی فقط واسه همون ساب قابل استفاده اند

[mohammad3250 206]

سلام . اینجوری که من میبینم فکر کنم مشکل از تعریف متغیر ها باشه .

یکی اینکه واسه دسترسی به متغیر تو ساب ها باید اونو تو گلوبال تعریف کنی و اینکه اسم های متنوع باشه . مثلا

Dim Json As Map   و  Dim json As JSONParser   این از نظر دستوری اشکال داره چون یه نام متغیر با دو نوع مختلف . ولی چون محلی هستند خطای متغیر نمیگیره ولی فقط واسه همون ساب قابل استفاده اند

نه مشکل این نیست عزیزم مشکل در اداپتر های اریا لیست ویو هست،کد هام مشکل داره باهم تداخل پیدا میکنه

[mohammad3250 206]

اپ