View Full Version : مقدار دادن به تکست آبجکت ها در زمان اجرا
archi
شنبه 09 آبان 1383, 19:56 عصر
با چه کدی می تونم به textObject در زمان اجرا مقدار بدم؟
کم حوصله
شنبه 09 آبان 1383, 23:59 عصر
Rport.Text1.SetText "Test"
vb341
یک شنبه 17 آبان 1383, 03:11 صبح
dim a as string
a="بابک"
report.text1.settext a
shsoft
دوشنبه 25 آبان 1383, 23:16 عصر
با سلام
یک نکته هست که برای من روشن نیست اونم اینکه وقتی یک crreport رو به پروژه
add می کنیم و فرمان بالا رو که فرمودین اجرا می کنیم مشکلی نیست
اما وقتی یک گزارش رو از طریق تعریف متغیر و کتابخانه- رفرنس باز می کنیم آبجکت
تکست را نشناخته و پس از اجرا خطا می دهد
rezaei manesh
سه شنبه 20 بهمن 1383, 16:04 عصر
سلام
report شناخته شده نیست. :گیج:
من با vb.net , crystal report کار میکنم
کمکم کنید
::نوشتن::
vbadvanced
چهارشنبه 28 بهمن 1383, 03:13 صبح
<span dir=ltr align="Left">Dim a As New CRAXDDRT.Application
Dim r As CRAXDDRT.Report
Dim t As CRAXDDRT.TextObject
Set r = a.OpenReport(App.Path & "\Reports\Blank.rpt")
Set t = r.Sections(1).ReportObjects("Text1")
t.SetText "Test"</span>
rezaei manesh
چهارشنبه 28 بهمن 1383, 12:47 عصر
سلام
من نمی تونم با کد بالا کار کنم (با دات نت)
CRAXDDRT.Application وجود نداره!
کمک کمک :گیج:
:(
gh_fereydonpoor
سه شنبه 18 اسفند 1383, 07:52 صبح
سلام به دوست .Net کارمون
بله این کدی رو که دوستان نوشتن برای VB.6.0 هستش کد .Net اش این :
Dim rpt as new report1
Dim txt as CrystalDecisions.CrtystalReports.engine.textobject
txt=rpt.section2.reportobject("text2")
txt.text="Salam"
یا علی
rezaei manesh
سه شنبه 18 اسفند 1383, 09:38 صبح
سلام
ممنون
من پیدا کرده بودم اگه می تونین بگین چهطوری می شه تکست ابجیکت رو از داخل برنامه ایجاد کرد.
:flower: :تشویق: ::نوشتن::
ahoora
سه شنبه 18 اسفند 1383, 13:14 عصر
سلام
یک textbox در form انتخاب کن
بعد در برنامه کد زیر را بنویس
Dim rpt As New CrystalReport2()
Dim myds As New DataSet2()
Dim a As String
Dim pfields As New CrystalDecisions.Shared.ParameterFields()
Dim pfield As New CrystalDecisions.Shared.ParameterField()
Dim disVal As New ParameterDiscreteValue()
pfield.ParameterFieldName = "pshoghl"
disVal.Value =textbox1.text
OleDbDataAdapter1.Fill(myds, "view2")
pfield.CurrentValues.Add(disVal)
pfields.Add(pfield)
rpt.SetDataSource(myds)
CrystalReportViewer1.ParameterFieldInfo = pfields
CrystalReportViewer1.ReportSource = rpt
fruzandemah@yahoo.com
rezaei manesh
سه شنبه 18 اسفند 1383, 18:17 عصر
سلام
من می خوام
از درون برنامه فیلد و تکست باکس درست کن با دات نت
در این رابطه هر مکی می تونه کمکم کنه
:flower:
meh_secure
چهارشنبه 04 خرداد 1384, 17:44 عصر
فکر کنم این از همه راحت تر باشه.
اول یه Textbox در گزارش درست کن به نام مثلا text1
بعد اینجوری عمل کن
report.discardsaveddata
report.text1.set text "your text "
فقط توجه داشته باشید که discardsaveddata باعث پاک شدن مقادیر کل textbox ها می شود.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.