ارور هنگام لیمیت دادن به دیتابیس

[amir mahdizadeh 109]

Sub Spinner2_ItemClick (Position As Int, Value As Object)

cur1 = sql1.ExecQuery("SELECT * FROM hospital WHERE Tcode ='"&tcode& "' and Ccode='"&Position&"'+1' LIMIT 10 OFFSET "&offset&" ")

ScrollView1.Panel.RemoveAllViews

stop = 0

For i = 1 To cur1.RowCount-1

cur1.Position = i

Dim p As Panel

p.Initialize("p")

ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)

stop = stop + 300dip

p.LoadLayout("listhospital")

tell.Tag = i

website.Tag = i

name1.Text = " نام بیمارستان"

name1.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

name1.TextColor = Colors.Black

name1.Gravity = Gravity.RIGHT

name1.TextSize = 14

name.Text = cur1.GetString("Hname")

name.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

name.TextColor = Colors.Black

name.Gravity = Gravity.RIGHT

name.TextSize = 14

addres1.Text = " آدرس"

addres1.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

addres1.TextColor = Colors.Black

addres1.Gravity = Gravity.RIGHT

addres1.TextSize = 14

addres.Text = cur1.GetString("discription")

addres.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

addres.TextColor = Colors.Black

addres.Gravity = Gravity.RIGHT

addres.TextSize = 14

tell1.Text = " تلفن تماس"

tell1.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

tell1.TextColor = Colors.Black

tell1.Gravity = Gravity.RIGHT

tell1.TextSize = 14

tell.Text = cur1.GetString("tell")

tell.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

tell.TextColor = Colors.Black

tell.Gravity = Gravity.LEFT

tell.TextSize = 14

website1.Text = " وبسایت"

website1.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

website1.TextColor = Colors.Black

website1.Gravity = Gravity.RIGHT

website1.TextSize = 14

website.Text = cur1.GetString("website")

website.Typeface = Typeface.LoadFromAssets("timesi.ttf")

website.TextColor = Colors.Black

website.Gravity = Gravity.LEFT

website.TextSize = 14

ScrollView1.Panel.Height=stop

Next

End Sub

Sub ScrollView1_ScrollChanged(Position As Int)

If ScrollView1.ScrollPosition + ScrollView1.Height = ScrollView1.Panel.Height Then

offset = offset + 10

cur1 = sql1.ExecQuery("SELECT * FROM hospital WHERE Tcode ='"&tcode& "'and Ccode='"&Position&"'+1' and LIMIT 10 OFFSET "&offset&" ")

For i = 1 To cur1.RowCount-1

cur1.Position = i

Dim p As Panel

p.Initialize("p")

ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)

stop = stop + 300dip

p.LoadLayout("listhospital")

tell.Tag = i

website.Tag = i

name1.Text = " نام بیمارستان"

name1.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

name1.TextColor = Colors.Black

name1.Gravity = Gravity.RIGHT

name1.TextSize = 14

name.Text = cur1.GetString("Hname")

name.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

name.TextColor = Colors.Black

name.Gravity = Gravity.RIGHT

name.TextSize = 14

addres1.Text = " آدرس"

addres1.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

addres1.TextColor = Colors.Black

addres1.Gravity = Gravity.RIGHT

addres1.TextSize = 14

addres.Text = cur1.GetString("discription")

addres.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

addres.TextColor = Colors.Black

addres.Gravity = Gravity.RIGHT

addres.TextSize = 14

tell1.Text = " تلفن تماس"

tell1.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

tell1.TextColor = Colors.Black

tell1.Gravity = Gravity.RIGHT

tell1.TextSize = 14

tell.Text = cur1.GetString("tell")

tell.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

tell.TextColor = Colors.Black

tell.Gravity = Gravity.LEFT

tell.TextSize = 14

website1.Text = " وبسایت"

website1.Typeface = Typeface.LoadFromAssets("KoodakB.ttf")

website1.TextColor = Colors.Black

website1.Gravity = Gravity.RIGHT

website1.TextSize = 14

website.Text = cur1.GetString("website")

website.Typeface = Typeface.LoadFromAssets("timesi.ttf")

website.TextColor = Colors.Black

website.Gravity = Gravity.LEFT

website.TextSize = 14

ScrollView1.Panel.Height=stop

Next

End If

End Sub

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

اینم ارور

 

کووووووو؟   

[amir mahdizadeh 109]

کووووووو؟   

http://s7.picofile.c...84/Untitled.png

[Farzad Musavi 576]

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

