سلام دوستان برنامم همه چیش درست اجرا می شه فقط یه مشکلی دار وقتی کاربر رو می خواد وارد قسمت پیاماش بشه مثلا یه ارور عجیب از دیتابیس می ده که وقتی no رو می زنم دفعه بعد رو همون دکمه کلیک می کنم می ره و پیم هارو به من نشون می ده
لطفا اساتید کمک کنند.
عکس از دیتابیس و ارور و خط کدهام:
If File.Exists(File.DirInternal,"payam6.db") Then
File.Copy(File.DirAssets,"payam6.db",File.DirInternal,"payam6.db")
End If
If SQL1.IsInitialized = False Then
SQL1.Initialize(File.DirInternal,"payam6.db",True)
End If
cursur1 = SQL1.ExecQuery("SELECT * FROM p6")
myfont = Typeface.LoadFromAssets("byekan.ttf")
Activity.LoadLayout("7")
PanelHeight=0
For i=0 To cursur1.RowCount-1
cursur1.Position=i
text= cursur1.GetString("text") 'منتصب کردن کرسر به متغیر استرینگ
sv1.Panel.Color = Colors.Transparent
Dim p20 As Panel
p20.Initialize("")
p20.LoadLayout("6")
sv1.Panel.AddView(p20,0,PanelHeight,100%x,80dip)
btnnumber.Tag = i
share.Tag=i
ht=art(text,label1,myfont,25)
p20.Height=ht+80dip
PanelHeight=PanelHeight+ht+100dip
Next
sv1.Panel.Height=PanelHeight
End Sub
سوال
ali777795 11
سلام دوستان برنامم همه چیش درست اجرا می شه فقط یه مشکلی دار وقتی کاربر رو می خواد وارد قسمت پیاماش بشه مثلا یه ارور عجیب از دیتابیس می ده که وقتی no رو می زنم دفعه بعد رو همون دکمه کلیک می کنم می ره و پیم هارو به من نشون می ده
لطفا اساتید کمک کنند.
عکس از دیتابیس و ارور و خط کدهام:
If File.Exists(File.DirInternal,"payam6.db") Then File.Copy(File.DirAssets,"payam6.db",File.DirInternal,"payam6.db") End If If SQL1.IsInitialized = False Then SQL1.Initialize(File.DirInternal,"payam6.db",True) End If cursur1 = SQL1.ExecQuery("SELECT * FROM p6") myfont = Typeface.LoadFromAssets("byekan.ttf") Activity.LoadLayout("7") PanelHeight=0 For i=0 To cursur1.RowCount-1 cursur1.Position=i text= cursur1.GetString("text") 'منتصب کردن کرسر به متغیر استرینگ sv1.Panel.Color = Colors.Transparent Dim p20 As Panel p20.Initialize("") p20.LoadLayout("6") sv1.Panel.AddView(p20,0,PanelHeight,100%x,80dip) btnnumber.Tag = i share.Tag=i ht=art(text,label1,myfont,25) p20.Height=ht+80dip PanelHeight=PanelHeight+ht+100dip Next sv1.Panel.Height=PanelHeight End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.