Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,415

HOME > .NET Framework > Forum > ผมได้ ทำปุ่มค้นหาใน ฟอร์ม CrystalReportViewer แต่ปรากฏว่าไม่เจอ ฟอร์มของcrystalreport ช่วยดูให้หน่อยขอบคุณครับ





 

ผมได้ ทำปุ่มค้นหาใน ฟอร์ม CrystalReportViewer แต่ปรากฏว่าไม่เจอ ฟอร์มของcrystalreport ช่วยดูให้หน่อยขอบคุณครับ

 



Topic : 133318



โพสกระทู้ ( 18 )
บทความ ( 0 )



สถานะออฟไลน์




Code (VB.NET)
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared


Public Class Form8

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim CrTables As Tables
        Dim CrTableLogonInfo As New TableLogOnInfo()
        Dim CrConnectionIfo As New ConnectionInfo()

        Dim rptDoc As New ReportDocument()
        rptDoc.Load(Application.StartupPath & "\CrystalReport1.rpt")

        With CrConnectionIfo
            .ServerName = Application.StartupPath & "\Database2.accdb"
        End With

        CrTables = rptDoc.Database.Tables

        For Each CrTable In CrTables
            CrTableLogonInfo = CrTable.LogonInfo
            CrTableLogonInfo.ConnectionInfo = CrConnectionIfo
            CrTable.ApplyLogOnInfo(CrTableLogonInfo)
        Next

        If Not (String.IsNullOrEmpty(TextBox1.Text)) Then
            Dim qry As String = TextBox1.Text.Trim().ToString()
            Dim reportQuery As String = String.Empty

            reportQuery = "{ใบเสร็จลูกค้า.หมายเลขเครื่อง} LIKE '*" & qry & "*'"
            reportQuery &= "OR {ใบเสร็จลูกค้า.วันที่} LIKE '*" & qry & "*'"
            reportQuery &= "OR {ใบเสร็จลูกค้า.สินค้าและบริการ} LIKE '*" & qry & "*'"
            reportQuery &= "OR {ใบเสร็จลูกค้า.ดำเนินการ} LIKE '%" & qry & "%'"
            reportQuery &= "OR {ใบเสร็จลูกค้า.รวมเงิน} LIKE '%" & qry & "%'"

            CrystalReportViewer1.SelectionFormula = reportQuery

        End If
        CrystalReportViewer1.Refresh()
        CrystalReportViewer1.RefreshReport()


    End Sub


1
1. พิมพ์ตัวที่ต้องการค้นหา

2
2. พอกดปุ่มbutton แล้วก้เด้งแจ้งแบบนี้ว่าไม่พบ

3
3.ชื่อไฟล์ของตัว Crystal report

4
4. ชื่อของตัว Textbox ช้องที่สำหรับพิมค้นหา

5
5. ข้อมูลที่ ใส่ลงไปใน Crystalreport



Tag : .NET, Ms Access, VB.NET, Windows







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2019-03-17 11:24:32 By : ืZhang View : 151 Reply : 5
 

 

No. 1



โพสกระทู้ ( 18 )
บทความ ( 0 )



สถานะออฟไลน์


ช่วยด้วยครับใครพอทราบ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-03-18 10:09:05 By : ืZhang
 


 

No. 2



โพสกระทู้ ( 99 )
บทความ ( 0 )



สถานะออฟไลน์


Code (VB.NET)
Dim objConn As New SqlConnection
Dim objCmd As New SqlCommand
Dim dtAdapter As New SqlDataAdapter
Dim ds As New DataSet
Dim dt As DataTable
Dim strConnString, strSQL As String
strConnString = "Data Source=" & Cnnt.StrServer & ";Initial Catalog=" & Cnnt.StrDatabase & ";User ID=" & Cnnt.StrUser & ";Password=" & Cnnt.StrPWD
strSQL = "select * from Book"
objConn.ConnectionString = strConnString
With objCmd
.Connection = objConn
.CommandText = strSQL
.CommandType = CommandType.Text
End With
dtAdapter.SelectCommand = objCmd
dtAdapter.Fill(ds, "Data_Book_New")
dt = ds.Tables(0)
dtAdapter = Nothing
objConn.Close()
objConn = Nothing
Dim rpt As New rptReport_Book_by_Type()
rpt.Load() 
rpt.SetDataSource(dt)
Me.CrystalReportViewer1.ReportSource = rpt



ประวัติการแก้ไข
2019-03-18 11:02:18
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-03-18 10:58:00 By : outhai
 

 

No. 3



โพสกระทู้ ( 18 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 2 เขียนโดย : outhai เมื่อวันที่ 2019-03-18 10:58:00
รายละเอียดของการตอบ ::
คืออะไรหรอครับ ให้เขียนโค้ดใหม่หรอ ผมใช้access เป็นฐานข้อมูลอะครับ


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-03-18 15:01:10 By : ืZhang
 


 

No. 4



โพสกระทู้ ( 99 )
บทความ ( 0 )



สถานะออฟไลน์


ตอบความคิดเห็นที่ : 3 เขียนโดย : ืZhang เมื่อวันที่ 2019-03-18 15:01:10
รายละเอียดของการตอบ ::
Code (VB.NET)
แค่นี้น่าจะได้นะผมว่า ลองดู
Dim rpt As New rptReport_Book_by_Type()
rpt.Load()


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-03-19 08:51:10 By : outhai
 


 

No. 5

Guest


Code (VB.NET)
'C:\YourProgram\bin\Debug\abcd.exe
'C:\YourProgram\CrytstalReport1.rpt

If Application.StartupPath.EndsWith("bin\Debug") Then
    rptDoc.Load(Application.StartupPath & "..\..\CrystalReport1.rpt")
ElseIf Application.StartupPath.EndsWith("bin") Then
    rptDoc.Load(Application.StartupPath & "..\CrystalReport1.rpt")
Else
    rptDoc.Load("C:\YourProgram\CrytstalReport1.rpt")
End If


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-03-19 10:30:52 By : ccc
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ผมได้ ทำปุ่มค้นหาใน ฟอร์ม CrystalReportViewer แต่ปรากฏว่าไม่เจอ ฟอร์มของcrystalreport ช่วยดูให้หน่อยขอบคุณครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม

Load balance : Server 01
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่