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

Registered : 108,209

HOME > .NET Framework > Forum > ปุ๋มค้นหา ค้นหาได้แค่หัว Column เดียวครับช่วยที่ครับ



 

ปุ๋มค้นหา ค้นหาได้แค่หัว Column เดียวครับช่วยที่ครับ

 



Topic : 134557



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



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



โปรแกรมผม
Code (VB.NET)
Imports System.IO
Imports System.Data.DataTable
Public Class Form1
    Dim table As New DataTable("table")
    Dim index As Integer
    Private dtTableGrd As DataTable

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'หัว Columns
        table.Columns.Add("ชื่อผู้ใช้บริการ", Type.GetType("System.String"))
        table.Columns.Add("เบอร์โทรศัพท์", Type.GetType("System.String"))
        table.Columns.Add("ประเภทรถ", Type.GetType("System.String"))
        table.Columns.Add("บริการที่ใช้", Type.GetType("System.String"))
        table.Columns.Add("ราคาบริการ", Type.GetType("System.String"))
        table.Columns.Add("วันที่บริการ", Type.GetType("System.String"))

        DataGridView1.DataSource = table
        dtTableGrd = table
    End Sub
    'เพื่มข้อมูลเพื่มแถว
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        table.Rows.Add(ชื่อ.Text, เบอร์.Text, รถ.Text, บริการ.Text, ราคา.Text, วันที่.Text)
        ชื่อ.Clear()
        เบอร์.Clear()
        ราคา.Clear()

        DataGridView1.DataSource = table

    End Sub
    'Save
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        On Error GoTo SaveErr
        Dim writer As New StreamWriter("C:\Memoryคาร์แคร์\SAVE\MemorySave.Txt")

        For i As Integer = 0 To DataGridView1.Rows.Count - 2 Step +1

            For j As Integer = 0 To DataGridView1.Columns.Count - 1 Step +1

                If j = DataGridView1.Columns.Count - 1 Then
                    writer.Write(vbTab & DataGridView1.Rows(i).Cells(j).Value.ToString() & vbTab & "l")

                Else
                    writer.Write(vbTab & DataGridView1.Rows(i).Cells(j).Value.ToString() & vbTab & "l")

                End If

            Next j

            writer.WriteLine("")

        Next
        writer.Close()
        MessageBox.Show("บันทึกเรียบร้อย")

SaveErr:
    End Sub
    'ออกจากโปรแกรม
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Me.Close()
    End Sub
    'DeleteRow
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        On Error GoTo SaveErr
        Dim rowIndex = DataGridView1.CurrentCell.RowIndex
        DataGridView1.Rows.RemoveAt(RightToLeftLayout)
SaveErr:
    End Sub
    'ค้นหา (ใช้ไม่ได้ครับได้แค่ผู้บริการ)
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        On Error GoTo SaveErr

        dtTableGrd.DefaultView.RowFilter = "(Convert(ชื่อผู้ใช้บริการ, 'System.String') LIKE '" & ST.Text & "')" & _
                                            "OR (เบอร์โทรศัพท์, 'System.String') LIKE '" & ST.Text & "')"

SaveErr:

    End Sub
    Private bitmap As Bitmap
    'ปริ้น
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim height As Integer = DataGridView1.Height
        DataGridView1.Height = DataGridView1.RowCount * DataGridView1.RowTemplate.Height
        bitmap = New Bitmap(Me.DataGridView1.Width, Me.DataGridView1.Height)
        DataGridView1.DrawToBitmap(bitmap, New Rectangle(1, 1, Me.DataGridView1.Width, Me.DataGridView1.Height))
        PrintPreviewDialog1.Document = PrintDocument1
        PrintPreviewDialog1.PrintPreviewControl.Zoom = 1
        PrintPreviewDialog1.ShowDialog()
        DataGridView1.Height = height
    End Sub
    'ปริ้น
    Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
        e.Graphics.DrawImage(bitmap, 1, 1)
        Dim rectPrint As RectangleF = e.PageSettings.PrintableArea
        If Me.DataGridView1.Height - rectPrint.Height > 0 Then e.HasMorePages = True
    End Sub
    'Open
    Private Sub เปดไฟลงานToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles เปดไฟลงานToolStripMenuItem.Click

        Dim lines() As String
        Dim data() As String

        lines = File.ReadAllLines("C:\Memoryคาร์แคร์\SAVE\MemorySave.Txt")

        For i As Integer = 0 To lines.Length - 1 Step +1

            data = lines(i).ToString().Split("l")
            Dim row(data.Length - 1) As String

            For j As Integer = 0 To data.Length - 1 Step +1

                row(j) = data(j).Trim

            Next j

            DataGridView1.Rows.Add(row)

        Next i

    End Sub
    'Save
    Private Sub บนทกงานToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles บนทกงานToolStripMenuItem.Click
        Dim writer As New StreamWriter("C:\Memoryคาร์แคร์\SAVE\MemorySave.Txt")

        For i As Integer = 0 To DataGridView1.Rows.Count - 2 Step +1

            For j As Integer = 0 To DataGridView1.Columns.Count - 1 Step +1

                If j = DataGridView1.Columns.Count - 1 Then
                    writer.Write(vbTab & DataGridView1.Rows(i).Cells(j).Value.ToString() & vbTab & "l")

                Else
                    writer.Write(vbTab & DataGridView1.Rows(i).Cells(j).Value.ToString() & vbTab & "l")

                End If

            Next j

            writer.WriteLine("")

        Next
        writer.Close()
        MessageBox.Show("บันทึกเรียบร้อย")
    End Sub
End Class

/img]



Tag : .NET, VBScript, VB.NET, Windows









ประวัติการแก้ไข
2019-11-25 23:23:12
2019-11-25 23:24:39
2019-11-25 23:25:00
2019-11-25 23:25:25
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2019-11-25 23:20:50 By : SamritAmsakuł View : 126 Reply : 1
 

 

No. 1



โพสกระทู้ ( 4,026 )
บทความ ( 23 )



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

ถ้าใช้ cvs/.accdb จะใช้ sql ได้ง่ายกว่าครับ
แต่ถ้าใช้ txt ลองใช้ regex เช็คดูก็ได้เช่นกัน






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2019-11-26 08:49:52 By : lamaka.tor
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ปุ๋มค้นหา ค้นหาได้แค่หัว Column เดียวครับช่วยที่ครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 02
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2020 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่