Add-button-to-asp


            <%@ 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) = "Bob"
        MyRow(2) = "Miller"
        MyRow(3) = "5/15/65"
        MyRow(4) = "40000"
        MyDT.Rows.Add(MyRow)
        MyRow = MyDT.NewRow()
        MyRow(0) = 2
        MyRow(1) = "Jenny"
        MyRow(2) = "Fry"
        MyRow(3) = "7/22/75"
        MyRow(4) = "73050"
        MyDT.Rows.Add(MyRow)
        MyRow = MyDT.NewRow()
        MyRow(0) = 3
        MyRow(1) = "Lisa"
        MyRow(2) = "Smith"
        MyRow(3) = "12/8/71"
        MyRow(4) = "62500"
        MyDT.Rows.Add(MyRow)
        MyRow = MyDT.NewRow()
        MyRow(0) = 4
        MyRow(1) = "Stephanie"
        MyRow(2) = "Myer"
        MyRow(3) = "3/15/54"
        MyRow(4) = "43222"
        MyDT.Rows.Add(MyRow)
        MyRow = MyDT.NewRow()
        MyRow(0) = 5
        MyRow(1) = "Jimmy"
        MyRow(2) = "Parker"
        MyRow(3) = "3/12/47"
        MyRow(4) = "52825"
        MyDT.Rows.Add(MyRow)
        dg1.DataSource = MyDT
        dg1.DataBind()
    End If
    If Len(Request.QueryString("EmployeeID")) > 0 Then
        lblMessage.Text = "You selected employee " _
            & Request.QueryString("EmployeeID") & ".
"
    End If
End Sub
Sub Click_Grid(ByVal Sender as Object, ByVal E as DataGridCommandEventArgs)
    lblMessage.Text = "You selected " _
        & E.Item.Cells(2).Text & " " _
        & E.Item.Cells(1).Text & "
"
End Sub



DataGrid 3 Control Sample Page




    id="lblMessage"
    runat="server"
/>


    id="dg1" 
    runat="server"
    Width="90%"
    BorderColor="black"
    CellPadding=3 
    CellSpacing="0"
    Font-Name="Trebuchet MS"
    Font-Size="10pt"
    ForeColor="Black"
    BackColor="Beige" 
    AlternatingItemStyle-ForeColor="Cornsilk"
    AlternatingItemStyle-BackColor="DarkBlue"
    AlternatingItemStyle-Font-Name="Arial"
    AlternatingItemStyle-Font-Italic="True"
    HeaderStyle-BackColor="Burlywood"
    HeaderStyle-Font-Bold="True"
    AutoGenerateColumns="false"
    OnItemCommand="Click_Grid"
>
    
                    HeaderText="Employee ID"
            DataNavigateUrlField="EmployeeID"
            
            DataNavigateUrlFormatString="./thispage.aspx?EmployeeID={0}"
            DataTextField="EmployeeID"
            Target="_self"
        />
                    HeaderText="Last Name" 
            DataField="EmployeeLastName"
        />
                    HeaderText="First Name" 
            DataField="EmployeeFirstName"
        />
                    HeaderText="Salary"
            DataField="Salary"
            DataFormatString="{0:C}"
        />
                    HeaderText="Birth Date"
            DataField="BirthDate"
            DataFormatString="{0:d}"
        />
                    HeaderText="Click for Fun" 
            ButtonType="PushButton" 
            Text="Click Me"
        />
Asp Control ASP.Net
