من وقتی میخام با استفاده از لانگ کلیک لیست ویو عکس لیست ویو وعدد در دیتابیس رو اپدیت کنم (عدد صفر هست میخام بشه 1 ) تو گوشی ارور میده
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
Dim b As Button
b=Sender
Dim cur As Cursor
cur=S.ExecQuery("SELECT * FROM Tbl1 WHERE Fasl="& b.Tag)
cur.Position=0
If cur.GetInt("Neshan")=0 Then
Dim bb As BitmapDrawable
bb.Initialize(LoadBitmap(File.DirAssets,"1242.png"))
ListView1.SingleLineLayout.Background=bb
s.ExecNonQuery("UPDATE Tbl1 SET Neshan=1 WHERE Fasl="& b.Tag)
Else
Dim bb As BitmapDrawable
bb.Initialize(LoadBitmap(File.DirAssets,"124.png"))
ListView1.SingleLineLayout.Background=bb
s.ExecNonQuery("Update Tbl1 SET Neshan=0 WHERE Fasl="& b.Tag)
End If
End Sub
سوال
majid08 266
سلام
من وقتی میخام با استفاده از لانگ کلیک لیست ویو عکس لیست ویو وعدد در دیتابیس رو اپدیت کنم (عدد صفر هست میخام بشه 1 ) تو گوشی ارور میده
Sub ListView1_ItemLongClick (Position As Int, Value As Object) Dim b As Button b=Sender Dim cur As Cursor cur=S.ExecQuery("SELECT * FROM Tbl1 WHERE Fasl="& b.Tag) cur.Position=0 If cur.GetInt("Neshan")=0 Then Dim bb As BitmapDrawable bb.Initialize(LoadBitmap(File.DirAssets,"1242.png")) ListView1.SingleLineLayout.Background=bb s.ExecNonQuery("UPDATE Tbl1 SET Neshan=1 WHERE Fasl="& b.Tag) Else Dim bb As BitmapDrawable bb.Initialize(LoadBitmap(File.DirAssets,"124.png")) ListView1.SingleLineLayout.Background=bb s.ExecNonQuery("Update Tbl1 SET Neshan=0 WHERE Fasl="& b.Tag) End If End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
0 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.