لطفا یه سورس کد درباره جست و جو در دیتابیس و اینکه وقتی روش کلیک میکنی داخل صفحه مورد نظر بره رو بذارید
من این نمونه رو نوشتم و همش ارور میده به عبارتی عمل سرچ به خوبی انجام میشه ولی وقتی روی عنوان کلیک میکنم کار نمی کنه
#RegionActivityAttributes#FullScreen:False#IncludeTitle:True#EndRegionSubProcess_Globals'These global variables will be declared once when the application starts.'These variables can be accessed from all modules.Dim s As SQL
Dim idonvan AsStringEndSubSubGlobals'These global variables will be redeclared each time the activity is created.'These variables can only be accessed from this module.'PrivateListView1AsListViewPrivateEditText1AsEditTextPrivateButton1AsButtonPrivatePanel_onvanAsPanelPrivateLabel_onvanAsLabelPrivateScrollView1AsScrollViewEndSubSubActivity_Create(FirstTimeAsBoolean)Activity.LoadLayout("layout_search")
afrazlab.DatabesCopy(s,"jsonn.db",True)'Dim lbl AsLabel' lbl=ListView1.SingleLineLayout.Label' lbl.Gravity=Gravity.LEFT
' lbl.Left=lbl.Left+5dipEndSubSubActivity_ResumeEndSubSubActivity_Pause(UserClosedAsBoolean)EndSubSub onvanMatnha(scroollneme AsScrollView)
afrazlab.DatabesCopy(s,"jsonn.db",True)'ListView1.ClearDim cur AsCursor
cur=s.ExecQuery("SELECT * FROM ddx WHERE onvan LIKE '%"&EditText1.Text&"%'")Dim h AsInt=1%y
For i =0To cur.RowCount-1
cur.Position=i
Dim p1 AsPanel
p1.Initialize("p1")
p1.LoadLayout("l_Panel_onvan")
p1.Color=0xFF007236Label_onvan.Text=cur.GetString("onvan")Label_onvan.TextColor=Colors.BlackLabel_onvan.TextSize=20Label_onvan.Gravity=Bit.Or(Gravity.CENTER,Gravity.RIGHT)Label_onvan.Tag=cur.GetString("id")
scroollneme.Panel.AddView(p1,0,h,100%x,100%y)
h=h+14%y
Next
scroollneme.Panel.Height=h+5%y
EndSubSubButton1_Click
onvanMatnha(ScrollView1)EndSubSubLabel_onvan_ClickDim l AsLabel
l=Sender
idonvan=l.TagStartActivity(matn_ddx)EndSub
سوال
mom 0
سلام
لطفا یه سورس کد درباره جست و جو در دیتابیس و اینکه وقتی روش کلیک میکنی داخل صفحه مورد نظر بره رو بذارید
من این نمونه رو نوشتم و همش ارور میده به عبارتی عمل سرچ به خوبی انجام میشه ولی وقتی روی عنوان کلیک میکنم کار نمی کنه
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.