سوال در مورد Data Report

[shedayat]

سلام.
می خواستم ببینم میشه که کپشن یک لیبل خواص رو توی Data Report با کد نویسی تغییر داد؟ (معادل این کد:" Form1.Label1.Caption="ALI)

[vahid_visualbasic]

سلام.
می خواستم ببینم میشه که کپشن یک لیبل خواص رو توی Data Report با کد نویسی تغییر داد؟ (معادل این کد:" Form1.Label1.Caption="ALI)

بله میشه

"drp.Sections("Header").Controls("Label13").Captio n = "ali

drp اسم فرم دیتا ریپورتت هست

header هم اسم قسمتی در دیتا ریپورتت که لیبل در اونجا قرار گرفته

[saeedzx]

دوست من شما میتونی اینطوری کار کنی
PrintM.Sections("Section3").Controls("Label11").Ca ption = Option.Text4.Text
که دقت کنی توی کادرSection3 کپشن Label11 رو عوض میکنه

[vahid_visualbasic]

دوست من شما میتونی اینطوری کار کنی
PrintM.Sections("Section3").Controls("Label11").Ca ption = Option.Text4.Text
که دقت کنی توی کادرSection3 کپشن Label11 رو عوض میکنه

بله اینم میشه ولی کد شما غلط هست برای مساوی قرار دادن کپشن با متن تکست باکس نوشتن option لازم نیست صحیحش اینه
PrintM.Sections("Section3").Controls("Label11").Ca ption = Text4.Text

در ضمن ایشون خواستن کپشن رو ali قرار بدن نه متن تکست باکس!!!

"PrintM.Sections("Section3").Controls("Label11").C aption = "ali

[saeedzx]

دوست من این ربطی به مسئله نداشت این option اسم form است که من به طور پیش فرض گذاشتم
شما قبل جواب دادن باید صورت مسئله رو خوب بخونید

[vahid_visualbasic]

دوست من این ربطی به مسئله نداشت این option اسم form است که من به طور پیش فرض گذاشتم

از کی تاحالا اسم پیش فرض فرم ها رو تو وی بی از frm و form به option تغیر دادن ما نفهمیدیم؟؟؟؟

شما قبل جواب دادن باید صورت مسئله رو خوب بخونید

شما صورت مسئله رو خوندی که یارو میگه میخوام ali رو کپشن قرار بدم بهش کد تکست باکس میدی؟؟؟؟!!!

[shedayat]

حالا دو تا سوال دیگه:
1-چه طوری می شه توی Data Report به اندازه ای که رکورد در داخلش هست به ترتیب شماره زد؟
2- چه طور میشه مقدار RptText (اگه اشتباه نباشم) که خود برنامه مقدار دهی می کنه رو دستکاری کرد؟
از همکاری همتوت هم ممنون

[vahidm]

سلام
در مورد سوال آخریتون قسمت اولش جوابتون به شکل زیر می باشد
اینو در قسمت initialize دیتا ریپورتت بنویس

RECORDNUM = 0
Set myf = New StdDataFormat
Set DataReport11.Sections("section1").Controls("TEXT5" ).DataFormat = myf

اینم اضافه کن

Private Sub myf_Format(ByVal DataValue As StdFormat.StdDataValue)
RECORDNUM = RECORDNUM + 1
DataValue = RECORDNUM
End Sub