如何得到DataGrid中点击的当前行？
来源：互联网 发布：惊艳的句子知乎 编辑：程序博客网 时间：2024/05/01 23:29
下面的代码实现了如何得到点击的当前行的数据
GetCurrentClickRow.aspx
<![CDATA[&lt;%@ Page Language=&quot;vb&quot; EnableViewState=&quot;False&quot; AutoEventWireup=&quot;false&quot;Codebehind=&quot;GetCurrentClickRow.aspx.vb&quot; Inherits=&quot;aspxWeb.mengxianhui.com.GetCurrentClickRow&quot;%&gt;&lt;!DOCTYPE HTML PUBLIC &quot;-//W3C//DTD HTML 4.0 Transitional//EN&quot;&gt;&lt;HTML&gt;&lt;HEAD&gt;&lt;title&gt;GetCurrentClickRow&lt;/title&gt;&lt;meta content=&quot;Microsoft Visual Studio.NET 7.0&quot; name=&quot;GENERATOR&quot;&gt;&lt;meta content=&quot;Visual Basic 7.0&quot; name=&quot;CODE_LANGUAGE&quot;&gt;&lt;meta content=&quot;JavaScript&quot; name=&quot;vs_defaultClientScript&quot;&gt;&lt;meta content=&quot;http://schemas.microsoft.com/intellisense/ie5&quot; name=&quot;vs_targetSchema&quot;&gt;&lt;/HEAD&gt;&lt;body style=&quot;FONT-SIZE: 9pt&quot; MS_POSITIONING=&quot;GridLayout&quot;&gt;&lt;form id=&quot;Form1&quot; method=&quot;post&quot; runat=&quot;server&quot;&gt;&lt;asp:Panel id=&quot;Panel1&quot; runat=&quot;server&quot;&gt;&lt;asp:Label id=&quot;label1&quot; Runat=&quot;server&quot;&gt;&lt;/asp:Label&gt;&lt;asp:DataGrid id=&quot;DataGrid1&quot; runat=&quot;server&quot; AutoGenerateColumns=&quot;False&quot; CellPadding=&quot;4&quot;BackColor=&quot;White&quot; BorderWidth=&quot;1px&quot; BorderStyle=&quot;None&quot; BorderColor=&quot;#CC9966&quot;&gt;&lt;ItemStyle ForeColor=&quot;#330099&quot; BackColor=&quot;White&quot; Font-Size=&quot;9pt&quot;&gt;&lt;/ItemStyle&gt;&lt;HeaderStyle Font-Bold=&quot;True&quot; ForeColor=&quot;#FFFFCC&quot; BackColor=&quot;#990000&quot; Font-Size=&quot;9pt&quot;&gt;&lt;/HeaderStyle&gt;&lt;Columns&gt;&lt;asp:BoundColumn DataField=&quot;Title&quot;&gt;&lt;/asp:BoundColumn&gt;&lt;asp:BoundColumn DataField=&quot;CreateDate&quot;&gt;&lt;/asp:BoundColumn&gt;&lt;/Columns&gt;&lt;/asp:DataGrid&gt;&lt;/asp:Panel&gt;&lt;/form&gt;&lt;/body&gt;&lt;/HTML&gt;]]>GetCurrentClickRow.aspx.vb
<![CDATA[Imports SystemImports System.DataImports System.Data.OleDbPublic Class GetCurrentClickRowInherits System.Web.UI.PageProtected WithEvents Panel1 As System.Web.UI.WebControls.PanelProtected WithEvents label1 As System.Web.UI.WebControls.LabelProtected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid#Region &quot; Web Form Designer Generated Code &quot;&lt;System.Diagnostics.DebuggerStepThrough()&gt; Private Sub InitializeComponent()End SubPrivate Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles MyBase.InitInitializeComponent()End Sub#End RegionPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _Handles MyBase.Loadlabel1.Text = &quot;获得所点击行的例子&quot;label1.Font.Bold = TruePanel1.HorizontalAlign = HorizontalAlign.CenterDataGrid1.Columns(0).HeaderText = &quot;文章标题&quot;DataGrid1.Columns(1).HeaderText = &quot;发布时间&quot;DataGrid1.HeaderStyle.HorizontalAlign = HorizontalAlign.CenterDataGrid1.AlternatingItemStyle.BackColor = System.Drawing.Color.IvoryDataGrid1.HorizontalAlign = HorizontalAlign.CenterDim cnString As String = &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot; _+ Server.MapPath(&quot;Test.mdb&quot;)Dim cn As New OleDbConnection(cnString)cn.Open()Dim strSQL As String = &quot;SELECT TOP 10 Title,CreateDate FROM Document ORDER BY CreateDate DESC&quot;Dim cmd As New OleDbCommand(strSQL, cn)DataGrid1.DataSource = cmd.ExecuteReaderDataGrid1.DataBind()cn.Close()cn.Dispose()cn = NothingEnd SubPrivate Sub DataGrid1_ItemDataBound(ByVal sender As Object, _ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBoundIf e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Thene.Item.Attributes.Add(&quot;onclick&quot;, &quot;this.style.backgroundColor='#FFCC66';alert('您点击的是：/n/n第&quot; _+ e.Item.ItemIndex.ToString() + &quot;行/n/n文章标题是：&quot; + e.Item.Cells(0).Text.Replace(&quot;,&quot;, &quot;/'&quot;) + &quot;')&quot;)e.Item.Cells(1).Text = Format(System.Convert.ToDateTime(e.Item.Cells(1).Text.ToString()), &quot;yyyy年M月d日&quot;)If e.Item.Cells(0).Text.Length &gt; 30 Thene.Item.Attributes.Add(&quot;Title&quot;, e.Item.Cells(0).Text)e.Item.Cells(0).Text = e.Item.Cells(0).Text.Substring(0, 28) + &quot;&hellip;&quot;End IfEnd IfEnd SubEnd Class]]>
