[vb] กด row ใน Gridview แล้วขึ้นหน้า window ใหม่ e.Row.Style.Add(HtmlTextWriterStyle.Cursor, "pointer")

Protected Sub GridView1_RowDataBound(sender As Object, e As GridViewRowEventArgs)
   If e.Row.RowType = DataControlRowType.DataRow Then
      e.Row.Style.Add(HtmlTextWriterStyle.Cursor, "pointer")
      e.Row.Attributes.Add("onclick", "window.open('deleteuser.aspx')")
   End If
End Sub

Protected Sub GridView1_RowDataBound(sender As Object, e As GridViewRowEventArgs)
   If e.Row.RowType = DataControlRowType.DataRow Then
      Dim URLWithParameter As String = "deleteuser.aspx?doc_no=" _
         + e.Row.Cells(#doc_no#).Text.Trim() 
      e.Row.Style.Add(HtmlTextWriterStyle.Cursor, "pointer") 
      e.Row.Attributes.Add("onclick", "window.open('" + URLWithParameter + "')")
   End If
End Sub

'#doc_no# เปลี่ยนเป็น หมายเลข column ที่เป็นค่า document number ของคุณ เริ่มจาก 0 นะคะ
'จากนั้นไปรับค่าใน page deleteuser จาก querystring ค่ะ

Protected Sub GridView4_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GridView4.RowDataBound

        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim URLWithParameter As String
            URLWithParameter = "TEST.aspx?doc_no=" + e.Row.Cells(0).Text.Trim()
            Session("URLWithParameter") = URLWithParameter
            e.Row.Style.Add(HtmlTextWriterStyle.Cursor, "pointer")
            e.Row.Attributes.Add("onmouseover", "this.style.backgroundColor='#ffdaa9';")
            e.Row.Attributes.Add("onmouseout", "this.style.backgroundColor='#fff';")
            e.Row.Attributes.Add("onclick", "window.open('" & URLWithParameter & "')")
        End If

    End Sub

        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim URLWithParameter As String
            URLWithParameter = e.Row.Cells(0).Text.Trim()
            Session("URLWithParameter") = URLWithParameter
            e.Row.Style.Add(HtmlTextWriterStyle.Cursor, "pointer")
            e.Row.Attributes.Add("onmouseover", "this.style.backgroundColor='#ffdaa9';")
            e.Row.Attributes.Add("onmouseout", "this.style.backgroundColor='#fff';")
            e.Row.Attributes.Add("onclick", "window.open('TEST.aspx')")
        End If

If e.Row.RowType = DataControlRowType.DataRow Then
    Dim URLWithParameter As String
    URLWithParameter = e.Row.Cells(0).Text.Trim()
    Session("URLWithParameter") = URLWithParameter
    e.Row.Style.Add(HtmlTextWriterStyle.Cursor, "pointer")
    e.Row.Attributes.Add("onmouseover", "this.style.backgroundColor='#ffdaa9';")
    e.Row.Attributes.Add("onmouseout", "this.style.backgroundColor='#fff';")
    e.Row.Attributes.Add("onclick", "window.open('TEST.aspx')")
End If

If e.Row.RowType = DataControlRowType.DataRow Then
    Dim URLWithParameter As String
    URLWithParameter = "รันหน้านี้.ASPX?doc_d="e.Row.Cells(0).Text.Trim()
    Session("URLWithParameter") = URLWithParameter
    e.Row.Style.Add(HtmlTextWriterStyle.Cursor, "pointer")
    e.Row.Attributes.Add("onmouseover", "this.style.backgroundColor='#ffdaa9';")
    e.Row.Attributes.Add("onmouseout", "this.style.backgroundColor='#fff';")
    e.Row.Attributes.Add("onclick", "alert('" + URLWithParameter  + "')")
End If

Sub Page_Load(object sender, System.EventArgs e)

  Dim Document_id As String  = Request.QueryString("doc_id") '<< CASE SENSITIVE นะคะ ให้ระวังด้วย

End Sub

       <asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" 
            DataSourceID="LinqDataSource1">
            <Columns>
                <asp:BoundField DataField="id" HeaderText="id" InsertVisible="False" 
                    SortExpression="id" />
                <asp:BoundField DataField="inv_no" HeaderText="inv_no" 
                    SortExpression="inv_no" />
                <asp:BoundField DataField="inv_date" HeaderText="inv_date" 
                    SortExpression="inv_date" />
                <asp:BoundField DataField="VALUE" HeaderText="VALUE" SortExpression="VALUE" />
                <asp:TemplateField>
                    <ItemTemplate>
                        <input id="Button1" type="button" value="edit" 
                            onclick = "windows.open('SOMEPAGE.ASPX?doc_id=<%# Eval("id") %>');" />
                    </ItemTemplate>
                </asp:TemplateField>
                
            </Columns>
        </asp:GridView>

Dim com As New OledbCommand(query,con) 'con คือตัวที่ connect กับ database ค่ะ
Dim myReader As OledbDataReader = com.ExecuteReader()
While myReader.Read()
Label2.Text = myReader("firstname").ToString
Label3.Text = myReader("SentTo"),ToString
End While
myReader.Close()