بررسی کد

[moh3n 16]

سلام

میشه بگید کجای این کد اشتباهه ؟

Sub pan2_LongClick


   cur2=sql1.ExecQuery("SELECT * FROM tbl")
   Dim send As Panel
   send=Sender
   cur2.Position =send.Tag
   Dim matnsms As Label
   matnsms.Initialize("")
   matnsms.text=cur2.GetString("id")
   cur2.Close
   Dim share As Intent
   share.Initialize(share.ACTION_SEND,"")
   share.SetType("text/plain")
   share.PutExtra("android.intent.extra.TEXT", matnsms.text)
   share.WrapAsIntentChooser("متن خود را به اشتراک بگذارید....")
   StartActivity(share)


End Sub

وقتی برنامه رو اجرا میکنم این خطارو میده ؟

[امین شاهدی 5,765]

کد مشکلی نداره... مورد از query ...

همچین positionای توی دیتابیس وجود نداره