[原创]Datagrid和Button控件

页面上有一个Datagrid控件，3个Button按钮，分别为全部工资，最高工资，平均工资，实现单击某一个就能出现相应数据

首先在Page_load里自定义控件和事件

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler Button1.Click, AddressOf abc
        AddHandler Button2.Click, AddressOf abc
        AddHandler Button3.Click, AddressOf abc
    End Sub

分别表示为将3个按钮对应起相应的事件，然后在自定义过程abc中添加代码实现功能.

    Public Sub abc(ByVal sender As Object, ByVal e As EventArgs)
        Dim sql As String
        Select Case CType(sender, Button).CommandName
            Case "all"
                sql = "select state,zip from authors group by state,zip"
            Case "allmax"
                sql = "select state as 省份名称,max(zip) as 最高工资 from authors group by state"
            Case "allavg"
                sql = "select state as 省份名称,avg(zip) as 平均工资 from authors group by state"
        End Select
        Dim conn As New OleDbConnection("provider=sqloledb.1;data source=localhost;initial catalog=pubs;user id=sa;pwd=SC")
        conn.Open()
        Dim com As New OleDbCommand(sql, conn)
        Dim reader As OleDbDataReader
        reader = com.ExecuteReader
        DataGrid1.DataSource = reader
        DataGrid1.DataBind()
        conn.Close()
    End Sub

其中Ctype(sender,button).Commandname 可以访问页面上按钮的Commandname属性，借此区分每个按钮。