使用VB将行从asp.net网格视图复制到新页面

' 源页面的代码文件

Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As GridViewCommandEventArgs) Handles GridView1.RowCommand
    If e.CommandName = "CopyRow" Then
        Dim rowIndex As Integer = Convert.ToInt32(e.CommandArgument)
        Dim selectedRow As GridViewRow = GridView1.Rows(rowIndex)
        
        ' 获取被点击行的数据
        Dim data1 As String = selectedRow.Cells(0).Text
        Dim data2 As String = selectedRow.Cells(1).Text
        ' ...

        ' 将数据传递到新页面
        Session("Data1") = data1
        Session("Data2") = data2
        ' ...

        ' 重定向到新页面
        Response.Redirect("NewPage.aspx")
    End If
End Sub

' 新页面的代码文件

Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    ' 从Session中获取数据
    Dim data1 As String = Session("Data1").ToString()
    Dim data2 As String = Session("Data2").ToString()
    ' ...

    ' 将数据添加到新页面的GridView控件中
    Dim newRow As New GridViewRow(0, 0, DataControlRowType.DataRow, DataControlRowState.Normal)
    newRow.Cells.Add(New TableCell() With {.Text = data1})
    newRow.Cells.Add(New TableCell() With {.Text = data2})
    ' ...
    GridView2.Rows.Add(newRow)
End Sub