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

[mostafa.kasiri 115]

با سلام من یک مشکل در دیتابیس دارم می خوام روی هر کدوم از آیتم ها که زد یک مسیج باکس نشون بده مشخصات اون حالا من از این کد استفاده کردم اما روی هر ایتمی که میزنیم مشخصات یکی است باید چی کار کنم؟

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals

End Sub

Sub Globals
	Dim sql1 As SQL'
	Dim cur As Cursor
	Private ListView1 As ListView
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("main")
	File.Copy(File.DirAssets,"data.db",File.DirInternal,"data.db") 'دستور کپی کردن دیتابیس
	sql1.Initialize(File.DirInternal,"data.db",True)

	cur = sql1.ExecQuery ("SELECT * FROM data")
	For i = 0 To cur.RowCount - 1
		cur.Position = i
		ListView1.AddSingleLine2(cur.GetString("name"),cur.GetString("adres"))
		ListView1.SingleLineLayout.Label.TextColor = Colors.Black
		ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER
	Next
	

End Sub
Sub ListView1_ItemClick(Position As Int , Value As Object )
	Msgbox("نام داروخانه:"&cur.getstring("name") & CRLF & "نام دکتر:"& cur.getstring("nameman") &CRLF& "آدرس:"&cur.getstring("adres") & CRLF & "شماره:"& cur.getstring("shomare") ,"info")
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

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

درود

خب مشخصه یک مقدار رو برمیگردونه 

شما اومدید از AddSingleLine2 استفاده کردید... مقدار اول میشه همون مقدار نمایشی توی لیست ویو

مقدار دوم هم میشه مقدار برگشتی

یعنی شما اگه همین الان بیایید توی ItemClick بنویسید :

MsgBox(Value,"")

مسیج باکس بهتون address رو برمیگردونه !

اگه نخواهیم زیاد کدهاتون رو عوض کنید یه کار بهتون میگم انجام بدید احتمال زیاد مشکلتون حل میشه :

این کد رو :

ListView1.AddSingleLine2(cur.GetString("name"),"نام داروخانه:"&cur.getstring("name") & CRLF & "نام دکتر:"& cur.getstring("nameman") &CRLF& "آدرس:"&cur.getstring("adres") & CRLF & "شماره:"& cur.getstring("shomare"))

 

با کد خودتون جایگذین کنید

حالا توی آیتم کلیک هم فقط این رو بنویسید :

MsgBox(Value,"Info")

احتمالا چیزی که میخواهید میشه...

نتیجه رو گزارش بدید

موفق باشید