مشکل در لیمیت

[danial1369 102]

خسته نباشید امروز خواستم برای این سورس که براتون گذاشام قابلیت لیمیت بهش بدم من کدهای لازمه رو براش توشتم و به درستی کار میکنه ولی مشکل اینه وقتی به لخر میرسه میگه ارتبات قط شد و این لوگ را برام میندازه اگه نظری دارید بگید تا درستش کنم و سورسشو براتون بذارم

کدها

Sub ScrollView1_ScrollChanged(Position As Int)
	
	If ScrollView1.ScrollPosition + ScrollView1.Height = ScrollView1.Panel.Height Then
		If dovom > ll.Size -1 Then
			dovom = ll.Size-1
			aval = aval + 10
			dovom = dovom
			ExecuteRemoteQuery("SELECT * FROM dbb1 ORDER BY id  LIMIT "&aval&" , "&dovom&"", COUNTRIES_LIST)
			
		End If
	End If
End Sub

اینم لاگش

SELECT * FROM dbb1 ORDER BY id  LIMIT 40 , -1\nYou have an error in your SQL syntax; check the manual that corresponds to your MariaDB server version for the right syntax to use near '-1' at line 1

 لاگشو ترجمه کردم اینو گفت

SELECT * FROM dbb1 ORDER BY id LIMIT 40، -1 \ n شما یک خطا در نحو SQL خود دارید؛ دستورالعمل مربوط به نسخه سرور MariaDB خود را برای نحو درست برای استفاده در نزدیکی '-1' در خط 1 بررسی کنید

[danial1369 102]

مشکلم حل شد ممنونم ازت 

[محمد رشوند 1,208]

در 10 ساعت قبل، danial1369 گفته است :

dovom = ll.Size-1

بنظرم اینجا نباید از لیست یه مقدار کم بشه

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

[danial1369 102]

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

[danial1369 102]

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

End If

بنظرم مشکل این شرته  اگه لاگشو گرفتم صفحه رسید به اخر یدونه لاگ میندازه ولی اگه بکشیم و ولش نکنیم صفحه رو , صدتا لاک میندازه نظر شما چیه

[danial1369 102]

این مشکل جوابی ندارد ایا؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[amir54 138]

در 3 ساعت قبل، danial1369 گفته است :

این مشکل جوابی ندارد ایا؟؟؟؟؟؟؟؟؟؟؟؟؟؟

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

[danial1369 102]

کدش چجوریه باید نوشت؟

[amir54 138]

در 23 دقیقه قبل، danial1369 گفته است :

کدش چجوریه باید نوشت؟

 

اول اینو تو globals

Dim ScPos = -1 as Int

و بعد کد داخل اسکرول

If ScrollView1.ScrollPosition + ScrollView1.Height = ScrollView1.Panel.Height And (Position > ScPos) Then
		If dovom > ll.Size -1 Then
			dovom = ll.Size-1
			aval = aval + 10
			dovom = dovom
			ExecuteRemoteQuery("SELECT * FROM dbb1 ORDER BY id  LIMIT "&aval&" , "&dovom&"", COUNTRIES_LIST)
			ScPos = Position
		End If
End If

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