کد لانگ کلیک اضافه شدن به علاقه مندی

[jfareba 37]

سلام ببخشید من قبلا تاپیک های این موضوع رو پیدا میکردم ولی الان سرچ انجمن کلا یه جوری شده هیچی پیدا نمیکنه

من لیست ویو که از دیتا بیس فراخوندم روشون که کلیک میکنم به علاقه مندی اضافه میشه از علاقه مندی حذف هم میشه ولی وقتی وارد قسمت علاقه مندی میشم ارور میده

بعضی مواقع باز میکنه بعضی مواقع ارور میده خیلی گیج شدم اگه میشه کد رو برام بزارین

[jfareba 37]

ممنون ولی مشکل حل نشد

لطفا دوستان کمک کنند

اگه روش دیگه برای علاقه مندی میشناسید هم بگین لطفا

[shahab.es 5,429]

مشکل حلنشد منظورتون چیه؟

یعنی ارور دارید؟ یا نمیره تو علاقه مندی؟ 

یا میره و پاک میشه ؟ یا....

[jfareba 37]

 

دکمه علاقه مندی رو که میزنم بعضی مواقع باز میکنه ولی فکرکنم اگه خالی باشه قسمت علاقه مندی اون ارور قبلی رو میده

 

وقتی روی موضوع کلیک میکنم این ارور رو میده

 

[shahab.es 5,429]

والا این ارور شما، داره میگه یه ویو داری که به چند تا کانتینر ، مثل پنل و اکتیویتی ، اختصاص دادی

سورستوتون رو اگه میشه تو خصوصی به من بدید

من ویو ها رو هم چک کنم...

[jfareba 37]

سلام مشکلم حل شد ممنون

این خط رو اضافه کردم

SQL1.Initialize(File.DirInternal,"zan.db",True)

 

ولی یه مشکل دیگه که دارم اینه که دوتاتیبل دارم تو دیتا بیسم این کد هارو واسه یه بخش نوشتم که به علاقه مندی اضافه بشه واسه اون یه بخش چی بنویسم

لانگ کلیدش کار میکنه ولی تو لیست علاقه مندی نشون نمیده

[shahab.es 5,429]

سلام

خوبه

به این دلیل که شما توی کد sql ، فقط یه جدول رو فراخوانی میکنید...

حلقه فور رو یه بار دیگه زیر اون قبلی قرار بدید

با یه sql statement دیگه

یعنی به شکل زیر در میاد

SELECT * FROM tbl1 WHERE fave = 1
for i = 0 to cur.rowcount
......
......
......خودتون بلدید کد هارو
......
......
next


SELECT * FROM tbl2 WHERE fave = 1
for i = 0 to cur.rowcount
......
......
......خودتون بلدید کد هارو
......
......
next

من براتون فقط دستورات رو نوشتم

خودتون کامل کنید و قرار بدید

اگر کار نکردید، بگیرد روش دیگه ای رو بهتون معرفی کنم...

[jfareba 37]

ممنون از لطفتون

این کار رو انجام دادم هیچ اروری نداد ولی هر گزینه ای که از جدول دوم به علاقه مندی اضافه میکنم

موضوع جدول اول رو اضافه میکنه

[shahab.es 5,429]

فقط موضوع جدول اول رو میاره؟

دقیقا کلیه کدهای شرط فور رو قرار دادید دیگه؟ حتی کدهای مانند این هم قرار دادید؟

listview.addsingleline2(cur.getstring("titr"),cur.getint("id"))

یکم اینارو بررسی کنید

اگر مشکلتون حل نشد، بهترین کار اینه که با کلیک بر روی لیست علاقه مندی ها، یه صفحه جدید باز بشه که توش یه لیست ویو هست که خودتون اضافه کردید و متنش هم به شکل زیر هست

جدول 1

جدول 2

و با کلیک برروی جدول یک، میره به اکتیویتی سوم و جدل 1 رو میخونه

