رفرش شدن صفحه بعد از حذف شدن مقداری از دیتابیس

[mohamad1520 5]

با سلام 
بنده اطلاعات دیتابیس رو روی یک اسکرول ویو نشون میدم ک یدونه دکمه برای حذف هرکدام از ایتم ها تعریف کردم دوس دارم بعد از اینکه دکمه حذف رده میشه صفحه خودکار رفرش شده و اطلاعات جدید رو نشون بده
توی کد ها بعد دستور حذف دستور لود شدن دیتابیس رو نوشتم اما عمل نمیکنه 
 

Sub del_Click
	
    sq.ExecNonQuery("DELETE FROM Interest WHERE IDB="&scb.IDB&"")
	 
	 	Dim top As Int
	top=0
	c = sq.ExecQuery("SELECT * FROM Interest")
  For i=0 To c.RowCount-1
	p1.Initialize("")
	ScrollView1.Panel.AddView(p1,0,top,100%x,Panel1.Height)
	top = top + Panel1.Height+5
	ScrollView1.Panel.Height=top
	p1.LoadLayout("interestpattern")
	c.Position = i
	cyn.Text=c.GetString("Cyn")
	brn.Text=c.GetString("Brn")
  Next
 
 
End Sub

 

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

[shahab.es 5,429]

خدمت شما

Sub Process_Globals
	
     Dim sq As SQL
	 
End Sub

Sub Globals
	
	Dim c As Cursor
	Dim p1 As Panel
	Private ScrollView1 As ScrollView
	Private brn As Label
	Private cyn As Label
	Private del As Label
	Private Label1 As Label
	Private Label2 As Label
	Private Panel1 As Panel
	Private interestpanel As Panel
		Dim top As Int = 0

End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	If File.Exists(File.DirInternal,"stcy.db") = False  Then
		File.Copy(File.DirAssets,"stcy.db",File.DirInternal,"stcy.db")
	End If
	
	If sq.IsInitialized = False Then
	sq.Initialize(File.DirInternal,"stcy.db",False)
	End If
	
    Activity.LoadLayout("interestpattern")
	Activity.LoadLayout("interest")
CreatePanel("select * from stcy")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub del_Click
	
    Dim s As Label
	s = Sender	
	ToastMessageShow(s.Tag,False)
    sq.ExecNonQuery("DELETE FROM stcy WHERE ID="&s.Tag&"")
	CreatePanel("select * from stcy")
End Sub

Sub CreatePanel(query As String)
	ScrollView1.Panel.RemoveAllViews
	ScrollView1.ScrollPosition = 0
	top = 0
c = sq.ExecQuery(query)
  For i=0 To c.RowCount-1
	p1.Initialize("")
	ScrollView1.Panel.AddView(p1,0,top,100%x,Panel1.Height)
	top = top + Panel1.Height+5
	ScrollView1.Panel.Height=top
	p1.LoadLayout("interestpattern")
	c.Position = i
	cyn.Text=c.GetString("City")
	brn.Text=c.GetString("State")
	del.Tag=c.GetInt("ID")
Next
	
End Sub

 

[mohamad1520 5]

در 3 ساعت قبل، shahab.es گفته است :

خدمت شما

Sub Process_Globals
	
     Dim sq As SQL
	 
End Sub

Sub Globals
	
	Dim c As Cursor
	Dim p1 As Panel
	Private ScrollView1 As ScrollView
	Private brn As Label
	Private cyn As Label
	Private del As Label
	Private Label1 As Label
	Private Label2 As Label
	Private Panel1 As Panel
	Private interestpanel As Panel
		Dim top As Int = 0

End Sub

Sub Activity_Create(FirstTime As Boolean)
	
	If File.Exists(File.DirInternal,"stcy.db") = False  Then
		File.Copy(File.DirAssets,"stcy.db",File.DirInternal,"stcy.db")
	End If
	
	If sq.IsInitialized = False Then
	sq.Initialize(File.DirInternal,"stcy.db",False)
	End If
	
    Activity.LoadLayout("interestpattern")
	Activity.LoadLayout("interest")
CreatePanel("select * from stcy")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub del_Click
	
    Dim s As Label
	s = Sender	
	ToastMessageShow(s.Tag,False)
    sq.ExecNonQuery("DELETE FROM stcy WHERE ID="&s.Tag&"")
	CreatePanel("select * from stcy")
End Sub

Sub CreatePanel(query As String)
	ScrollView1.Panel.RemoveAllViews
	ScrollView1.ScrollPosition = 0
	top = 0
c = sq.ExecQuery(query)
  For i=0 To c.RowCount-1
	p1.Initialize("")
	ScrollView1.Panel.AddView(p1,0,top,100%x,Panel1.Height)
	top = top + Panel1.Height+5
	ScrollView1.Panel.Height=top
	p1.LoadLayout("interestpattern")
	c.Position = i
	cyn.Text=c.GetString("City")
	brn.Text=c.GetString("State")
	del.Tag=c.GetInt("ID")
Next
	
End Sub

 

عاااااالی بود یه دنیا ممنون همونی ک میخواستم 

[mohamad1520 5]

کسی نیست جواب بده

[mohammad3250 206]

خیلی رو این موضوع کار کردم اخرش مجبور شدم 2 تا اکتویتی ایجاد کنم مثل main , main 1 ک کدهاش یکی باشه بعد از هر بار تغیر در دیتابیس بره اکتویتی بعد و اینحوری تغیر کنه ، شاید دوستان راه حل بهتری داشته باشن

[mohamad1520 5]

در ۱ ساعت قبل، mohammad3250 گفته است :

خیلی رو این موضوع کار کردم اخرش مجبور شدم 2 تا اکتویتی ایجاد کنم مثل main , main 1 ک کدهاش یکی باشه بعد از هر بار تغیر در دیتابیس بره اکتویتی بعد و اینحوری تغیر کنه ، شاید دوستان راه حل بهتری داشته باشن

مرسی ممنون راه حل خیلی خوبیه

فعلا همین کار رو  میکنم ممنون

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

[shahab.es 5,429]

در 4 ساعت قبل، mohamad1520 گفته است :

مرسی ممنون راه حل خیلی خوبیه

فعلا همین کار رو  میکنم ممنون

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

سلام هموطن

شما یه دیتابیس تستی درست کن سه چار تا چیز توش بذار

من براتون حذف و رفرش رو درست میکنم

 

[mohamad1520 5]

در 13 ساعت قبل، shahab.es گفته است :

سلام هموطن

شما یه دیتابیس تستی درست کن سه چار تا چیز توش بذار

من براتون حذف و رفرش رو درست میکنم

 

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

 

test1.rar