سلام تو انجمن کلی گشتم ولی نتونستم مشکلم رو حل کنم لطفا راهنماییم کنین.
کد های اکتیویتی برای دیتابیس :
Sub Activity_Create(FirstTime As Boolean)
If File.Exists(File.DirInternal,"sms.db")=False Then
File.copy(File.DirAssets,"sms.db",File.DirInternal,"sms.db")
End If
If SQL1.IsInitialized = False Then
SQL1.Initialize(File.DirInternal,"sms.db",True)
End If
cursur1 = SQL1.ExecQuery("SELECT sms FROM smstbl")
myfont = Typeface.LoadFromAssets("byekan.ttf")
Activity.LoadLayout("matlab")
For i=0 To cursur1.RowCount-1
cursur1.Position=i
text= cursur1.GetString("sms")
ScrollView1.Panel.color = Colors.Transparent
Dim p1 As Panel
p1.Initialize("")
p1.LoadLayout("pnmatlab")
ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100%y)
btnshare.Tag = i
btncopy.Tag = i
btndelet.Tag = i
btnfav1.tag = i
Label4.text="عاشقانه"
Label4.Typeface=myfont
Label4.TextColor=Colors.Black
Label5.text = i + 1
Label5.Typeface=myfont
Label5.TextColor=Colors.Black
ht=art(text,Label1,myfont,14)
Label1.TextColor=Colors.Black
Label1.Top = 9%y
Panel1.Height = 1000%x
p1.Height=ht+80dip
PanelHeight=PanelHeight+ht+80dip
Next
ScrollView1.Panel.Height=PanelHeight
End Sub
در رویداد کلیک هم به این صورت نوشتم :
Sub btndelet_Click
Dim bt As Button
bt = Sender
SQL1.ExecNonQuery("DELETE FROM smstbl WHERE id = "& bt.tag )
ScrollView1.Panel.RemoveAllViews
PanelHeight = ScrollView1.Height - ScrollView1.Height
cursur1 = SQL1.ExecQuery("SELECT sms FROM smstbl")
myfont = Typeface.LoadFromAssets("byekan.ttf")
For i=0 To cursur1.RowCount-1
cursur1.Position=i
text= cursur1.GetString("sms")
ScrollView1.Panel.color = Colors.Transparent
Dim p1 As Panel
p1.Initialize("")
p1.LoadLayout("pnmatlab")
ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100%y)
btnshare.Tag = i
btncopy.Tag = i
btndelet.Tag = i
btnfav1.tag = i
Label4.text=""
Label4.Typeface=myfont
Label4.TextColor=Colors.Black
Label5.text = i + 1
Label5.Typeface=myfont
Label5.TextColor=Colors.Black
ht=art(text,Label1,myfont,14)
Label1.TextColor=Colors.Black
Label1.Top = 9%y
Panel1.Height = 1000%x
p1.Height=ht+80dip
PanelHeight=PanelHeight+ht+80dip
Next
ScrollView1.Panel.Height=PanelHeight
End Sub
مشکل اینه که از رکورد های 6 به پایین همه رو میشه حذف کرد ولی از 1 تا 6 رو نمیشه حذف کرد.
سوال
MoniSoft 14
سلام تو انجمن کلی گشتم ولی نتونستم مشکلم رو حل کنم لطفا راهنماییم کنین.
کد های اکتیویتی برای دیتابیس :
Sub Activity_Create(FirstTime As Boolean) If File.Exists(File.DirInternal,"sms.db")=False Then File.copy(File.DirAssets,"sms.db",File.DirInternal,"sms.db") End If If SQL1.IsInitialized = False Then SQL1.Initialize(File.DirInternal,"sms.db",True) End If cursur1 = SQL1.ExecQuery("SELECT sms FROM smstbl") myfont = Typeface.LoadFromAssets("byekan.ttf") Activity.LoadLayout("matlab") For i=0 To cursur1.RowCount-1 cursur1.Position=i text= cursur1.GetString("sms") ScrollView1.Panel.color = Colors.Transparent Dim p1 As Panel p1.Initialize("") p1.LoadLayout("pnmatlab") ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100%y) btnshare.Tag = i btncopy.Tag = i btndelet.Tag = i btnfav1.tag = i Label4.text="عاشقانه" Label4.Typeface=myfont Label4.TextColor=Colors.Black Label5.text = i + 1 Label5.Typeface=myfont Label5.TextColor=Colors.Black ht=art(text,Label1,myfont,14) Label1.TextColor=Colors.Black Label1.Top = 9%y Panel1.Height = 1000%x p1.Height=ht+80dip PanelHeight=PanelHeight+ht+80dip Next ScrollView1.Panel.Height=PanelHeight End Subدر رویداد کلیک هم به این صورت نوشتم :
Sub btndelet_Click Dim bt As Button bt = Sender SQL1.ExecNonQuery("DELETE FROM smstbl WHERE id = "& bt.tag ) ScrollView1.Panel.RemoveAllViews PanelHeight = ScrollView1.Height - ScrollView1.Height cursur1 = SQL1.ExecQuery("SELECT sms FROM smstbl") myfont = Typeface.LoadFromAssets("byekan.ttf") For i=0 To cursur1.RowCount-1 cursur1.Position=i text= cursur1.GetString("sms") ScrollView1.Panel.color = Colors.Transparent Dim p1 As Panel p1.Initialize("") p1.LoadLayout("pnmatlab") ScrollView1.Panel.AddView(p1,0,PanelHeight,100%x,100%y) btnshare.Tag = i btncopy.Tag = i btndelet.Tag = i btnfav1.tag = i Label4.text="" Label4.Typeface=myfont Label4.TextColor=Colors.Black Label5.text = i + 1 Label5.Typeface=myfont Label5.TextColor=Colors.Black ht=art(text,Label1,myfont,14) Label1.TextColor=Colors.Black Label1.Top = 9%y Panel1.Height = 1000%x p1.Height=ht+80dip PanelHeight=PanelHeight+ht+80dip Next ScrollView1.Panel.Height=PanelHeight End Subمشکل اینه که از رکورد های 6 به پایین همه رو میشه حذف کرد ولی از 1 تا 6 رو نمیشه حذف کرد.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
17 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.