با کلیک روی جدول 2 میره به اکتیویتی سوم و جدول 2 رو میخونه 

اگر در پیاده سازیش مشکلی داشتید، بگید...

[shahab.es 5,429]

سلام دوست عزیز

شما کدتون رو بذارید، بگید تو کدوم قسمت ارور داره و چه اروری، ما هم سعی میکنیم کمکتون کنیم

[jfareba 37]

 

 

تصویر ارور

[shahab.es 5,429]

کدهای این قسمت هم لطفا بذار

که ببینیم مشکل از چیه

[jfareba 37]

کد اکتیویتی مطلب علاقه مندی ها

'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("matn_zan")
    Dim cur As Cursor
    cur = zan.SQL1.ExecQuery("SELECT * FROM zan WHERE id ="&fav.meghdar)
    matn.Initialize("")
    matn.Gravity = Gravity.RIGHT
    ScrollView1.Panel.AddView(matn,20,0,280,100%y)
    ts.Initialize
    For i = 0 To cur.RowCount-1
        cur.Position = i
        matn.Text = cur.GetString("fav")
    Next
    ts.LongText(matn,matn.Text,22,ScrollView1,2)
End Sub

  

cur.Close

کد اکتیویتی fav

ListView1.Initialize("ListView1")
    Activity.Title ="علاقه مندی ها"
    Activity.AddView(ListView1,0,0,100%x,100%y)
    ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER
    ListView1.SingleLineLayout.Label.TextColor = Colors.white
    Dim cur As Cursor
    cur = zan.SQL1.ExecQuery("SELECT * FROM zan WHERE fav = 1")
    For i = 0 To cur.RowCount-1
        cur.Position = i
        ListView1.AddSingleLine2(cur.GetString("onvan"),cur.GetInt("id"))
    Next
    cur.Close

[shahab.es 5,429]

اکتیویتی fave مشکلی نداره

فقط

    Dim cur As Cursor

این باید اینیشیالایز شه

بهتره به این شکل استفاده کنید

zan.cur = zan.sql و بقیه

[jfareba 37]

این کاررو کردم یه خط قرمز میکشه زیرش

[shahab.es 5,429]

شما مگه توی اکتیویتی Zan، کورزور و Sql تعریف نکردید و Sql رو اینیشیالایز نکردید؟

در کل، اروری که دادید، به احتمال 90 درصد برای اینیشیالایزه کورزوره

[jfareba 37]

ممنون که با حوصله جواب میدین

 

این کد اکتویتی zan

 

Activity.LoadLayout("zan")
    Activity.Title ="زنان"
    If File.Exists(File.DirInternal,"zan.db") = False Then
        File.Copy(File.DirAssets,"zan.db",File.DirInternal,"zan.db")
    End If
    If SQL1.IsInitialized = False Then
        SQL1.Initialize(File.DirInternal,"zan.db",True)
        End If
        List_Matlab.SingleLineLayout.Label.Gravity = Gravity.CENTER
    List_Matlab.SingleLineLayout.Label.TextColor = Colors.white
    'List_Matlab.SingleLineLayout.Label.Typeface= Typeface.LoadFromAssets("1.ttf")
    List_Matlab.SingleLineLayout.Label.TextSize= 20
    Dim cur As Cursor
    cur = SQL1.ExecQuery("SELECT * FROM zan")
    For i = 0 To cur.RowCount-1
        cur.Position = i
        List_Matlab.AddSingleLine2(cur.GetString("onvan"),cur.GetInt("id"))
'        List_Matlab.singlelinelayout.itemheight = 90
    Next
    cur.Close
End Sub

[shahab.es 5,429]

خوهش میکنم

    Dim cur As Cursor رو کپی کنید بالای صفحه توی ساب گلوبالز

بعد در ماژول های دیگه

Zan.cur رو استفاده کنید...