พีเอ็ม คอม

29 ธันวาคม 2559

Pass Parameter and Formula to Crystal Report (Vb.net) Without Messagebox Resolve

'Tip: Move rpt.SetParameterValue("ParamTitle", txtParameterTitle.Text) and rpt.DataDefinition.FormulaFields("Formula Title").Text = "'" & txtFormulaFields.Text & "'" After rpt.SetDataSource(dt)
-------------------------------------------------------------------------------------------

Imports CrystalDecisions.CrystalReports.Engine

Public Class Form1

    '*** TableRows (DataTable) ***'
    Function DataTableRows() As DataTable
        Dim dt As New DataTable
        Dim dr As DataRow

        '*** Column ***'
        dt.Columns.Add("id")
        dt.Columns.Add("ProductName")
        dt.Columns.Add("Units")
        dt.Columns.Add("Prices", GetType(System.Int64))
        'หากลืมใช้ GetType ให้ใช้โค้ดด้านล่างก็ได้
        'dt.Columns("Prices").DataType = System.Type.GetType("System.Int64")

        '*** Rows ***'
        dr = dt.NewRow
        dr("id") = "001"
        dr("ProductName") = "Printer Name 001"
        dr("Units") = "Box"
        dr("Prices") = "115"

        dt.Rows.Add(dr)

        '*** Rows ***'
        dr = dt.NewRow
        dr("id") = "C002"
        dr("ProductName") = "Keyboard "
        dr("Units") = "Box"
        dr("Prices") = "21"
        dt.Rows.Add(dr)

        '*** Rows ***'
        dr = dt.NewRow
        dr("id") = "C003"
        dr("ProductName") = "Mouse"
        dr("Units") = "Box"
        dr("Prices") = "6543"
        dt.Rows.Add(dr)



        Return dt '*** Return DataTable ***'

    End Function

    Private Sub btnViewReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnViewReport.Click
        Dim dt As DataTable
        dt = DataTableRows()

        Dim rpt As New ReportDocument()
        Dim directory As String = My.Application.Info.DirectoryPath
        'rpt.ReuseReportParametersOnRefresh = False
        'rpt.Load(directory & "..\..\myCrystalReport.rpt")
        rpt.Load("..\..\CrystalReport1.rpt")

        rpt.SetDataSource(dt)
        rpt.SetParameterValue("ParamTitle", txtParameterTitle.Text)

        'การส่งค่า Formula Fields ต้องมีเครื่องหมาย   ' ภายในเสมอ (ใน Crystal Report เป็น X+1 Formula Fields)
        rpt.DataDefinition.FormulaFields("Formula Title").Text = "'" & txtFormulaFields.Text & "'"

        Form2.CrystalReportViewer1.ReportSource = rpt
        Form2.CrystalReportViewer1.Refresh()
        Form2.StartPosition = FormStartPosition.CenterScreen
        Form2.WindowState = FormWindowState.Maximized
        Form2.ShowDialog()

    End Sub
End Class

10 กันยายน 2559

แก้ไขปัญหาไม่สามารถเชื่อมต่อ Wifi ได้เครื่องแจ้งว่า pin หรือรหัสผ่านผิดพลาดตลอด

เมื่อวานซื้อWifi Router TP-Link มาปรากฎว่าเจอปัญหาหนึ่งคือ Login ผ่าน wifi ไม่ได้
ให้ทำดังนี้

1. คลิกขวาที่ Wifi icon > Open Network and Sharing Center
2. >Manage Wireless Network
3. คลิกขวาที่ชื่อ Network ที่เราเชื่อมอยู่ > Remove
4. เชื่อมต่ออีกครั้ง

หากยังไม่ได้อีกให้ทำตามขั้นตอนดังนี้
1. Login เข้า Wifi Router
2. Wireless > WPS> Wireless Security กำหนดรหัสผ่าน
3. Wireless > WPS> Disable WPS เพื่อปิดไม่ให้ใช้ pin ในการตรวจสอบ
4. กลับไป Login ที่เครื่องคอมพิวเตอร์ใหม่