请高手帮忙!!!!

protected void GridView1_RowDataBound(object sender, GridViewRowEventArgs e) { if (e.Row.RowType == DataControlRowType.DataRow) { e.Row.Attributes.Add("OnMouseOut", "this.style.backgroundColor='#FFFFFF';this.style.color='#336699'"); e.Row.Attributes.Add("OnMouseOver", "this.style.backgroundColor='#228ECE';this.style.color='#FF0000'"); e.Row.Attributes.Add("OnDblClick", "DbClickEvent('" + ((System.Data.DataRowView)(e.Row.DataItem)).Row.ItemArray[1] + "','" + Gcmc + "','" + Conn + "')"); e.Row.Attributes["style"] = "Cursor:hand"; } }

加为好友

发送私信

在线聊天

Sandy945
阿非 (Approach JAVA)
等级:

发表于：2008-05-10 17:43:4311楼得分:0

HTML code


<%@ Page Language="VB" AutoEventWireup="false" CodeFile="DataList.aspx.vb" Inherits="DataList" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>无标题页</title>
    <script>
    parent.parent
    </script>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:DataList ID='dl' runat="server">
            <ItemTemplate>
            <asp:Literal ID='lit' Text='<%#Eval("Name") %>' runat="server"></asp:Literal>
            <asp:LinkButton ID='lbtn' Text='click me' OnClick="lbtn_Click" runat="server"></asp:LinkButton>
            </ItemTemplate>
            </asp:DataList>            
            <asp:Literal ID='showLit' runat="server"></asp:Literal>   
      </div>  
    </form>
</body>
</html>

VB.NET code




Partial Class DataList
    Inherits System.Web.UI.Page


    Protected Function getDataTable() As Data.DataTable

        Dim dt As New System.Data.DataTable()
        Dim dr As System.Data.DataRow
        dt.Columns.Add(New System.Data.DataColumn("ID", GetType(Integer)))
        dt.Columns.Add(New System.Data.DataColumn("Name", GetType(String)))
        dr = dt.NewRow()
        dr(0) = 1
        dr(1) = "小明"
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dr(0) = 2
        dr(1) = "小强"
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dr(0) = 3
        dr(1) = "小张"
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dr(0) = 4
        dr(1) = "小李"
        dt.Rows.Add(dr)
        dr = dt.NewRow()
        dr(0) = 5
        dr(1) = "小关"
        dt.Rows.Add(dr)
        Return dt
    End Function

    Protected Sub lbtn_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim lbtn As LinkButton = TryCast(sender, LinkButton)
        Dim lit As Literal = TryCast(lbtn.Parent.FindControl("lit"), Literal)
        If lit IsNot Nothing Then
            showLit.Text = lit.Text
        End If

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Not IsPostBack Then
            dl.DataSource = getDataTable()
            dl.DataBind()
        End If
    End Sub


End Class

修改删除举报引用回复