Pak Jemmy,
itu dia masalahnya, di CR10 cuma ada Formulafields dan saya masih bingung
pemakai AreaKasus supaya bisa dipaksa dari VB..!!
Berikut saya sudah ikutin Helpnya CR 10 : Coba deh apa maksudnya..??? Khan
udah sama dengan code saya punya khan..?
Passing a formula at runtime
When passing a value to Crystal Reports, you use the Text property of the
FormulaFieldDefinition object.
First, you create your formula using the Crystal Reports formula language.
If you are giving it a string value, you must place a string value in
it. This will force the program to treat the formula as a string.
A single space inside double quotes is a good idea, since this will
not print if left unchanged—yet it holds the string type for when you
change the actual value later from VB.
Place the new formula on your report where you would like to display the
passed value.
If you will be sending a numeric value or date, again place an appropriate
value in the formula in order to establish the data type of the formula.
To pass a numeric value to a formula, place 0 in the formula when you
create the formula in Crystal Reports.
To pass a date value to a formula, place the Today function in the
formula.
The following code shows how you can send a title to your report from your
VB application. As instructed above, a formula is inserted at the top of
the report, and is named Title. It presently contains a space inside
quotes, as in " ".
Sub Command1_Click ()
'if we hard-code the title
CRXReport.FormulaFields.Item(1).text = "'Report Title'"
'If we use the value of the Textbox
Text1.Text = "This is a Title"
CRXReport.FormulaFields.Item(1).text = chr(34) & Text1.text & chr(34)
End Sub
"JemyX99"
<[EMAIL PROTECTED]
oo.com.sg> To
Sent by: <[email protected]>
[EMAIL PROTECTED] cc
oogroups.com
Subject
Re: [Programmer-VB] Gimana passing
06/21/05 02:48 PM var dari VB ke CR 10..?
Please respond to
[EMAIL PROTECTED]
oogroups.com
CMIIW
Ini skrip yg aku pake, tp aku pake CR 8.5 dan berhasil (asumsi Formula di
report cm satu) jd formula(0).......
ctrCetak.Formulas(0) = "AreaKasus='" & UCase(txtArea.Text) & "'"
ctrCetak.Action=1
cheers,
Jemy
----- Original Message -----
From: <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, June 21, 2005 2:16 PM
Subject: Re: [Programmer-VB] Gimana passing var dari VB ke CR 10..?
>
>
>
>
> Masalah saya sebenarnya sederhana aja, gimana desain CR10 saya seperti di
> bawah ini :
>
> REPORT ANALISA KASUS DOWNTIME
> DI AREA : @AreaKasus
>
> =============================
> No. Mesin bla.. bla...
> =============================
>
>
> Di VB ada dialog seperti di bawah ini :
>
> +==========================+
> + AREA : Produksi 1 +
> + +
> + Preview Exit +
> +==========================+
>
> Pertanyaan saya ketika dialog VB saya click Previewnya, maka reportnya
akan
> menjadi :
>
> REPORT ANALISA KASUS DOWNTIME
> DI AREA : Produksi 1
>
> =============================
> No. Mesin bla.. bla...
> =============================
>
> Dimana penampilan Produksi 1 dari var VB ke CR 10 itu melalui fungsi
> FormulaFields.
> Bisa dijawab dengan jelas ngga mas..??
>
> Kalo perlu dengan syntax yang real dengan variable di atas..?
>
>
>
>
>
>
> "FATH"
> <[EMAIL PROTECTED]
> erowisata.com> To
> Sent by: <[email protected]>
> [EMAIL PROTECTED] cc
> oogroups.com
> Subject
> Re: [Programmer-VB] Gimana passing
> 06/22/05 04:01 AM var dari VB ke CR 10..?
>
>
> Please respond to
> [EMAIL PROTECTED]
> oogroups.com
>
>
>
>
>
>
> coba di CR-nya di tambahkan selectionnya lewat selection formula.
> syntax : field (yg akan di seleksi) = formula (yg baru di buat)
>
> cmiiw
>
>
> ----- Original Message -----
> From: <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Monday, June 20, 2005 11:55 PM
> Subject: [Programmer-VB] Gimana passing var dari VB ke CR 10..?
>
>
>>
>>
>>
>>
>> Hi all,
>>
>> saya pakai CR 10 dengan menggunakan modus open reportnya tidak pakai ocx
>> melalui syntax action tapi Desainer report alias Dsr dengan mengambil
> file
>> Rpt dari CR 10 langsung.
>> Problem saya selalu gagal menampilkan sebuah data variable dari VB ke
>> formulanya CR 10..? Kenapa yaa..?
>>
>> apa ada yang salah dengan program saya di bawah ini :
>>
>> 1. Di CR 10 sudah saya tambahkan variable FormulaFields nya adalah
>> AreaKasus tanpa saya isi apa-apa alias blank didalam kolom formula yang
>> tersedia.
>>
>> 2. Di VB, pada saat saya ingin view report, saya add syntax seperti di
>> bawah ini :
>>
>> Private Sub cmdCommand_Click(Index As Integer)
>> Rpt_CARSearching.FormulaSyntax = crBasicSyntaxFormula
>> Rpt_CARSearching.FormulaFields.Item(1).Text = formula = "'Area
>> AAAAA'"
>> frmCARViewReport.Show
>> end sub
>>
>> pengennya saya, ketika ada variable VB yang berisi Area AAAAA itu bisa
>> muncul di CR 10 melalui Formulafields AreaKasus. Tapi herannya kok ngga
>> muncul walaupun dicompile tidak error. Dengan kata lain, passing data
> dari
>> VB6 ke CR 10 tidak menimbulkan efek apa2..!!
>>
>> Saya masih bingung, gimana cara deklarasi AreaKasus di VB6 supaya bisa
>> dikenal dan saya masih belum mengerti syntax Item di atas untuk apa..??
>> Herannya saya tidak pernah ketemu object AreaKasus di VB6...
>>
>> Tolong donk di share....
>>
>> Thanks
>>
>>
>>
>> **********************************************************************
>> This e-mail and any files transmitted with it may contain
>> confidential information and is intended solely for use by
>> the individual to whom it is addressed. If you received
>> this e-mail in error, please notify the sender, do not
>> disclose its contents to others and delete it from your
>> system.
>>
>> **********************************************************************
>>
>>
>>
>> Untuk keluar dari millis ini, kirim email kosong ke:
>> [EMAIL PROTECTED]
>>
>>
>> Yahoo! Groups Links
>>
>>
>>
>>
>>
>>
>>
>>
>> --
>> This message has been scanned for viruses and
>> dangerous content by MailScanner, and is
>> believed to be clean.
>>
>>
>
>
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
>
>
>
> **********************************************************************
> This e-mail and any files transmitted with it may contain
> confidential information and is intended solely for use by
> the individual to whom it is addressed. If you received
> this e-mail in error, please notify the sender, do not
> disclose its contents to others and delete it from your
> system.
>
> **********************************************************************
>
>
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
> Yahoo! Groups Links
>
>
>
>
>
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
**********************************************************************
This e-mail and any files transmitted with it may contain
confidential information and is intended solely for use by
the individual to whom it is addressed. If you received
this e-mail in error, please notify the sender, do not
disclose its contents to others and delete it from your
system.
**********************************************************************
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
