مشکل در علاقه مندی ها

[majid08 266]

سلام

من یه دیتابیس دارم با دوتا تیبل 

یه برنامه دارم که چند قسمت داره و هر قسمت از یه تیبل استفاده میکنه

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

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

اینم کدهامه

اسم تیبل هام هم 

Tbl1  و   Tbl2   هست

	
Dim cur As Cursor
cur=a1.s.ExecQuery("SELECT * FROM Tbl1  WHERE Neshan=1")

Dim h As Int
	h=2%y
	
For i = 0 To cur.RowCount-1
cur.Position=i


Dim Btn As Button
	Btn.Initialize("btn")
	Btn.Text=cur.GetString("Onvan")
	Btn.Tag=cur.GetInt("Fasl")
	
	If cur.GetInt("Neshan")=0 Then
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"124.png"))
	Btn.Background=b
	Else
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"1242.png"))
	Btn.Background=b
	End If
	ScrollView1.Panel.AddView(Btn,0,h,100%x,12%y)
	h=h+12%y

Next
End Sub

[majid08 266]

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

خیلی از دوستان مشکل دارن

تا شب صبر کن ایشالله مشکل شما هم حل میشه

داداش سورسی هم که گذاشتی کارمو راه ننداخت

راه دیگه ای نیست

[shahab.es 5,429]

سلام

اون سورسی که گذاشتم روش کلی بود

نمیدونم مشکلتون چیه

میخواین سورستونو بذارین

[sganji 678]

ببین یه روش وجود داره که من خودم هم استفاده کردم و نتیجه گرفتم...

تگ  رو تو حلقه فور بگو اگه از cur1 بود:

Btn.Tag=cur.GetInt("Fasl1") & "/1"

اگه cur2 بود:

Btn.Tag=cur.GetInt("Fasl1") & "/2"

و در نهایت تو رویداد کلیک:

Sub Btn_click
Dim B As Button
B=Sender
Dim rr() As Object
rr = Regex.Split("/",B.Tag)
If rr(1) = 1 Then
a1.Fasl=rr(0)
StartActivity(a1_ajra)
Else
a2.Fasl=rr(0)
StartActivity(a2_ajra)
End If
End Sub

[majid08 266]

 

دوتا کورسور بزا یکی مال Tbl1 و دیگری مال Tbl2

 

میشه یه کد بنویسی ببینم چطوریه

[sganji 678]

Dim cur As Cursor

cur=a1.s.ExecQuery("SELECT * FROM Tbl1 WHERE Neshan=1")

Dim cur2 As Cursor

cur2=a1.s.ExecQuery("SELECT * FROM Tbl2 WHERE Neshan=1")

[sganji 678]

چه اروری میده؟متن ارور یا اسکرین شات بزار.

[majid08 266]

سلام

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

[majid08 266]

اینم اسکرین شات

 

[shahab.es 5,429]

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

یه لیست بساز دستی

که مثلا 2 تا تیتر داره

فصل 1 و فصل 2

شرط بذار اگه رو فصل یک کلیک شد، علاقه مندی اون جدول و مسلما متن همون جدول و اگه روی لیست 2 کلیک شد، متن و تیتر جدول 2 رو بیاره

[shahab.es 5,429]

سلام

اینجوری که & بذاری فک نکنم جواب بده

حلقه فراخوانی رو دوباره باید اجرا کنی تا از هردو جدول بیاره

باره اول تیبل1 باره 2 تیبل 2

[majid08 266]

این کد منه یه نگاهیش بکن برام بازنویسی کن ممنونم

	
Dim cur As Cursor
cur=a1.s.ExecQuery("SELECT * FROM Tbl1  WHERE Neshan1=1")


Dim h As Int
	h=2%y
	
For i = 0 To cur.RowCount-1
cur.Position=i


Dim Btn As Button
	Btn.Initialize("btn")
	Btn.Text=cur.GetString("Onvan1")
	Btn.Tag=cur.GetInt("Fasl1")
	
	Btn.TextColor=Colors.Black
	Btn.Typeface=Typeface.LoadFromAssets("Yekan.ttf")
	Btn.TextSize = 17
	Btn.Gravity=Gravity.RIGHT
	
	If cur.GetInt("Neshan1")=0 Then
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"124.png"))
	Btn.Background=b
	Else
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"1242.png"))
	Btn.Background=b
	End If
	ScrollView1.Panel.AddView(Btn,0,h,100%x,12%y)
	h=h+12%y

Next

		'---------------------2
		
		Dim cur2 As Cursor
cur2=a1.s.ExecQuery("SELECT * FROM Tbl2 WHERE Neshan=1")
		For i = 0 To cur2.RowCount-1
cur2.Position=i


Dim Btn As Button
	Btn.Initialize("btn")
	Btn.Text=cur2.GetString("Onvan")
	Btn.Tag=cur2.GetInt("Fasl")
	
	Btn.TextColor=Colors.Black
	Btn.Typeface=Typeface.LoadFromAssets("Yekan.ttf")
	Btn.TextSize = 17
	Btn.Gravity=Gravity.RIGHT
	
	If cur2.GetInt("Neshan")=0 Then
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"124.png"))
	Btn.Background=b
	Else
	Dim b As BitmapDrawable
	b.Initialize(LoadBitmap(File.DirAssets,"1242.png"))
	Btn.Background=b
	End If
	ScrollView1.Panel.AddView(Btn,0,h,100%x,12%y)
	h=h+12%y

Next
'---------------------2

	

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Btn_click
Dim B As Button
B=Sender
 a1.Fasl=B.Tag
StartActivity(a1_ajra)
End Sub

[shahab.es 5,429]

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

خیلی از دوستان مشکل دارن

تا شب صبر کن ایشالله مشکل شما هم حل میشه

[majid08 266]

سلام

اینجوری که & بذاری فک نکنم جواب بده

حلقه فراخوانی رو دوباره باید اجرا کنی تا از هردو جدول بیاره

باره اول تیبل1 باره 2 تیبل 2

این کارو هم انجام دادم نمیشه

[sganji 678]

دوتا کورسور بزا یکی مال Tbl1 و دیگری مال Tbl2