من توی برنامم دارم از لیست ویو سفارشی ، یا همون پنل ویو استفاده می کنم .
حالا می خوام اطلاعات دیتابیس که مشخصات مشتری هستش رو نشون بدم ، ولی وقتی میزنم روی مشتری چند ثانیه لود می کنه بعد صفحه سیاه میاد یا نشون میده یا پیغام خروج از برنامه میده .
sq.Initialize(File.DirInternal,"db.db",True)
cur = sq.ExecQuery("SELECT * FROM Moshtari")
For i = 0 To cur.RowCount - 1
cur.Position= i
IDmosh = cur.GetString("IDMosh")
nam= cur.GetString("NameMosh")
mande = cur.GetDouble("Mande")
Dim p As Panel
p.Initialize("")
scrol.Panel.AddView( p, 0%x ,top, 99%x, 105%y)
p.LoadLayout("listscr")
LID.Text = IDmosh
Lname.Text = nam
lmande.Text = mande
top = top + 25.5%y
Panel1.Tag = i
Next
scrol.Panel.Height = top
اینم کد مربوط به نمایش دادن اطلعات مشتری .
چکار کنم که سریعتر نشون بده ؟؟؟ حالت هنگی نداشته باشه .
سوال
FarzamPlus 1
سلام به همه دوستان .
من توی برنامم دارم از لیست ویو سفارشی ، یا همون پنل ویو استفاده می کنم .
حالا می خوام اطلاعات دیتابیس که مشخصات مشتری هستش رو نشون بدم ، ولی وقتی میزنم روی مشتری چند ثانیه لود می کنه بعد صفحه سیاه میاد یا نشون میده یا پیغام خروج از برنامه میده .
sq.Initialize(File.DirInternal,"db.db",True) cur = sq.ExecQuery("SELECT * FROM Moshtari") For i = 0 To cur.RowCount - 1 cur.Position= i IDmosh = cur.GetString("IDMosh") nam= cur.GetString("NameMosh") mande = cur.GetDouble("Mande") Dim p As Panel p.Initialize("") scrol.Panel.AddView( p, 0%x ,top, 99%x, 105%y) p.LoadLayout("listscr") LID.Text = IDmosh Lname.Text = nam lmande.Text = mande top = top + 25.5%y Panel1.Tag = i Next scrol.Panel.Height = topاینم کد مربوط به نمایش دادن اطلعات مشتری .
چکار کنم که سریعتر نشون بده ؟؟؟ حالت هنگی نداشته باشه .
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.