خطای نمایش متن از دیتابیس

[nadersalim 5]

سلام وقت بخیر
من دیتابیسی دارم(data) که جدولش (tbl1) سه ستون(  id  , onvan ,matn) داره
موقع کلیک روی هر ایتم(onvan) برای نمایش متن، خطای زیر رو میده(تصویر ضمیمه)! مشکل از کجاست ؟

کدش هم الان میفرستم

[nadersalim 5]

دوست عزیز شما در اکتیویتی mat اصلا ارتفاع ScrollView رو تنظیم نکردید 

ارتفاع ScrollView یا همون Panel.Height اش رو تنظیم کنید 

دستون درد نکنه  با textsetting  حل شد 

[nadersalim 5]

اکتیویتی (main)

Sub Process_Globals
	
	Dim sql1 As SQL
	Dim meqdar As String
	
End Sub

Sub Globals
	

	Private ScrollView1 As ScrollView
	Private Label1 As Label
	Private Panel1 As Panel
	Dim cur1 As Cursor
	Dim h As Int=3%y
	Private Button1 As Button
	
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("1")
	
	If File.Exists(File.DirInternal,"data.db")=False Then
	File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
	End If
	
	If sql1.IsInitialized=False Then
	sql1.Initialize(File.DirInternal,"data.db",False)
	End If
	
	cur1=sql1.ExecQuery("select * from tbl1")
	For i=0 To cur1.RowCount-1
	cur1.Position=i
	
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,h,100%x,100%y)
	p.LoadLayout("2")
	Label1.Text=cur1.GetString("onvan")
	h=h+12%y
	ScrollView1.Panel.Height=h+20%y
	Next

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub p_Click
	Dim b As Panel
	b=Sender
	meqdar=b.Tag
	StartActivity(mat)
End Sub

[nadersalim 5]

اکتیویتی نمایش متن(mat)

Sub Globals
	
	Private ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	Activity.LoadLayout("matlab")
	
	If File.Exists(File.DirInternal,"data.db")=False Then
	File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db")
	End If
	
	If Main.sql1.IsInitialized=False Then
	Main.sql1.Initialize(File.DirInternal,"data.db",False)
	End If
	
	Dim cur1 As Cursor
	cur1=Main.sql1.ExecQuery("select * from tbl1 where id="&Main.meqdar)
	cur1.Position=0
	Dim l As Label
	l.Initialize("l")
	l.Text=cur1.GetString("matn")
	
	ScrollView1.Panel.AddView(l,0,0,ScrollView1.Width,ScrollView1.Height)
	Dim st As StringUtils
	l.TextSize=16
	l.Height=st.MeasureMultilineTextHeight(l,l.Text)
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

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

توی اکتیویتی Main توی حلقه p.tag رو مساوی GetString("id") قرار بدید ( بعد از خط 53 )

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

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

[nadersalim 5]

توی اکتیویتی Main توی حلقه p.tag رو مساوی GetString("id") قرار بدید ( بعد از خط 53 )

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

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

سلام!احسنت  دستتون درد نکنه حل شد اما ی مشکل دیگه دارم ،متن رو کامل اسکرول نمیکنه تو سایت  جستجو هم کردم اما چیزی ک جواب بده پیدا نکردم

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

سلام!احسنت  دستتون درد نکنه حل شد اما ی مشکل دیگه دارم ،متن رو کامل اسکرول نمیکنه تو سایت  جستجو هم کردم اما چیزی ک جواب بده پیدا نکردم

خواهش میکنم ...

چند % کم داره حدودا ؟ چه مقدار از متن رو نشون نمیده ؟

[nadersalim 5]

خواهش میکنم ...

چند % کم داره حدودا ؟ چه مقدار از متن رو نشون نمیده ؟

تقریبا بالای 50% متن رو

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

تقریبا بالای 50% متن رو

 

دوست عزیز شما در اکتیویتی mat اصلا ارتفاع ScrollView رو تنظیم نکردید 

ارتفاع ScrollView یا همون Panel.Height اش رو تنظیم کنید 

[nadersalim 5]

.

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

 

من تو جدول دیتابیسم فیلدهای: id,onvan,matn1,matn2 رو دارم حالا اگه بخوام تو اسکرول ویویی که matn1 رو نمایش میده دکمه ای بزارم که matn2 مربوط به همون متنی که توش هستم رو با اسکرول ویویی در یک سمت گوشی نمایش بده بطوری که همmatn1 و هم matn2 دیده بشن وهمچنین با کیک  روی اسکرول  matn1، اسکرول matn2 بسته بشه باید چکارکنم؟

 

درود مجدد

عنوان سوال به عنوان تاپیک مربوط نمیشه

لطفا سوال های متفاوت خود را در تاپیک های مجزا مطرح فرمایید

موفق باشید 

[nadersalim 5]

درود مجدد

عنوان سوال به عنوان تاپیک مربوط نمیشه

لطفا سوال های متفاوت خود را در تاپیک های مجزا مطرح فرمایید

موفق باشید 

وقت بخیر

داداش منم گفتم نمیدونم موضوعشو چی بزارم که!!!!