PDA

View Full Version : نحوه پاس کردن یک رشته یا یک مقدار به یک TextFieldدر Crystal



liliomed
سه شنبه 03 آذر 1383, 14:56 عصر
من می خواهم یک مقدار و یا یک رشته را به یک TextField که در داخل Crystal Report قرار دارد پاس کنم (البته در vb.net) . لطفا مکن را راهنمایی کنید :گیج: :(

rezanew
سه شنبه 03 آذر 1383, 16:57 عصر
Dim txturs As CrystalDecisions.CrystalReports.Engine.TextObject
txturs = rp.Section2.ReportObjects.Item("txtcrystalF")
txturs.Text = "your string"
اگه بدردتون نخورد ببخشید

liliomed
چهارشنبه 04 آذر 1383, 07:33 صبح
ممنون به خاطر پاسخت ولی من نفهمیدم RP که در متن نوشتهای چیه ؟ لطفا توضیح بده ؟ من خیلی تازه واردم :oops:

sm
دوشنبه 09 آذر 1383, 17:29 عصر
شما اول گزارشتو بساز بعد اونو تعریف کن :dim RP as New File_Name حالا می تونی با RP کار کنی

bashir_nashi
یک شنبه 06 دی 1383, 23:56 عصر
آقای rezanew من از این روش استفاده کردم ولی جواب نداد.
یعنی اصلا متن text رو عوض نمی کنه.
می شه راهنماییم کنی؟

bashir_nashi
سه شنبه 08 دی 1383, 11:26 صبح
لطفا یکی کمکم کنه.
هیچ تغییری از بیرون تو گزارش نمی تونم بدم. :strange:

reham
سه شنبه 08 دی 1383, 20:44 عصر
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine


Dim rpt As New CrystalReport3()
Dim crFormulas As FormulaFieldDefinitions
'formulas that will contain the field name
Dim crFormulaTextField1 As FormulaFieldDefinition
Dim crFormulaTextField2 As FormulaFieldDefinition
Dim crFormulaTextField3 As FormulaFieldDefinition
'formulas that will contain the field data
Dim crFormulaDBField1 As FormulaFieldDefinition
Dim crformulaDBField2 As FormulaFieldDefinition
'formula that will contain the group information
Dim crFormulaGroup1 As FormulaFieldDefinition
crFormulas = rpt.DataDefinition.FormulaFields
'set the 5 formula fields in the order they appear on the
'report.
crFormulaTextField1 = crFormulas.Item(0)
crFormulaTextField2 = crFormulas.Item(1)
crFormulaTextField3 = crFormulas.Item(5)
'pass in the Field names Chr(34) is double quotes character
crFormulaTextField1.Text = Chr(34) & Module1.date1 & Chr(34)
crFormulaTextField2.Text = Chr(34) & Module1.date2 & Chr(34)
crFormulaTextField3.Text = Chr(34) & d & Chr(34)
rpt.SetDataSource(Dtsperformance1)
CrystalReportViewer1.ReportSource = rpt

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

liliomed
چهارشنبه 09 دی 1383, 09:21 صبح
مرسی که جواب دادی . حالا تستش میکنم :wink:

rezanew
چهارشنبه 09 دی 1383, 12:54 عصر
ببخشید مدتی بود اینتر نت نیومده بودم
ولی این روش 100٪ جواب میده
بزارین توضیح بدم:
تو اینجا rp مشخص کننده یه کریستال ریپورت است که می تونین این طوری تعریف کنید

Dim rp As New CrystalReport1
که crystalreport1 ریپورتی است که می خواهید آن را نمایش دهید
در کداهای بالا آن text object ای که در درون ریپورت در نظر گرفته شده با نام txtcrystalF مشخص شده

حالا کد :thnx: های بالا رو وارد کنید و ریپورتو نشون بدید
اگه نتونستید استفاده کنید بگید تا مثال رو درست کنم و بزارم

bashir_nashi
پنج شنبه 10 دی 1383, 09:06 صبح
سلام.

اگه نتونستید استفاده کنید بگید تا مثال رو درست کنم و بزارم
من نه تنها نمی تونم متن text رو تغییر بدم بلکه چیزهای دیگه مثل رنگ و اندازه و ... box ها رو هم نمی تونم تغییر بدم.
البته از همین روشی که گفتی هم استفاده کردم که نشد.
لطفا یه مثال . . . :thnx:

rezanew
پنج شنبه 10 دی 1383, 12:17 عصر
برای اطلا عات بیشتر می تونید به MSDN مراجعه کنید

bashir_nashi
پنج شنبه 10 دی 1383, 19:28 عصر
آقا رضا دستت درد نکنه ولی مثل اینکه مشکل من خیلی جدیه چون برنامه شما هم مثل کارهای خودم هیچ تغییری در رپورت نمی ده.
بنظرت چکار کنم؟ :گیج:

rezanew
جمعه 11 دی 1383, 17:24 عصر
من دیگه والا نمی دونم چی بگم :گیج:
نسخه VS رو همراه با crystal report چک کن!!!!!!!!!!!!