مشکل در نمایش اطلاعات دیتابیس

[amirjun32 105]

سلام.

من برنامه پیامکیمو درست کردم.فقط یک مشکل داره،اونم اینه که دفعه اول که وارد یک گروه میشی زیر گروه یا محتواشو نشون نمیده.و باید چند بار داخل و خارج بشی تا آخرش نشون بده.(تعداد ورود خروج هم تصادفیه.بعضی وقتا دوباره،یا سه بار یا چهار بار)

ضمنا من tag لیستامو توی msgbox هم که میگیرم همین جوریه.و فهمیدم مشکل ازtag هست که توی متغیر view که به عنوان sender استفاده کردم با تاخیر لود میشه.

لطفا اگه کسی میدونه کمک کنه.ممنون میشم

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

[مهدی ایزدی 9,203]

سلام.

به نظر من تا کد نویسی مربوط به Load رو نبینیم نمیشه درست قضاوت کرد

الان بنده اصلا نفهمدیم منظور شما رو . حتی 1% *لال*

[amirjun32 105]

سلام.

به نظر من تا کد نویسی مربوط به Load رو نبینیم نمیشه درست قضاوت کرد

الان بنده اصلا نفهمدیم منظور شما رو . حتی 1% *لال*

شرمنده.

شما اینجا رو ببینید.

وقتی Sub subgroushow_Click کلیک شد من باید مقدار tag کلید های lblGroup رو(ک ی مقدار رشته ای که از دیتابیس میخونه هستش)توی msgbox ببینم.ولی باید چند بار کلیک کنی تا نشنون بده

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("LMain2")

myLibrary.createMenu(slide)

db.Initialize

list1.Initialize

list1 = db.listGroup2(GGroupName)

scrol1.Initialize(Me,"scrol1Event")

pnlMain.AddView(scrol1.AsView,0,52dip, 100%x,100%y-Panel2.Height)

For i=0 To list1.Size - 1

'For i=0 To 2

Dim p1 As Panel

p1.Initialize("")

scrol1.Add(p1,140dip,"")

p1.LoadLayout("LPGroup2")

Dim t1 As gGroup

t1.Initialize

t1 = list1.Get(i)

lblGroup.Text = t1.Sgroup2

lblGroup.Tag = t1.Sgroup2

Next

End Sub

Sub subgroushow_Click

Dim v1 As View

v1 = Sender

Msgbox(v1.Tag,"")

'actgroup.TGroupName = v1.Tag

'StartActivity(actgroup)

End Sub