ریختن اطلاعات از دیتابیس به label

[ramin149]

من یه صفحه دارم که متنی رو داخل دیتابیس ذخیره می کنه
و یه صفحه دیگه دارم که داخلش 4 تا label قرار داره
من یه حلقه for نوشتم که متن رو از دیتابیس بگیره و داخل label ها قرار بده ولی کار نمی کنه اگر می شه کمک کنید


Dim no As Integer = dt.Rows.Count
For i As Integer = 0 To no - 1
Dim lbl As String = "lbl_service" + i.ToString
Session(lbl) = dt.Rows(i).Item("ssub").ToString

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

[mohitlog]

label.text=parameter.tostring()

label.text="ali";



dar zemn shom dari to session mirizi na to label

Session(lbl) = dt.Rows(i).Item("ssub").ToString

label.text = dt.Rows(i).Item("ssub").ToString

[ramin149]

باید برای هر label مشخص کنیم ؟ اگر 10 تا label داشته باشیم برای هر کدام باید کد زیر رو بنویسیم ؟



label.text = dt.Rows(i).Item("ssub").ToString

[Vahid_moghaddam]

با توجه به کدی که نوشتید می تونید از روش زیر هم استفاده کنید:


string lbl="lbl_Service"+i.ToString();
((Lable)FindControl(lbl)).Text=dt.Rows[i].Item["ssub"].ToString();

[L u k e]

می تونی Text لیبل هاتو به بانک متصل کنی و با BindingُSoruce تو سطرهات حرکت کنی و اونا جابه جا می شن خودکار

[Peyman.Gh]

http://www.barnamenevis.org/forum/showpost.php?p=884281&postcount=11

[ramin149]

با توجه به کدی که نوشتید می تونید از روش زیر هم استفاده کنید:


string lbl="lbl_Service"+i.ToString();
((Lable)FindControl(lbl)).Text=dt.Rows[i].Item["ssub"].ToString();



من کد بالا رو به صورت زیر با زبان vb نوشتم ولی خط آخر رو بلد نیستم به vb تبدیل کنم و Error می ده .



Dim no As Integer = dt.Rows.Count
For i As Integer = 0 To no - 1
Dim lbl As String = "lbl_service" + i.ToString
((lbl_service)FindControl(lbl)).Text=dt.Rows[i].Item["ssub"].ToString()

[ramin149]

کسی می تونه کمک کنه من لین کد رو خیلی لازم دارم (لنگم به خدا)
سه روزه که دارم روش کار می کنم ولی به نتیجه ای نرسیدم !!!

[kooshanakhai]

تبدیل به VB:

Dim lbl As String = "lbl_Service" & i.ToString()
DirectCast(FindControl(lbl), Label).Text = dt.Rows(i).Item("ssub").ToString()

[ramin149]

تبدیل به VB:

Dim lbl As String = "lbl_Service" & i.ToString()
DirectCast(FindControl(lbl), Lable).Text = dt.Rows(i).Item("ssub").ToString()
lable که قرمز گردم error می ده منظور شما چیه و چرا خطا می ده ؟؟

[kooshanakhai]

lable که قرمز گردم error می ده منظور شما چیه و چرا خطا می ده ؟؟

به جالی Lable قرار دهید: Label
پست بالا هم ویرایش شد.

[ramin149]

خیلی ممنون

[Vahid_moghaddam]

نه. توی تابع Cast به جای lable بنویسید Label

[ramin149]

سلام من کد زیر رو برای اینکه اطلاعات رو از دیتابیس بخونه و به ترتیب داخل لیبل قرار بده نوشتم به کمک بچه های سایت ولی وقعی که build می کنم هیچ Error به من نشون نمی ده ولی وقتی play می کنم خطی که قرمز کردم رو خطا می ده آیا مشکی در کد زیر هست اگر می شه راهنمایی کنید ؟؟




Dim no As Integer = dt.Rows.Count
For i As Integer = 0 To no - 1
Dim lbl As String = "lbl_Service" & i.ToString()
DirectCast(FindControl(lbl), Label).Text = dt.Rows(i).Item("ssub").ToString
Next

[kooshanakhai]

لازمه که متن خطایی که میده رو ارسال کنید...

[ramin149]

Compilation Error

Description: An error occurred during the compilation of a resource required to service this request. Please review the following specific error details and modify your source code appropriately.

Compiler Error Message: BC30456: 'Text' is not a member of 'label'.

Source Error:


Line 10: For i As Integer = 0 To no - 1
Line 11: Dim lbl As String = "lbl_Service" & i.ToString()
Line 12: DirectCast(FindControl(lbl), Label).Text = dt.Rows(i).Item("ssub").ToString
Line 13: Next
Line 14: End Sub

[ramin149]

خواهشان یکی کمک کنه ؟؟؟؟