رفتن به مطلب
  • 0

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


mahdig502

سوال

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

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

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

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

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

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

omli_untitled-1_thumb.jpg

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

5 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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


الان مشکل من 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 را با هربار کلیک نشون میداد 


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


 


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


لینک ارسال
به اشتراک گذاری در سایت های دیگر

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 محسوب نمیشه

 

:fekr:

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

یک سوال 

چرا شما 

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 تعریف نکردید؟ پس چرا تعریف دوباره؟

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...