How to pass multiple rows from one gridview to another gridview????

2023-08-25 23:35| 來源: 網(wǎng)絡整理| 查看: 265

User-331821665 posted

Here is an example of how to accomplish what you want to do. Copy it and test it to understand, so you can then make the necessary changes to have it work the way you want with your data.

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack() Then LoadData() End If End Sub ''' ''' Represents getting your data from your datasource ''' ''' Private Sub LoadData() Dim dt As New DataTable Dim dr As DataRow Try dt.Columns.Add(New DataColumn("Name")) dt.Columns.Add(New DataColumn("Age")) dt.Columns.Add(New DataColumn("Gender")) Dim iRow As Integer For iRow = 0 To 9 dr = dt.NewRow() dr("Name") = "Gina" & iRow.ToString() dr("Age") = "23" dr("Gender") = "Female" dt.Rows.Add(dr) Next GridView1.DataSource = dt GridView1.DataBind() Catch ex As Exception Finally dt.Dispose() End Try End Sub Protected Sub btnMove_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMove.Click Dim dt1, dt2 As New DataTable Dim dr1, dr2 As DataRow Dim gvr As GridViewRow Dim lbl1, lbl2, lbl3 As Label Dim chkBx As CheckBox dt1.Columns.Add(New DataColumn("Name")) dt1.Columns.Add(New DataColumn("Age")) dt1.Columns.Add(New DataColumn("Gender")) dt2.Columns.Add(New DataColumn("Name")) dt2.Columns.Add(New DataColumn("Age")) dt2.Columns.Add(New DataColumn("Gender")) Try 'Save any data already in GridView2 For Each gvr In GridView2.Rows lbl1 = CType(gvr.FindControl("Label1"), Label) lbl2 = CType(gvr.FindControl("Label2"), Label) lbl3 = CType(gvr.FindControl("Label3"), Label) dr2 = dt2.NewRow() dr2("Name") = lbl1.Text dr2("Age") = lbl2.Text dr2("Gender") = lbl3.Text dt2.Rows.Add(dr2) Next For Each gvr In GridView1.Rows 'loop to get any checked rows lbl1 = CType(gvr.FindControl("Label1"), Label) lbl2 = CType(gvr.FindControl("Label2"), Label) lbl3 = CType(gvr.FindControl("Label3"), Label) chkBx = CType(gvr.FindControl("CheckBox1"), CheckBox) If chkBx.Checked Then 'add to second datatable dr2 = dt2.NewRow() dr2("Name") = lbl1.Text dr2("Age") = lbl2.Text dr2("Gender") = lbl3.Text dt2.Rows.Add(dr2) Else dr1 = dt1.NewRow() 'add to first datatable dr1("Name") = lbl1.Text dr1("Age") = lbl2.Text dr1("Gender") = lbl3.Text dt1.Rows.Add(dr1) End If Next GridView1.DataSource = dt1 GridView1.DataBind() GridView2.DataSource = dt2 GridView2.DataBind() Catch ex As Exception Finally dt1.Dispose() dt2.Dispose() End Try End Sub ?

【本文地址】

公司簡介

聯(lián)系我們

今日新聞

推薦新聞

專題文章