How To Add Datacolumn To Datagrid Through Code

In this blog we will know how To Add Datacolumn To Datagrid Through Code.

In this blog we will know how To Add Datacolumn To Datagrid Through Code.

 

 

Public Class Form1

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim table1 As DataTable

        table1 = New DataTable("Employees")

        Dim row1 As DataRow

        Dim FirstName As DataColumn = New DataColumn("First Name")

 

        table1.Columns.Add(FirstName)

        Dim Lastname As DataColumn = New DataColumn("Last Name")

        table1.Columns.Add("Last Name")

        Dim Age As DataColumn = New DataColumn("Age")

        table1.Columns.Add("Age")

        Dim Salary As DataColumn = New DataColumn("Salary")

        table1.Columns.Add("Salary")

        Dim Marks As DataColumn = New DataColumn("Marks")

        table1.Columns.Add("Marks")

 

        row1 = table1.NewRow()

        row1("First Name") = "Amit"

        row1("Last Name") = "Sharma"

        row1("Age") = 30

        row1("Salary") = "20000"

        row1("Marks") = "70"

        table1.Rows.Add(row1)

 

        row1 = table1.NewRow()

        row1("First Name") = "Rahul"

        row1("Last Name") = "Dravid"

        row1("Age") = 31

        row1("Salary") = "300000"

        row1("Marks") = "80"

        table1.Rows.Add(row1)

 

        row1 = table1.NewRow()

        row1("First Name") = "Sachin"

        row1("Last Name") = "Tendulkar"

        row1("Age") = 32

        row1("Salary") = "10000000"

        row1("Marks") = "90"

        table1.Rows.Add(row1)

 

        Dim ds As DataSet

        ds = New DataSet

        ds.Tables.Add(table1)

        DataGrid1.SetDataBinding(ds, "Employees")

    End Sub

End Class