من یه دیتا بیس دارم که یه تیبل لینک و توی این تیبل یه فیلد دارم.
دیتا بیسم اپ کردم.
خب کاربر میتونه لینک سایت رو توی دیتا بیس قرار بده و اضافه کنه به اطلاعات
منم این اطلاعات که حاویه لینکه با مولتی پنل به نمایش میزارم.طبق این کدا:
Sub Globals
Private ScrollView1 As ScrollView
Private Button1m As Button
Private Panel1m As Panel
Dim stop As Int=3%y
Private Label1 As Label
Private Button1 As Button
Private Buttondel As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("up1")
c1= S1.ExecQuery ("SELECT * FROM link")
For i = 0 To c1.RowCount-1
c1.Position = i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
stop=stop+35%y
p.LoadLayout("multipanel")
Label1.Text=c1.GetString("lnk")
Button1.Tag=c1.GetString("lnk")
Buttondel.Tag=c1.GetString("lnk")
ScrollView1.Panel.Height=stop
Next
End Sub
Sub Button1_Click
Dim iz As Button
iz=Sender
Dim i As Intent
i.Initialize(i.ACTION_VIEW, iz.Tag)
StartActivity(i)
End Sub
Sub Buttondel_Click
Dim del As Button
del=Sender
مشکل اینجاس که باید حذف کنه ولی نمیکنه. ؟؟؟؟؟؟؟
S1.ExecNonQuery("DELETE FROM link where lnk="&del.Tag)
End Sub
توی مولتی پنل یه باتن گداشتم برای حذف لینک(Buttondel)
سوال
alinoori 123
سلام
من یه دیتا بیس دارم که یه تیبل لینک و توی این تیبل یه فیلد دارم.
دیتا بیسم اپ کردم.
خب کاربر میتونه لینک سایت رو توی دیتا بیس قرار بده و اضافه کنه به اطلاعات
منم این اطلاعات که حاویه لینکه با مولتی پنل به نمایش میزارم.طبق این کدا:
توی مولتی پنل یه باتن گداشتم برای حذف لینک(Buttondel)
ولی نمیدونم چرا لینک رو حذف نمیکنه؟
link.zip
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.