Asp Control ASP.Net

  1. Home
  2. ASP.Net
  3. Asp Control
  4. Add data to datagrid (VB net)
<%@ Page Language=VB Debug=true %>
<%@ Import Namespace="System.Data" %>

Sub Page_Load(ByVal Sender as Object, ByVal E as EventArgs)
    If Not IsPostBack Then
        Dim MyDT As New DataTable
        Dim MyRow As DataRow
        MyDT.Columns.Add(New DataColumn("EmployeeID", _
            GetType(Int32)))
        MyDT.Columns.Add(New DataColumn("EmployeeFirstName", _
            GetType(String)))
        MyDT.Columns.Add(New DataColumn("EmployeeLastName", _
            GetType(String)))
        MyDT.Columns.Add(New DataColumn("BirthDate", _
            GetType(Date)))
        MyDT.Columns.Add(New DataColumn("Salary", _
            GetType(Single)))
        MyRow = MyDT.NewRow()
        MyRow(0) = 1
        MyRow(1) = "A"
        MyRow(2) = "M"
        MyRow(3) = "5/15/65"
        MyRow(4) = "40000"
        MyDT.Rows.Add(MyRow)
        MyRow = MyDT.NewRow()
        MyRow(0) = 2
        MyRow(1) = "J"
        MyRow(2) = "F"
        MyRow(3) = "7/22/75"
        MyRow(4) = "73050"
        MyDT.Rows.Add(MyRow)
        MyRow = MyDT.NewRow()
        MyRow(0) = 3
        MyRow(1) = "L"
        MyRow(2) = "S"
        MyRow(3) = "12/8/71"
        MyRow(4) = "62500"
        MyDT.Rows.Add(MyRow)
        MyRow = MyDT.NewRow()
        MyRow(0) = 4
        MyRow(1) = "S"
        MyRow(2) = "M"
        MyRow(3) = "3/15/54"
        MyRow(4) = "43222"
        MyDT.Rows.Add(MyRow)
        MyRow = MyDT.NewRow()
        MyRow(0) = 5
        MyRow(1) = "J"
        MyRow(2) = "P"
        MyRow(3) = "3/12/47"
        MyRow(4) = "52825"
        MyDT.Rows.Add(MyRow)
        dg1.DataSource = MyDT
        dg1.DataBind()
    End If
End Sub



DataGrid 1 Control Sample Page




    id="dg1" 
    runat="server"
/>