VB.NET , ต้องการซ่อนคอลัมน์ที่มีชื่อขึ้นต้นด้วย "NoName" ใน DataGridView

ที่มา:
      
         หลังจาก Import ไฟล์ Excel เข้ามาแล้ว มีบางคอลัมน์ที่ไม่ต้องการข้อมูล จะมีชื่อขึ้นต้นด้วย NoName ซึ่งเราต้องการซ่อนคอลัมน์เหล่านี้ ดังรูปข้างล่างนี้

 

 สามารถทำได้หลายวิธี

 ลองทำดูแล้วได้ผลดี ขอแนะนำ 2 แบบ

แบบที่ 1

          
With DataGridView1
  For Each column As DataColumn In YourDataTable.Columns
                If Len(column.ColumnName) >= 6 Then
                    colName = Trim(column.ColumnName).Substring(0, 6)
                    If colName = "NoName" Then
                        .Columns(column.ColumnName).Visible = False
                    End If
                End If
  Next
End With

และแบบที่ 2

With DataGridView1
  For i As Integer = 0 To YourDataTable.Columns.Count - 1
                If Len(.Columns(i).HeaderText.Trim) >= 6 Then
                    colName = .Columns(i).HeaderText.Trim.Substring(0, 6)
                    If colName = "NoName" Then
                        .Columns(i).Visible = False
                    End If
                End If
  Next
End With

ตั้ง Primary key สำหรับ DataTable

The first example defines a single column as the primary key

Dim columns(1) As DataColumn
columns(0) = workTable.Columns("CustID")
workTable.PrimaryKey = columns

The following example defines two columns as a primary key.

Dim keyColumn(2) As DataColumn
keyColumn(0) = workTable.Columns("CustLName")
keyColumn(1) = workTable.Columns("CustFName")
workTable.PrimaryKey = keyColumn

ต้องการรู้ว่า Datatable นี้มี Column ชื่อ xxx อยู่หรือไม่

VB.NET
ต้องการรู้ว่า Datatable นี้มี Column ชื่อ xxx อยู่หรือไม่
ถ้ามีอยู่แล้วก็ไม่ต้องทำอะไรแต่ถ้าไม่มีก็ Add Column นั้นเข้าไปด้วย

If Not dtDT.Columns.Contains("MCH_NAME")        Then
           dtDT.Columns.Add("MCH_NAME", Type.GetType("System.String"))
End If