ارورinvalid doublr"" مربوط به تگ و سندر باتن

[mahdig502 27]

سلام خدمت استادان محترم

ببخشید باز من سوال میکنم

دوستان من یک باتن دارم که در هرصفحه متن است,(توی اکشن بار هستش) که میخوام تو هر صفحه یک کاری کنه 

این کد اکتیویتی کریت و باتن مورد نظر

Sub Activity_Create(FirstTime As Boolean)


    Activity.LoadLayout("frm")
    If File.Exists(File.DirInternal,"b.db")=False Then
File.copy(File.DirAssets,"b.db",File.DirInternal,"b.db")
End If
sql1.Initialize(File.DirInternal,"b.db",True)
    cursor3 = sql1.ExecQuery("SELECT id FROM tbl")


For i=0 To cursor3.RowCount-1
btnd.Initialize("btnd")
btnd.Tag=i
Next
End Sub

Sub btnd_Click
    Dim d As Int 
Dim btn2 As Button
btn2.Initialize("btn2")
    Dim cursor3 As Cursor
    cursor3 = sql1.ExecQuery("SELECT id FROM tbl")
    
    btn2=Sender
    cursor3.Position =btn2.Tag
d = btn2.Tag


If d = 1 Then 
ToastMessageShow("1",True)
End If
If d = 2 Then 
ToastMessageShow("2",True)
End If
If d = 3 Then 
ToastMessageShow("3",True)
End If


End Sub

اینم عکسی که از دیباگ لگاسی گرفتم

 

[mahdig502 27]

اساتید این دفعه یکم کدهارا کم کردم و سندرم استفاده نکردم ارور نمیده 

الان مشکل من cursor3.position هست که نمیدونم مساوی چی قرار بدم 

این کد های جدیدمه 

Sub Activity_Create(FirstTime As Boolean)


    Activity.LoadLayout("frm")

    If File.Exists(File.DirInternal,"b.db")=False Then

	File.copy(File.DirAssets,"b.db",File.DirInternal,"b.db")

	End If

	sql1.Initialize(File.DirInternal,"b.db",True)

    cursor3 = sql1.ExecQuery("SELECT id FROM tbl")


End Sub

Sub btnd_Click

Dim d As Int

    d = cursor3.GetInt("id")

    cursor3.Position =0

    If d = 1 Then

    ToastMessageShow("1",True)

    End If

        If d = 2 Then

    ToastMessageShow("2",True)

    End If

        If d = 3 Then

    ToastMessageShow("3",True)

    End If

    

End Sub

اول اومدم cursor3.Position را 0 کردم که فقط 

ToastMessageShow("1",True)

را نشون داد با هرکلیک در هر صفحه 

 

بعد cursor3.Position را در حلقه گذاشتم که ایندفه از توست مسیج شو1 تا 3 را با هربار کلیک نشون میداد 

هرچی هست زیر سر خودش 

 

ممنون میشم کمک کنید یا مشکلشا بگید 

[mahdig502 27]

Sub Globals

Private ScrollView1 As ScrollView
		Dim fara As Farakhani
		Private Button1 As Button
	Private Button2 As Button
	Private Button3 As Button
	Dim ts As TextSetting
	Dim c1,cur1,cursor3 As Cursor
	Dim sql1 As SQL
	Dim label1 As Label
	Dim arc1 As ArcMenu
	Private Panel1 As Panel
	Private Panel2 As Panel
	Private btnd As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)

    Activity.LoadLayout("frm")
    If File.Exists(File.DirInternal,"b.db")=False Then
	File.copy(File.DirAssets,"b.db",File.DirInternal,"b.db")
	End If
	sql1.Initialize(File.DirInternal,"b.db",True)
    cursor3 = sql1.ExecQuery("SELECT id FROM tbl")

	For i=0 To cursor3.RowCount-1
	btnd.Initialize("btnd")
	btnd.Tag=i
	Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Button1_Click


Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","1",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)

End Sub
Sub Button2_Click
Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","2",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)
End Sub
Sub Button3_Click
Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","3",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)
End Sub
Sub Button4_Click
Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","4",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)
End Sub
Sub Button5_Click
Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","5",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)
End Sub
Sub Button6_Click
Activity.LoadLayout("s")
	label1.Initialize("")
fara.FarakhaniMatn("b.db",sql1,c1,"select * from tbl where id =","6",label1,"txt")
ts.Initialize
ScrollView1.Panel.AddView(label1,0,0,100%x,100%y)
ts.LongText(label1,label1.Text,25,ScrollView1,1.2)
End Sub


Sub btnd_Click
    Dim d As Int 
	Dim btn2 As Button
    btn2=Sender
    cursor3.Position =btn2.Tag
	d = btn2.Tag
	If d = 1 Then 
	ToastMessageShow("1",True)
	End If
		If d = 2 Then 
	ToastMessageShow("2",True)
	End If
		If d = 3 Then 
	ToastMessageShow("3",True)
	End If
	
End Sub

فک کنم ناقص توضیح دادم 

استاد فرم s همون فرمیه که btnd توش هست 

و فرم frm یک فرم با 6 تا باتن که با کلیک روی هرکدومش یک صفحه متن لود میشه

 

الان کد :

For i=0 To cursor3.RowCount-1
btnd.Tag=i
Next

را کجا اضافه کنم؟

اکتیویتی کریت که نمیشه ,توی باتن های 1 تا 6 هم که اگه بزارم برایbtnd محسوب نمیشه

 

 

[mahdig502 27]

کسی از دوستان راه حلی نداره؟

[mahdig502 27]

یک روز دیگ هم گذشت 

اگر حال جواب ندارید حداقل یه سورس بگید همین کاراکرده باشه برم از روش نگاه کنم

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

سلام

یک سوال 

چرا شما 

btnd.Initialize("btnd")

کردید ؟ مگه این Button توی Designer اضافه نشده؟ پس چرا Initialize ؟ از طرفی:

اگر توی Designer تعریف نشده پس چرا Add View نشده ؟

همچنین خط زیر :

btn2.Initialize("btn2")

این کد کاملا و 100% اضافی هستش.

 

توی btnd_click هم کد زیر اضافی هستش :

Dim cursor3 As Cursor
cursor3 = sql1.ExecQuery("SELECT id FROM tbl")

شما مگه یک بار cursor3 رو توی globals تعریف نکردید؟ پس چرا تعریف دوباره؟

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