VB.NET - 从另一列填写特定的列的DataGridView

Question

我有2 DGV名dataListBarang和dataListTransaksi，我试图填补dataListTransaksi spesific列dataListBarang称为nm_barang

到目前为止我的代码

称为 nama_barang从特定的列

Private Sub dataListBarang_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dataListBarang.CellContentDoubleClick 
     If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then 
      namaBarang = Me.dataListBarang.CurrentRow.Cells(0).Value.ToString 
      dataListTransaksi.Columns(1).DataPropertyName = namaBarang 
     End If 
     dataListBarang.Refresh() 
    End Sub 

，当我在DGV dataListBarang双击，列nama_barang（上dataListTransaksi）将装满值从nm_barang列上DGV dataListBarang，但它不能正常工作ING。

请大家帮忙。

编辑 我想要做的是从当前行复制单元格时，它的用户双击即可填写具体列在第二个DataGrid的第一行（的数据网格有没有数据列在里面）。

注：

1. 看到左侧的数据网格具有数据和正确的数据网格是空的
2. 看到的数字！当用户双击，值从1被复制到数2
3. 右侧data​​Grid中的大部分列都是手动输入的（Nama Barang除外）并保存到数据库

Answer 1

您的照片显示的是右侧的空白DataGridView。如图所示，将单元格从左侧网格复制到右侧网格中的单元格时，会出现一些问题。您必须先“添加”一个新行。否则，用户后续的双击将会覆盖前面的双击。下面的代码检查双击是否来自第0列，如果是这样，只需在右侧的网格中添加新行。列0中的值被复制到新的第1列。希望我不会错过任何东西。

Private Sub dataListBarang_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dataListBarang.CellContentDoubleClick 
    Dim row As Integer = e.RowIndex 
    Dim col As Integer = e.ColumnIndex 
    If (col = 0) Then 
    dataListTransaksi.Rows.Add("", dataListBarang.Rows(row).Cells(0).Value) 
    End If 
End Sub 

更新：如果你不知道哪一列复制，但你知道它的名字..

Private Sub dataListBarang_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dataListBarang.CellContentDoubleClick 
    Dim row As Integer = e.RowIndex 
    Dim col As Integer = e.ColumnIndex 
    If (col = 0) Then 
    Dim newRowIndex As Integer = dataListTransaksi.Rows.Add() 
    dataListTransaksi.Rows(newRowIndex).Cells("MyColName").Value = dataListBarang.Rows(row).Cells(0).Value 
    End If 
End Sub 

Answer 2

我修改通过@JhonG

Private Sub dataListBarang_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dataListBarang.CellContentDoubleClick 
     Dim row As Integer = e.RowIndex 
     Dim col As Integer = e.ColumnIndex 
     namaBarang = Me.dataListBarang.CurrentRow.Cells(0).Value.ToString 
     If (col = 0) Then 

      If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then 
       dataListTransaksi.Rows.Add("", namaBarang) 
       'hargaBarang = Me.dataListBarang 
       'Me.dataListTransaksi.CurrentRow.Cells(1).Value = namaBarang 
      End If 
     End If 

时，基于回答我的代码我双击firstDataGrid它将值复制到另一个dataGrid并添加新行。