ต่อไป »

[gruaob]

สร้างงานใน vb6 เป็นงานประมาณกรอกประวัติ ในแบบฟอร์ม ซึ่งใช้ Textbox เป็นตัวเก็บค่าเช่น ชื่อ, ที่อยู่, วันเกิด, อายุ, ฯลฯ  แล้วผมต้องการพิมพ์ออกมา โดยได้ใช้ Crystal Report 8.5 ทำฟอร์มสำหรับการพิมพ์ จะดึกข้อมูลจาก Textbox ในฟอร์ม เอามาแปะไว้ใน report ได้อย่างไรบ้างครับ ตอนนี้ที่เข้าใจคือ ต้องทำให้ Text Object ของ CR มีค่าเท่ากับ Textbox ใน Form ของ VB แต่มันทำไม่ได้ซักทีครับ ขอคำแนะนำหน่อยครับผม.. 

[พริกหยวกอินเตอร์1]

ที่ Crystal Report สร้าง Formula Fields ขึ้นมาตามจำนวนเท่ากับ text ใน vb หรือมากกว่าแล้วแต่ต้องการ จัดตกแต่ฟอร์มให้เรียบร้อยบันทึกไฟล์ Report นั้น

จากนั้นลาก Component Control (CrystalReport) เข้ามในฟอร์มคลิกขวาแล้วเลือกที่ Perpoty เลือกไฟล์ Report ที่เรา Save เข้ามา

จากนั้นสร้างปุ่ม Command1 ตั้งชื่อ "พิมพ์" หรืออื่นๆ ดับเบิลคลิกทีหนึ่งจะได้เป็น

Private Sub Command1_Click()

End Sub

เขียนคำสั่งเข้าไปใน Event on Click ดังนี้

Private Sub Command1_Click()
 'อันนี้เอาไว้ดึงไฟล์โดยที่โฟล์เดอร์โปรแกรมสามารถย้ายไปไหนก็เปิด Report ได้
'cryStatusSO.ReportFileName = App.Path & "Report\StatusSO.rpt"
 'แถวนี้ติดต่อฐานข้อมูลคุณไม่ได้ติดต่อกับฐานข้อมูลก็ไม่ต้องใช้
'yStatusSO.Connect = "DRIVER=SQL Server;SERVER=servername;UID=username;PWD=password;APP=Visual Basic;DATABASE=databasename"
'แถวข้างบนใช้ส่งค่าเงื่อนไขรายงานเวลาดึงข้อมูลผ่านฐานข้อมูล คล้าย Where ใน SQL ละ
'cryStatusSO.SelectionFormula = "{ORDERH.FDDATE} >= #" & Format(DTPicker1.Value, "M/d/yyyy") & "

        CrystalReport1.Formulas(0) = "FieldName1=;'" & Label1.Caption & "'"
        CrystalReport1.Formulas(1) = " FieldName2=;'" & Label2.Caption & "'"
        CrystalReport1.Formulas(2) = " FieldName3=;'" & Label3.Caption & "'"
        .
        .
        .
       CrystalReport1.Formulas(n) = " FieldNamen=;'" & Labeln.Caption & "'"
        ‘ข้างล่างนี้คือการสั่งให้ CrystalReport1 ทำงาน
        CrystalReport1.Destination = crptToWindow
        CrystalReport1.WindowState = crptMaximized
        CrystalReport1.Action = 1
‘จบการแสดงรายงาน
End Sub


คิดว่าน่าจะอธิบายรายละเอียดได้พอดีเลยละ

[gruaob]

ขอบคุณมากครับสำหรับคำตอบ แต่ยังสงสัยอยู่ตรงส่วนนี้นะครับ

   CrystalReport1.Formulas(0) = "FieldName1=;'" & Label1.Caption & "'"
   CrystalReport1.Formulas(1) = " FieldName2=;'" & Label2.Caption & "'"
   CrystalReport1.Formulas(2) = " FieldName3=;'" & Label3.Caption & "'"

Formulas(0), Formulas(1), Formulas(2) มันคือส่วนไหนครับ..

[gruaob]

มันแจ้ง error : Object doesn't support this property or method  ครับ ที่บรรทัด

   CrystalReport1.Formulas(0) = "FieldName1=;'" & Label1.Caption & "'"

[พริกหยวกอินเตอร์1]

มันแจ้ง error : Object doesn't support this property or method  ครับ ที่บรรทัด

   CrystalReport1.Formulas(0) = "FieldName1=;'" & Label1.Caption & "'"

มันคือ Index ของ CrystalReport ครับ เหมือนๆ Listbox.item(0).add ไรประมาณนั้น

ส่วน Error ที่แจ้งมา สงสัยว่าคุณจะยังไม่ได้กำหนด Formula Fields หรือป่าวครับ

[gruaob]

ใช่ตรงนี้รึป่าวครับ

[gruaob]

ขอขั้นตอนการสร้าง Formula Fields แบบละเอียดหน่อยครับ ไม่เคยใช้ ^^"

[พริกหยวกอินเตอร์1]

Formula Field สามารถทำได้หลายหน้าที่ ทั้งรับ และคำนวนค่าออกมา

ถ้าต้องการสร้างมารับค้าเฉยๆ ก็แค่คลิกขวาสร้าง New และต้องชื่อ สำคัญที่ชื่อต้องสร้างเป็น ภาษาอังกฤษ นะครับ หลังจากนั้นกด Edit แล้วเลือก Save And Close

จากนั้นทดลองส่งค่าดูครับ มีปัญาหาอื่นๆ แอดมาครับ

[gruaob]

ผมลองทำใหม่ตั้งแต่แรกเลยนะครับ โดยขั้นตอนที่ทำมีดังนี้

1. สร้าง Form1 โดยมี Text1(textbox) และ Command1(commandbutton) และเพิ่ม Crystal Report โดยของผมเป็นเวอร์ชั่น 8.5 นะครับ ใช้ชื่อ CrystalReport1

2. เพิ่ม CrystalReport1(ตัวรายงาน) คลิกขวาที่ Formula Fields ใส่ชื่อเป็น n1 แล้ว Save and Close ลากไปวางใน Details มันจะมี @n1 กะ n1 มันจะมี Form2 ขึ้นมาจาก CRViewer ทำให้ Startup Object กลายเป็น Form2 จึงไปเปลี่ยนกลับเป็น Form1 แล้วทำการ Save แต่จะได้เป็น .Dsr นะครับ

3. กลับไปที่ Form1 คลิกขวา CrystalReport1 >> Crystal Properties >> ReportFileName เลือก CrystalReport1.Dsr แล้วกด ok

4. ที่ Command1 ใช้ code ดังนี้

Private Sub Command1_Click()
        CrystalReport1.FormulaFields(0) = " Field1 = ' " & Text1.Text & " ' "
       
        CrystalReport1.Destination = crptToWindow
        CrystalReport1.WindowState = crptMaximized
        CrystalReport1.Action = 1
End Sub

5. เมื่อทำการ Run กดปุ่ม Command ขึ้น Error ครับ

Run-time error '438':
Object doesn't support this property or method

ที่ บรรทัด >> CrystalReport1.FormulaFields(0) = " Field1 = ' " & Text1.Text & " ' "

ไม่ทราบว่าทำขั้นตอนไหนผิด หรือข้ามไปรึป่าว ช่วยชี้แนะด้วยครับ ขอบคุณครับ

[gruaob]

ช่วยผมด้วย