ارور Invalid double + درون پراخت بازار

[mortezasaidi 6]

با سلام

دوستان گرامی

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

برای این کار کد صفحه :

#Region  Activity Attributes 
	#FullScreen: false
	#IncludeTitle: false
#End Region

Sub Process_Globals
Dim pos As Int
Dim shomare As Int
Dim payment As bazaarpay
Dim Id As PhoneId
Dim Pardakht As Boolean
Dim RSACode As String ="MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwCtKxVlPrEu29e11B2zPI3ukYu4bVj+Pd9a1ydGw+oXkeUD00RFNd6RNz7trrpoYn7D8xZa29w1IUb2lN+yYdvSll014zgCmHeTqYPuRWipstczra0uZ5akEYSd9XDfrsyZOCfxooe52r13BovgzXM5GXMQXjgNFXttUSvL/EdqPXnamyxEvCqlaqq6pEws7slMLHusX/OWcKc7SelKPpuO7OxMKbqhJgDNHjca/+cCAwEAAQ=="
End Sub

Sub Globals

	Private ListViewFehrest As ListView
	Private ListViewData As ListView
	Dim bitmap1 As BitmapDrawable
	Dim LayoutNumber As Int
	Private btnExam As Button
	Private Button1 As Button
	Private Button2 As Button
	Private Button3 As Button
	Private Button4 As Button	
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("LayoutFehrest")
	bitmap1.Initialize(LoadBitmap(File.DirAssets,"btnclick1.png"))
	
		    Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
	
	payment.Initialize("pardakht", RSACode)
	If File.Exists(File.DirInternal,"Success-pay.txt") Or File.Exists(File.DirDefaultExternal,"Success-pay.txt") Then
	End If
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub AddSubjects

End Sub
Sub btnha

	 Activity.RemoveAllViews
	 LayoutNumber = 1
	 Activity.LoadLayout("LayoutData")
	 ListViewData.SingleLineLayout.Background = bitmap1
	 ListViewData.SingleLineLayout.Label.TextColor = Colors.Black
	 ListViewData.SingleLineLayout.Label.Gravity = Gravity.RIGHT
	 ListViewData.SingleLineLayout.Label.Gravity = Gravity.CENTER_VERTICAL
	 ListViewData.SingleLineLayout.ItemHeight = 15%y

	
	 Main.cur1 = Main.sql1.ExecQuery("SELECT * FROM tbl1 WHERE daste='"&shomare&"'")
	 For i=0 To Main.cur1.RowCount-1
	 Main.cur1.Position=i 
	 ListViewData.AddSingleLine("   " & Main.cur1.GetString("onvan"))
	 Next
 
End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean

  If KeyCode = KeyCodes.KEYCODE_BACK Then
	  	If LayoutNumber = 0 Then
		
		Activity.Finish
		StartActivity(Main)
		
		Else If LayoutNumber = 1 Then
		
		Activity.RemoveAllViews
		Activity.LoadLayout("LayoutFehrest")
		AddSubjects
		LayoutNumber = 0
		Return True
		
		End If
  End If
  
End Sub

Sub ListViewData_ItemClick (Position As Int, Value As Object)

Dim cur As Cursor
Main.cur1=Main.SQL1.ExecQuery("SELECT * FROM tbl1")

Main.cur1.Position=Value-1
	 If cur.GetInt("kharid")=1 Then
	    StartActivity(txtv)
	 Else
	 
	 Dim p As  Int
	 p = Msgbox2("تنها با پرداخت 1500 تومان از سایر مطالب جذاب کتاب لذت ببرید","پرداخت درون برنامه","پرداخت ","انصرف","",LoadBitmap(File.DirAssets ,"pay.png"))
	 If p=DialogResponse.POSITIVE Then
	 payment.RequestPayment("eshterak","inapp","pardakht1")
	 End If
	 End If
End Sub

Sub Button4_Click
	 shomare =4
	 btnha
End Sub

Sub Button3_Click
	 shomare =3
	 btnha
End Sub
Sub Button2_Click
	 shomare =2
	 btnha
End Sub
Sub Button1_Click
	 shomare =1
	 btnha
End Sub

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
Dim cur As Cursor

Main.cur1=Main.SQL1.ExecQuery("SELECT * FROM tbl1")

If Success=True Then
	
	For j=0 To cur.RowCount 
		Main.SQL1.ExecNonQuery("update tbl1 set kharid=1 where id="&j)
		Next
		ToastMessageShow("پرداخت با موفقیت انجام شد",False)
		Else
		ToastMessageShow("پرداخت انجام نشد",False)
End If

End Sub

را قرار دادم

 

اما هنگامی که کاربر بر روی مطالب کلیک کرد

ارور

java.lang.NumberFormatException: Invalid double: "مطلب 2"

می آید

 

در ضمن در دیتابیس یک ستون با نام kharid ساختم و مقدار ان را برای مطالب رایگان بر روی 1 و برای مطالب پولی بر روی 0  تنظیم کردم

 

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

[mortezasaidi 6]

دوستان راهنمایی بفرمایند :'( :'( :fekr: :fekr: