ارور قسمتی از برنامه در رابطه با مولتی پنل

[mr-edris 186]

سلام به دوستای عزیز

اقا این کد منه

Sub JobDone (Job As HttpJob)
If Job.Success = True Then
If Job.JobName = "dl" Then
ProgressDialogHide
Dim a() As String
a = Regex.Split("<br>",readdb.GetString)
For i=0 To a.Length-1
 Dim id As String
Dim Name As String
Dim FAmily As String
Dim Sen As String
Dim Shahr As String
Dim Line As String
Dim jodasazi() As String =Regex.Split("<br>",a(i)) 
id =jodasazi(0) 
Name =jodasazi(1) 
FAmily =jodasazi(2)
Sen =jodasazi(3) 
Shahr =jodasazi(4) 
Line =jodasazi(5) 
Dim p As  Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop = stop + 35%y
p.LoadLayout("mp")
Label1.Text= id
Label2.Text= Name
Label3.Text= FAmily
Label4.Text= Sen
Label5.Text= Shahr
Label6.Text= Line
ScrollView1.Panel.Height = stop
Next
End If
End If
End Sub

متن اروری که به من میده اینه :

An error  has occurred in sub:read_jobdone(java line:537)
Java.lang.ArrayindexOutOFBoundsException : lenght:1;index=1 

[mr-edris 186]

اقا فقط یه مشکلی هست

این هی میاد ایتم یک پشت سر هم تکرار میکنه و ایتم های دیگه رو نشون نمیده چرا؟

[نیما قبادی 246]

فکر نکنم ارور از این قسمت باشه ارور از این سابه

sub:read_jobsone

ببین چی هست ؟

[mr-edris 186]

اون sub اصلا تو برنامه نبود

[mr-edris 186]

کد مولتی پنلم اشکالی نداره ایا؟

نیاز هست سورس کامل بزارم؟

[Nemesis 1,846]

کد مولتی پنلم اشکالی نداره ایا؟

نیاز هست سورس کامل بزارم؟

برادر این

lenght:1;index=1

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

حلقه For را دستکاری کن احتمالا درست میشه

ولی در این مواقع ترجیحا خودتون دیباگ کنید و مقادیر رو بخونید کاملا دستتون میاد

[mr-edris 186]

الان 5تا رکورد دارم فقط رکورد اول نشون میده اونم تکرار میشه پشت سر هم

[mr-edris 186]

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

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
Dim readdb As HttpJob
   Private ScrollView1 As ScrollView
   Private Label1 As Label
   Private Label2 As Label
   Private Label3 As Label
   Private Label4 As Label
   Private Label5 As Label
   Private Label6 As Label
   Private Panel1 As Panel
   Dim stop As Int = 3%y
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("read")
readdb.Initialize("dl",Me)


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub ex3_Click
   Select Msgbox2("آیا مایل برای بستن برنامه هستید؟","خروج از برنامه", "بله", "", "خیر", Null)
  Case DialogResponse.POSITIVE
  ToastMessageShow("تشکر بابته استفاده",False)
     Activity.Finish
  Case DialogResponse.NEGATIVE
    ToastMessageShow("مرسی که برنامه رو نبستی",False)
End Select
End Sub
Sub ref3_Click
   readdb.Download("http://line.wp.lc/dbsee.php")
   ProgressDialogShow("در حال دانلود کردن")
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success = True Then
If Job.JobName = "dl" Then
ProgressDialogHide
Dim a() As String
a = Regex.Split("<br>",readdb.GetString)
For i=0 To a.Length-1
 Dim id As String
Dim Name As String
Dim FAmily As String
Dim Sen As String
Dim Shahr As String
Dim Line As String
Dim jodasazi() As String =Regex.Split("<br>",a(i)) 'jodasazi record
id =jodasazi(0) 'Shomareh Andis
Name =jodasazi(1) 'Shomareh Andis
FAmily =jodasazi(2) 'Shomareh Andis
Sen =jodasazi(3) 'Shomareh Andis
Shahr =jodasazi(4) 'Shomareh Andis
Line =jodasazi(5) 'Shomareh Andis
Dim p As  Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop = stop + 35%y
p.LoadLayout("mp")
Label1.Text= id
Label2.Text= Name
Label3.Text= FAmily
Label4.Text= Sen
Label5.Text= Shahr
Label6.Text= Line
ScrollView1.Panel.Height = stop
Next
End If
End If
End Sub

[مهدی ایزدی 9,203]

اینم سورسش واسه تست ببینین مشملش کجاست این مشکل حل شه برنامه آمادست واسه انتشار

خداوکیلی یعنی من اینجوری توی دیتابیس آنلاین یاد دادم ؟؟؟ *r24*

[mr-edris 186]

نه خب اخه سورس من با شما فرق داره شما بگو مشکلم کجاست تا انجامش بدم فداتشم

[مهدی ایزدی 9,203]

نه خب اخه سورس من با شما فرق داره شما بگو مشکلم کجاست تا انجامش بدم فداتشم

بیا اطلاعات هرکاربر رو توی یک خط مجزا بگیر

id#esm#famil#sen#shahr#link
id#esm#famil#sen#shahr#link
id#esm#famil#sen#shahr#link
id#esm#famil#sen#shahr#link
...

برای رفتن به خط بعد هم همون <br> رو استفاده کن

[Nemesis 1,846]

اینرو

[color=#000000][color=#DD0000]For i=0 To a.Length-1[/color][/color]

به

[color=#000000][color=#DD0000]For i=0 To a.Length[/color][/color]

یا

[color=#000000][color=#DD0000]For i=1 To a.Length[/color][/color]

تغیر بده احتمالا حل بشه

[mr-edris 186]

اینم سورسش واسه تست ببینین مشملش کجاست این مشکل حل شه برنامه آمادست واسه انتشار

[mr-edris 186]

نه درست نشد داش

چرا اینجوریه این

[Nemesis 1,846]

نه درست نشد داش

چرا اینجوریه این

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

[mr-edris 186]

اقایون داداشام

کسی هنوز این مشکل نفهمیده کجاست؟

[نیما قبادی 246]

سلام

جناب ادریس خان

شما اومدین دوبار تگ Br رو خوندید این مثلما اشتباه درصورتی درست میشه که شما هم توی php تون بیاید دوبار Br رو تعریف کنید

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

موفق باشید

read.rar

[mr-edris 186]

سلام

جناب ادریس خان

شما اومدین دوبار تگ Br رو خوندید این مثلما اشتباه درصورتی درست میشه که شما هم توی php تون بیاید دوبار Br رو تعریف کنید

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

موفق باشید

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