Page 1 of 1

ขอความช่วยเหลือ DataGridView VB2010 ครับ

Posted: Thu Jan 16, 2014 2:27 pm
by ณัฐวุฒิ เบ็ญชา
รบกวนท่านผู้รู้ทุกท่าน

คือผมเขียนโปรแกรมขึ้นมาตัวหนึ่งซึ่งต้องการแสดงข้อมูลเลขที่เอกสารใน DataGridView แต่ในฐานข้อมูลเลขที่เอกสารที่เก็บ

ไม่ได้เป็น PK ดังนั้นในฐานข้อมูลจะมีเลขที่เอกสารที่ซ้ำกันค่อนข้างเยอะ แต่ในตอนที่จะเอามาแสดงใน DataGridView

อยากให้เลขที่เอกสารที่ซ้ำๆ กันโชว์แค่ 1 รายการ ซึ้งตอนนี้สมมติเลขที่เอกสาร 1234/56789 มีซ้ำกกัน 5 รายการในฐานข้อมูล

ตอนดึงมาโชว์ในDataGridView ก็โชว์ 5 บันทัด ซึ่งเป็นเลขที่เอกสารเดียวกัน รบกวนด้วยครับ



ขอบคุณผู้รู้ล่วงหน้าทุกท่านครับ

Re: ขอความช่วยเหลือ DataGridView VB2010 ครับ

Posted: Thu Jan 16, 2014 3:55 pm
by snasui
:D ดูตัวอย่างที่นี่ครับ http://social.msdn.microsoft.com/Forums ... view-error

Re: ขอความช่วยเหลือ DataGridView VB2010 ครับ

Posted: Thu Jan 16, 2014 4:21 pm
by ณัฐวุฒิ เบ็ญชา
OK ได้เรียบร้อยแล้วครับ ผม ขอบคุณอาจารย์มากๆๆๆ ครับผม แต่ปรับแต่งโค้ด นิดหน่อยครับ

Code: Select all

For i = Me.DGV_BRK.RowCount - 1 To 0 Step -1

            For j = i - 1 To 0 Step -1

                If DGV_BRK.Rows(i).Cells(0).Value = DGV_BRK.Rows(j).Cells(0).Value Then

                    DGV_BRK.Rows.Remove(DGV_BRK.Rows(i))
                    i = i - 1
                End If

            Next
        Next

Re: ขอความช่วยเหลือ DataGridView VB2010 ครับ

Posted: Fri Jan 17, 2014 11:24 am
by ณัฐวุฒิ เบ็ญชา
รบกวนท่านผู้รู้ทุกท่าน

ขอรบกวนต่อเนื่องเลยนะครับ คือใน DataGridView มีค่าที่แสดงเป็น 0 ซึ่งใน ฐานข้อมูลก็เป็น 0 แต่ผมไม่ต้องการให้แสดงค่า 0

ต้องการให้เป็นช่อง ว่างๆ เลยอะครับผม

ผมได้เอาโค้ดข้างต้นมาประยุค แต่ก็ยังติด Error อยู่ รบกวนด้วย ครับ

Code: Select all

For i = 0 To Me.DGV_BRK.RowCount - 2

            For j = 4 To 6

                If DGV_BRK.Rows(i).Cells(j).Value = 0 Then

                    DGV_BRK.Rows(i).Cells(j).ValueType = GetType(System.String)
                    DGV_BRK.Rows(i).Cells(j).Value = ""

                End If

            Next
        Next

Re: ขอความช่วยเหลือ DataGridView VB2010 ครับ

Posted: Fri Jan 17, 2014 11:29 am
by ณัฐวุฒิ เบ็ญชา
:oops: :oops: :oops: ขอโทษทีครับ ได้แล้ว แค่เปลี่ยนเป็น

DGV_BRK.Rows(i).Cells(j).Value = DBNull.Value :oops: :oops: