在VB.NET中跨两种不同的表单在DataGridViews之间传输行

3 回答

• 0

  试试这个，

  'Form1-- following code will be placed in button click
  Dim cells(grd.Columns.Count) As New Object
  For c As int = 0 To grd.Columns.Count
      cells(c) = grd.CurrentRow.Cells(c).Value
  Next
  Dim frm As Form1 = Application.OpenForms("frmName")
  frm.sendRow(cells)
  
  
  'Form2 -- Create a method that will add all cell values from form 1
  Public Sub sendRow(ByVal cells() As Object)
      grd.Rows.Add(cells)
  End Sub
  

  回复于 2024-05-14T07:25:55+08:00
• 0

  首先，我们必须知道您正在使用数据绑定DataGridView .

  如果是DataBound：

  Form1:

  dim dt as new DataTable()
  
  // Fetch data from DB and assign it to DataSource.
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  
      // Run query to fetch data
      // dt = GetTableByRunningQuery    
  
      dataGridView1.DataSource = dt
  
  End Sub
  
  Private Sub btnTransfer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
          Dim frm2 as new Form2()
          frm2.dataSource = dt
          frm2.Show()
  End Sub
  

  Form2:

  Public dataSource as Object
  Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  
      dataGridView1.DataSource = dataSource
  
  End Sub
  

  如果不是DataBound：

  Form1:

  Private Sub btnTransfer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
          Dim frm2 as new Form2()
          frm2.SetRows(dataGridView1.Rows)
          frm2.Show()
  End Sub
  

  Form2:

  Public Sub SetRows(ByVal rows as DataGridViewRowCollection)
     For each row as DataGridViewRow in rows
        Dim newRow as DataGridViewRow = Ctype(row.Clone(), DataGridViewRow)
        dataGridView1.Rows.Add(newRow)
     Next
  End Sub
  

  回复于 2024-05-14T07:25:55+08:00
• 0

  谢谢大家的答复，但我最终这样做了：

  Private Sub searchPartsDataGridView_CellContentClicked(sender As Object, e As DataGridViewCellEventArgs) Handles searchPartsDataGridView.CellContentDoubleClick
      Dim colName As String = searchPartsDataGridView.Columns(e.ColumnIndex).Name()
      Dim rowIndex = searchPartsDataGridView.CurrentRow.Index
      If colName = "ITEMNO" Then
          formPartsRequest.partsRequestItemsDataGridView.Rows.Add(searchPartsDataGridView.Rows(rowIndex).Cells("ITEMNO").Value, searchPartsDataGridView.Rows(rowIndex).Cells("DESC").Value)
      End If
  End Sub
  

  不确定这是否是最好的方法，或者它的良好编码实践，但它似乎工作正常，它适合我的目的 . 谢谢

  回复于 2024-05-14T07:25:55+08:00