ارور Integer cannot be cast to java.lang.CharSequence

[zipzip84 2]

سلام به همه دوستان

یک لیست ویو ایجاد کردم ، وقتی توی sub ایتم کلیکش msgbox می نویسم که value یا position را نشون بده این ارور را میده

Msgbox(Value,Position)

java.lang.ClassCastException: java.lang.Integer cannot be cast to java.lang.CharSequence

لایبرری باید اضافه کنم ؟ یا مشکل از جای دیگه است ؟

من تازه کار هستم اما این کد را توی آموزشی که میبینم دیدم دقیقا مو به مو نوشتم و نمیدونم چرا ارور میده

ممنون میشم راهنمایی کنید

 

[محمدرضا شاهپیری 5,583]

در 2 ساعت قبل، zipzip84 گفته است :

سلام به همه دوستان

یک لیست ویو ایجاد کردم ، وقتی توی sub ایتم کلیکش msgbox می نویسم که value یا position را نشون بده این ارور را میده

Msgbox(Value,Position)

java.lang.ClassCastException: java.lang.Integer cannot be cast to java.lang.CharSequence

لایبرری باید اضافه کنم ؟ یا مشکل از جای دیگه است ؟

من تازه کار هستم اما این کد را توی آموزشی که میبینم دیدم دقیقا مو به مو نوشتم و نمیدونم چرا ارور میده

ممنون میشم راهنمایی کنید

 

عزیز Msgbox نمیتونه اینتیجر رو توی پیغام نشون بده. باید ورودیش از نوع string باشه. اگه میخواید پوزیشنو نشون بدین اول اونو تبدیل به رشته کنید.

[zipzip84 2]

در 14 ساعت قبل، محمدرضا شاهپیری گفته است :

عزیز Msgbox نمیتونه اینتیجر رو توی پیغام نشون بده. باید ورودیش از نوع string باشه. اگه میخواید پوزیشنو نشون بدین اول اونو تبدیل به رشته کنید.

اگه آیتم سوم را انتخاب کنم ؛ هم مقدار value و هم مقدار position را دو میده ! و البته که کنارشون هم علامت ' را اضافه می کنه ، چه اشتباهی کردم توی کدهام ؟

Sub searchbtn_Click
    listanswer.Visible=False
    srctext=searchText.Text
    Dim strname As String
    Dim i As Int
    ListDarkhastKonande.Visible=True
    Dim cur1 As Cursor

    
    cur1=sqlomrancars.ExecQuery("Select * from passengers where name like '%" & srctext & "%'")
    
    For i = 0 To cur1.RowCount-1
    
        cur1.position=i
        strname=cur1.getstring("name")
        ListDarkhastKonande.AddSingleLine2(strname,i)
        
        
    Next
    
    
End Sub


Sub ListDarkhastKonande_ItemClick (Position As Int, Value As Object)
    
    msgbox("'"&Value&"'","'"&Position&"'")
    
End Sub

 

[محمدرضا شاهپیری 5,583]

در 2 ساعت قبل، zipzip84 گفته است :

اگه آیتم سوم را انتخاب کنم ؛ هم مقدار value و هم مقدار position را دو میده ! و البته که کنارشون هم علامت ' را اضافه می کنه ، چه اشتباهی کردم توی کدهام ؟

 

عزیز باید تبدیل به استرینگ کنید. به شکل زیر

Sub ListDarkhastKonande_ItemClick (Position As Int, Value As Object)
Dim title As String=Value
Dim subtitle As String=Position
MsgboxAsync(title,subtitle)
End Sub

 

[zipzip84 2]

در 4 ساعت قبل، محمدرضا شاهپیری گفته است :

عزیز باید تبدیل به استرینگ کنید. به شکل زیر

Sub ListDarkhastKonande_ItemClick (Position As Int, Value As Object)
Dim title As String=Value
Dim subtitle As String=Position
MsgboxAsync(title,subtitle)
End Sub

 

ممنونم ، ببخشید سوالم ابتدایی بود