เรื่อง Crystal Reports กับ VB 2008 สร้างโปรแกรมเก็บข้อมูลพนักงานค่ะ อยากจะออกรายงานเฉพาะคนที่เราเพิ่มเข้าไปล่าสุดเพียงคนเดียวเท่านั้น

Dim frmRpt As New frmreportshow    'ชื่อformที่เราว่าง crystal viewer เอาไว้
frmRpt.crtReport.ReportSource = New crBuy  '  crtReport ชื่อ crystal viewer / crBuy ชื่อ crystal report ที่เราสร้างไว้แล้ว
frmRpt.crtReport.SelectionFormula = "{orderp.Ord_id}='" & txtSearch.Text & "'"  
frmRpt.ShowDialog(Me)

' txtSearch ชื่อ textbox ที่จะมารับค่า / orderp.Ord_id ชื่อตารางและชื่อคอลัม ที่จะให้ txtSearch อ้างถึง

Private Sub Form2_Load
With mySQLConn
            If .State = ConnectionState.Open Then Close()
            .ConnectionString = Module1.conn
            .Open()
        End With
        Dim sql As String
        Dim da As New SqlDataAdapter
        sql = "Select top 1 * From View_report ORDER BY id DESC"
        cmd = New SqlCommand(sql, mySQLConn)
        dr = cmd.ExecuteReader
        dr.Read()
        TextBox1.Text = dr.Item("emp_id").ToString
        dr.Close()

Private Sub CrystalReportViewer1_Load
Dim rpt As New CrystalReport1

        ' ---- เพิ่มโค้ดส่วนนี้ สำหรับแต่ละตารางในรายงาน
        Dim log As CrystalDecisions.Shared.TableLogOnInfo
        log = rpt.Database.Tables("View_report").LogOnInfo ' ---- แก้ชื่อตารางด้วย
        With log.ConnectionInfo
            .UserID = "sa" ' ---- กำหนด User ID
            .Password = "buddy716" ' ---- กำหนด Password
        End With
        rpt.Database.Tables("View_report").ApplyLogOnInfo(log) ' ---- ให้เอาข้อมูล LogOn ใหม่ไปใช้
        rpt.SetParameterValue("Rid", TextBox1.Text)
        rpt.RecordSelectionFormula = "{VIEW_report.emp_id} = {?Rid}"
        CrystalReportViewer1.ReportSource = rpt