cur1 = sql1.ExecQuery("SELECT * FROM hospital WHERE Tcode ='"&tcode& "' and Ccode='"&Position&"'+1' LIMIT 10 OFFSET "&offset&" ")

این خط رو با این کدی که من میدم عوض کن

cur1 = sql1.ExecQuery("SELECT * FROM hospital WHERE Tcode ='"&tcode& "' and Ccode='"&(Position+1) &"' LIMIT 10 OFFSET "&offset&" ")

[amir mahdizadeh 109]

 

پست اول رو ویرایش کردید کدها بهم ریخت

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

cur1 = sql1.ExecQuery("SELECT * FROM hospital WHERE Tcode ='"&tcode& "' and Ccode='"&Position&"'+1' LIMIT 10 OFFSET "&offset&" ")

این خط رو با این کدی که من میدم عوض کن

cur1 = sql1.ExecQuery("SELECT * FROM hospital WHERE Tcode ='"&tcode& "' and Ccode='"&(Position+1) &"' LIMIT 10 OFFSET "&offset&" ")

ممنون فرزاد جون با این کد دیگه ارور نمیده اما فقط 9 تای اول رو چاپ میکنه

باید چکار کنم؟

[Farzad Musavi 576]

ممنون فرزاد جون با این کد دیگه ارور نمیده اما فقط 9 تای اول رو چاپ میکنه

باید چکار کنم؟

10 رو باید تغییر بدی دگ

[amir mahdizadeh 109]

منظورم اینه که فقط 9 تاشو چاپ میکنه بقیه رو دیگه نشون نمیده

به جای 10 عدد 11 رو گذاشتم الان 10 تاشو نشون میده اما به اخرش که میرسه بقیه رو لود نمیکنه

 

10 رو باید تغییر بدی دگ

[Farzad Musavi 576]

منظورم اینه که فقط 9 تاشو چاپ میکنه بقیه رو دیگه نشون نمیده

به جای 10 عدد 11 رو گذاشتم الان 10 تاشو نشون میده اما به اخرش که میرسه بقیه رو لود نمیکنه

اول اینکه i رو مساوی 0 بزار تا مجبور نشی 11 بزاری از طرفی هم یه آیتمت خونده نمیشه اونجوری

مشکل اسکرولتم بخاطر اینه که Position برای اسپینره فک کنم و تو ساب اسکرول کار نمیکنه بیا Position رو تو یه متغییر بریز بعد تو اسکرول ویو ازش استفاده کن

[amir mahdizadeh 109]

اول اینکه i رو مساوی 0 بزار تا مجبور نشی 11 بزاری از طرفی هم یه آیتمت خونده نمیشه اونجوری

مشکل اسکرولتم بخاطر اینه که Position برای اسپینره فک کنم و تو ساب اسکرول کار نمیکنه بیا Position رو تو یه متغییر بریز بعد تو اسکرول ویو ازش استفاده کن

از پیگیریت ممنون اما با عرض معذرت یکم گیج شدم میشه بیشتر توضیح بدین؟؟

شرمنده

[Farzad Musavi 576]

توی ساب گلوبال بنویس

dim ff as int

توی ساب اسپینر بنویس

ff=position

توی ساب اسکرول ویو هم اون خط cur رو با کد زیر جایگذین کن

            cur1 = sql1.ExecQuery("SELECT * FROM hospital WHERE Tcode ='"&tcode& "'and Ccode='"&(ff+1)&"' and LIMIT 10 OFFSET "&offset&" ")

[amir mahdizadeh 109]

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

هر بار که یکی از ایتم های اسپینر رو انتخاب میکنم همه چیز درسته اما به صورت شانسی روی یه ایتم دیگه که کلیک می کنم پنل ها رو نشون نمیده باید چکارش کنم؟

ببخشید که اینقدر سوال میکنم چون تا به حال با این مسولهمواجه نشده بودم پیشاپیش ممنون از همه دوستان

[Farzad Musavi 576]

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

هر بار که یکی از ایتم های اسپینر رو انتخاب میکنم همه چیز درسته اما به صورت شانسی روی یه ایتم دیگه که کلیک می کنم پنل ها رو نشون نمیده باید چکارش کنم؟

ببخشید که اینقدر سوال میکنم چون تا به حال با این مسولهمواجه نشده بودم پیشاپیش ممنون از همه دوستان

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

[amir mahdizadeh 109]

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

من 2 تا اسپینر دارم اولی واسه استان دومی واسه شهرستان ها

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

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

ممنون میشم کمکم کنید