مشکل جدی با لیست ویو

[ali2016 54]

سلام و دردو فراوان

 

همه ی اساتید میدونید که برای کپی یکی از آیتم های لیست ویو در یک تکست میشه از کد زیر استفاده کرد 

Sub listview1_ItemClick (Position As Int, Value As Object)
	edittext1.text=listview1.GetItem(Position)
End Sub

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

اگه آیتم یک با شه "سلام بر شما"

و آیتم دو باشه "علیک سلام"

و ما روی آِیتم دوم کلیک کنیم شماره اون آیتم رو میده 

 

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

این یکی از متغیرامه

Dim fara As Farakhani

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

fara.initialize("sql english2.db","TB1",True)
fara.TwoLineTitr(ListView1,"TEXT","SCOND","ID")

 

 

 

این در قسمت آیتم کلیک

Dim aria As String
    aria = Value

 EditText1.Text = aria

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

درود

ببینید شما توی کد اول اومدید Position رو گرفتید که مقدار عددی رو برمیگردونه و توی اون قسمت آخر که واسه آیتم کلیک هست اومدید String تعریف کردید و Value رو بهش دادید

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

[ali2016 54]

درود

ببینید شما توی کد اول اومدید Position رو گرفتید که مقدار عددی رو برمیگردونه و توی اون قسمت آخر که واسه آیتم کلیک هست اومدید String تعریف کردید و Value رو بهش دادید

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

فکر کنم منظورتونو درست متوجه شدم

 

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

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

عدد 0 رو برمیگردونه عجیبه  

 

خودم که دیگه مخم پوکیده شما کمکم کنید    

[Kazem Forghani 2,927]

سلام

ببینید به احتمال زیاد این کتابخانه مقدار Value هر آیتم لیست ویو رو برابر با ID اون رکورد قرار می ده. (برای تشخیص در صفحه مطلب)

راهی که مد نظر من هست اینه که از همون کتابخانه SQL و روش اصلی فعلا استفاده بکنید. تا خود آقای اسکندری بیان و مشکل رو حل کنن.

If File.Exists(File.DirInternal, "datas.db") = False Then
	File.Copy(File.DirAssets, "datas.db", File.DirInternal, "datas.db")
End If
sql1.Initialize(File.DirInternal, "datas.db", True)
cur = sql1.ExecQuery("SELECT * FROM tbl")
For i = 0 To cur.RowCount-1
	cur.Position = i
	l.AddSingleLine(cur.GetString("Value"))
Next

موفق باشید

[shahab.es 5,429]

سلام هموطن

هموطن ، فراحوانی برای راحتی کار شما دوست عزیز ، میاد و ای دی رو میده به ولیو

حالا شما اگه میخوای بیای و تیتر مربوط به اون ایدی رو بگیری داداش

بیا و از متد گت استرینگ فراخوانی استفاده بکن داداش...

اینطورییی

aria = fara.FarakhaniString("id",value,"TEXT")