اضافه کردن ایتم به AutoCompleteEditText

[majid08 266]

سلام 

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

لطفا راهنمایی کنید

	Dim total() As String
	total=Regex.Split("<hr>",job10.GetString)
		
	For i = 0 To total.Length -1 
	Dim json As JSONParser
	json.Initialize(total(i))
	
	Dim mma As List
	mma=json.NextArray
	
	Dim name44 As String
	name44=mma.Get(0)
	

		
'	AutoCompleteEditText1.SetItems(mma.Get(0))
		


		Next

[majid08 266]

ایتم ها رو اوردم تو دیتابیس حالا چطوری ست کنم به AutoCompleteEditText 

		
	Dim cur1 As Cursor
	cur1 = MyBank.ExecQuery("SELECT * FROM names")
		
		For i = 0 To cur1.RowCount -1
		cur1.Position = i
	
	roman_name.SetItems2(cur1.GetString("nameha"),roman_name.Typeface,Gravity.LEFT,roman_name.TextSize,Colors.Black)
	
	
		Next

اینو نوشتم ولی ارور میده