DATAGRIDVIEW

[csantos]

bom dia

Tenho esta datagridview:

Não sei como fazer o seguinte. Carregar numa qualquer célula do Cod_Produto, coluna 0, e obter o respetivo Nome, coluna 1. E vice versa, selecionar um qualquer Nome do Produto e obter o respetivo código.

Já consegui carregar os códigos dos produtos e os nomes.

Alguém me pode ajudar?

[bioshock]

http://www.vbforums.com/showthread.php?656274-RESOLVED-Datagridview-Combobox-SelectedIndexChanged

http://www.codeproject.com/Questions/157356/Perform-action-when-changing-selected-item-in-a-co

Através do seguinte código consegues obter algumas propriedades da Combobox.

Dim comboBoxCell As DataGridViewComboBoxCell = DataGridView1(1, 0)

[csantos]

http://www.vbforums.com/showthread.php?656274-RESOLVED-Datagridview-Combobox-SelectedIndexChanged

http://www.codeproject.com/Questions/157356/Perform-action-when-changing-selected-item-in-a-co

Através do seguinte código consegues obter algumas propriedades da Combobox.

Dim comboBoxCell As DataGridViewComboBoxCell = DataGridView1(1, 0)

Isto está em C# ... n percebo muito ...

[bioshock]

O 1º link está em VB.NET. Quanto ao 2º link, tens sempre bom remédio.

http://www.developerfusion.com/tools/convert/csharp-to-vb/

[csantos]

O 1º link está em VB.NET. Quanto ao 2º link, tens sempre bom remédio.

http://www.developerfusion.com/tools/convert/csharp-to-vb/

Converti o código que me interessa mas dá-me erros "+=". O que devo aqui colocar?

' We will handle these events of the DataGridView
  dataGridView1.CellEndEdit += New DataGridViewCellEventHandler(AddressOf dataGridView1_CellEndEdit)
  dataGridView1.EditingControlShowing += New DataGridViewEditingControlShowingEventHandler(AddressOf dataGridView1_EditingControlShowing)
 End Sub
 Private Sub dataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs)
  If cbm IsNot Nothing Then
   ' Here we will remove the subscription for selected index changed
   cbm.SelectedIndexChanged -= New EventHandler(AddressOf cbm_SelectedIndexChanged)
  End If
 End Sub
 Private Sub dataGridView1_EditingControlShowing(sender As Object, e As DataGridViewEditingControlShowingEventArgs)
  ' Here try to add subscription for selected index changed event
  If TypeOf e.Control Is ComboBox Then
   cbm = DirectCast(e.Control, ComboBox)
   If cbm IsNot Nothing Then
    cbm.SelectedIndexChanged += New EventHandler(AddressOf cbm_SelectedIndexChanged)
   End If
   currentCell = Me.dataGridView1.CurrentCell
  End If
 End Sub
 Private Sub cbm_SelectedIndexChanged(sender As Object, e As EventArgs)
  ' Invoke method if the selection changed event occurs
  BeginInvoke(New MethodInvoker(AddressOf EndEdit))
 End Sub
 Private Sub EndEdit()
  ' Change the content of appropriate cell when selected index changes
  If cbm IsNot Nothing Then
   Dim drv As DataRowView = TryCast(cbm.SelectedItem, DataRowView)
   If drv IsNot Nothing Then
    Me.dataGridView1(currentCell.ColumnIndex + 1, currentCell.RowIndex).Value = drv(2).ToString()
    Me.dataGridView1.EndEdit()
   End If
  End If
 End Sub
End Class
End Namespace

Edited May 29, 2013 by thoga31
GeSHi

[bioshock]

Isto:

dataGridView1.EditingControlShowing += New DataGridViewEditingControlShowingEventHandler(AddressOf dataGridView1_EditingControlShowing)

Passa a ser isto:

AddHandler DataGridView1.EditingControlShowing, AddressOf editingControl
Private Sub editingControl(sender As Object, e As DataGridViewEditingControlShowingEventArgs)
' Código
End Sub

[csantos]

Isto:

dataGridView1.EditingControlShowing += New DataGridViewEditingControlShowingEventHandler(AddressOf dataGridView1_EditingControlShowing)

Passa a ser isto:

AddHandler DataGridView1.EditingControlShowing, AddressOf editingControl
Private Sub editingControl(sender As Object, e As DataGridViewEditingControlShowingEventArgs)
' Código
End Sub

Tendo em conta o problema inicial que coloquei não estou mesmo a conseguir fazer isto 😕 Será que podes concretizar? Obrigado