 |
| |
[VB.NET] ค้นหาข้อมูลใน datagridview ให้แสดงเฉพาะข้อมูลที่ต้องการ |
| |
 |
|
|
 |
 |
|
คือไม่ต้องการให้มันโชว์รูปภาพเวลาค้นหาคับ (ram_image) ควรแก้ตรงไหนคับ
.jpg?v=1001)
Code (VB.NET)
Private Sub search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles search.Click
If txtFind.Text = "" Then
MessageBox.Show("ท่านยังไม่ระบุข้อมูลที่ต้องการค้นหา!!!", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Warning)
txtFind.Focus()
Exit Sub
End If
Try
Dim strsql As String = ("SELECT * FROM ram where ram_brand like '%" & txtFind.Text & "%' ")
With sqlConn
If .State = ConnectionState.Open Then .Close()
.Open()
End With
With sqlDA
.SelectCommand = New SqlCommand(strsql, sqlConn)
dsShow.Clear()
.Fill(dsShow, "ram")
End With
If dsShow.Tables("ram").Rows.Count > 0 Then
With dgshow
.DataSource = dsShow.Tables("ram")
dgshow.Columns(0).HeaderText = "รหัส"
dgshow.Columns(1).HeaderText = "ยี่ห้อ"
dgshow.Columns(2).HeaderText = "ประเภท"
dgshow.Columns(3).HeaderText = "ขนาด"
dgshow.Columns(4).HeaderText = "บัส"
dgshow.Columns(5).HeaderText = "ราคา"
dgshow.Columns(6).HeaderText = "ประกัน"
dgshow.Columns(0).Width = 60
dgshow.Columns(1).Width = 100
dgshow.Columns(2).Width = 80
dgshow.Columns(3).Width = 80
dgshow.Columns(4).Width = 80
dgshow.Columns(5).Width = 70
dgshow.Columns(6).Width = 70
dgshow.Show()
.ReadOnly = True
.AllowUserToAddRows = False
End With
Else
MessageBox.Show("ไม่พบข้อมูลที่ค้นหา")
txtFind.Focus()
txtFind.Text = ""
End If
Catch ex As Exception
MessageBox.Show("เกิดข้อผิดพลาดเนื่องจาก" & ex.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
txtFind.Text = ""
sqlConn.Close()
End Try
End Sub
ขอบคุณคับ
Tag : .NET, Ms SQL Server 2008, Crystal Report, VS 2010 (.NET 4.x), Windows
|
|
|
 |
 |
 |
 |
| Date :
2013-10-10 20:38:45 |
By :
monkeyon |
View :
3642 |
Reply :
10 |
|
 |
 |
 |
 |
|
|
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ถ้าคุณจะโกรธผม ผมคิดว่าคุณทำ(คิด) ถูกต้องแล้วครับ ถ้าผมจะบอกว่า
ทั้ง Screen Design(หน้าจอ) และ SourceCode (วิธีที่คุณคิด) มันใช้ไม่ได้แม้แต่บรรทัดเดียว
...
...
...
มีอีกนะครับ แต่ผมระมัดระวังมารยาทพอสมควรและละเอาไว้ให้เป็นที่เข้าใจครับ
เหตุผล : มันซ้ำซาก มันเดิมเดิม มันไม่มีอะไรแปลกและแหวกแนว ครับ
ถ้าผมเป็นอาจารย์ของคุณ ผมให้คะแนนคุณ 30 จาก 100 คะแนน
และผมให้คะแนนอาจารย์ของคุณ -100000000000000000000 จาก 10000000000000000000000 (ไม่ถ้วนค่ะแนน)
ผมอาจจะพิมพ์ผิด แต่ความรู้สึกของผมคนเดียวมันไม่น่าจะผิดพลาดเกิน -.001<.01<.1
|
| |
|
|
| |
| Date :
2013-10-10 22:02:32 |
By :
ผ่านมา |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
เข้าไปแก้ที่หน้า Design ในตัว DataGridView ลบคอลัมป์ออกได้ปะครับ 
|
| |
|
|
| |
| Date :
2013-10-10 22:08:10 |
By :
01000010 |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
นายใช้ autogeneratecolumn อยู่ใช่เปล่า
ใช้แบบ add column เองสิ
|
| |
|
|
| |
| Date :
2013-10-11 07:51:38 |
By :
ห้ามตอบเกินวันละ 2 กระทู้ |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
บรรทัดที่ 20 แทรกคำสั่งนี้ลงไปครับ
Code (VB.NET)
dgshow.AutoGenerateColumns = False
|
| |
|
|
| |
| Date :
2013-10-11 07:55:37 |
By :
ผ่านมา |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ผมให้ดูเป็นตัวอย่างครับ ผมยังไม่ได้เกลา SourceCode
Code (VB.NET)
Dim dtGV As New DataTable()
dtGV.Columns.Add("C1", GetType(String))
dtGV.Columns.Add("C2", GetType(String))
dtGV.Columns.Add("C3", GetType(String))
dtGV.Columns.Add("C4", GetType(String))
dtGV.Columns.Add("C5", GetType(String))
dtGV.Rows.Add(New Object() {})
dtGV.Rows.Add(New Object() {})
dtGV.Rows.Add(New Object() {})
dtGV.Rows.Add(New Object() {})
Me.dgvLayout.RowTemplate.MinimumHeight = 30
Me.dgvLayout.AutoGenerateColumns = False
Me.dgvLayout.ColumnHeadersHeight = 30
For i As Integer = 0 To 23
Me.dgvLayout.Columns.Add(New DataGridViewTextBoxColumn() With {.Name = i + 1, .Width = 30})
Me.dgvLayout.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
Me.dgvEditMsg.Columns.Add(New DataGridViewTextBoxColumn() With {.Name = i + 1, .Width = 90})
Me.dgvEditMsg.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
Me.dgvEditMsg.Columns(i).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
Next
For Each dr As DataRow In dtGV.Rows
Me.dgvLayout.Rows.Add(dr.ItemArray)
Next
|
| |
|
|
| |
| Date :
2013-10-11 08:16:18 |
By :
ผ่านมา |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
#NO 6 ผมออกแบบเอาไว้ลอยฯ แขวนเอาไว้ พ่วงด้วยความกดดันสารเพลมพัด
เมื่อสองวันก่อนผมไป จ.นครสวรรค์ ดู Line ผลิตจริง
ก่อนออกจากบ้าน ภรรยาของผมถามว่า "มีโอกาสได้งานนี้ไหม"
ผมตอบว่า "ไม่มีทางที่ผมจะได้ทำงานนี้แน่นอน" ยิ่งกว่า 100%
ภรรยาของผมบ่นตามหลัง "ผัวจ๋าเราไม่มีข้าวสารจะกรอกหม้อแล้วนะ หนูไม่ได้ใส่กางเกงในมาเป็นอาทิตย์แล้ว"
พอไปถึงโรงงาน ผมก็เข้าไปในห้องควบคุมระบบ (อัตโนมัติอยู่แล้ว) ขอฆ้อนหน่อยครับ
เจ้าหน้าที่ : พี่จะเอามาทำไมล่ะ
ผมตอบว่า : ผมจะเอามาทุบตู้คอนโทรลหลัก เพื่อจะดูว่าข้างในมันมีอะไรบ้าง? (ขนาดตู้ประมาณ รถ 18 ล้อ)
ไฟระยิบระยับยิ่งกว่างานคอนเสริต์อีกว่ะ
เจ้าหน้าที่ : พี่ไม่กลัวมันเสียหรือครับ
ผมตอบ : ไม่กลัว เพราะมันไม่ใช่ของผม (กู)
...
...
...
...
[x] อยากรู้ไหมว่าทำไมผมถึงต้องไป ทั้งฯที่ไม่มีโอกาสที่จะได้งานนี้เลย?
|
| |
|
|
| |
| Date :
2013-10-11 08:36:43 |
By :
ผ่านมา |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
จาก #NO 7
ผมก็คุยกับวิศวะกรไฟฟ้า และวิศวะกรเครื่องกล (ดูจากหน้างานมันต้องสัมพันธ์กันอยู่แล้ว)
มีอยู่ประโยคหนึ่งที่ผมพูดออกไป : ถ้าผมไม่ถามคุณก็ไม่ต้องอธิบายให้ผมฟังก็ได้ครับ ผมเกรงใจครับ
(โน่นคืออะไร นี่คืออะไร, etc)
|
| |
|
|
| |
| Date :
2013-10-11 08:45:22 |
By :
ผ่านมา |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
สมมุติว่าคุณทำโปรเจคจบ และจากคำถามของคุณ (Hardware) ผมมีไอเดียนำเสนอคุณครับ
ให้คุณเปลี่ยนหัวข้อโปรเจคเป็น USB/Serial Port Connections
และสมมุติต่อไปอีกว่า คุณเลือก Serial Port
-คุณก็ต้องไปดูว่ามันเชื่อมต่อกับอุปกรณ์ภายนอก (Various Signal) อย่างไร เช่น เครื่อง CNC, PLC, Weigth Scale, Print Server, etc
-ลำัพังสายสัญญาน แค่ 9 เส้น (2, 3, 5) TX, RX, Ground มันพอใช้งานได้จริงหรือไม่?
--- ไม่พอแน่นอนว่ามันต้องขยายช่องสัญญาน ทำอย่างไรล่ะ?
-ระบบแรงดัน (TTL) เท่าไหร่ อยู่ในช่วงไหน (Period) +- 3V เป็นต้น ระยะทางไกล้ไกล (Distance)
-ความแปรปรวนต่างเช่น ภายใน/ภายนอก ความชื้น etc มีผลกระทบอะไรไหม?
-...
-...
ขอให้โชคดีครับ
|
| |
|
|
| |
| Date :
2013-10-11 09:11:33 |
By :
ผ่านมา |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
