Pesquisar na Comunidade

Não estou conseguindo salvar mais de uma linha do datagrid no banco de dados. segue imagem a baixo e configuração Public Class frmVendasPedidos Inherits System.Windows.Forms.Form 'Definir o objeto bd da classe JcmSoftDataContext Dim bd As New dcVRDataContext 'Definir objeto da clase DetalhesPedidos Dim oDetalhesPedidos As DetalhesPedidos Dim nomeProduto As String Dim codProduto As String Dim QuantidadeUni As Integer Dim quantidadeCX As Integer Dim precoUniProduto As Double Dim precoCx As Double Dim codigoCliente As String Dim estoqueProduto As Integer Dim Prazo1 As Integer Dim Prazo2 As Integer Dim Prazo3 As Integer Dim Prazo4 As Integer Dim data As Date Dim precoTotal As Double 'Definir una LISTA de Objetos DetalhesPedidos Dim ArrDetalhesPedidos As New List(Of DetalhesPedidos) Private Sub btnSalvar_Click(sender As Object, e As EventArgs) Handles btnSalvar.Click 'Vamos usar o mapeamento feito pelo LINQ 'para efetivar as atualizações nas bases de dados Try 'A expressão lambda a seguir devolve um objeto Cliente 'Estamos usando o codigo do cliente para identificar unicamento o cliente Dim Cli As tblCliente = bd.tblClientes.Single(Function(p) p.IdCliente = Me.txtCodigoCliente.Text) '------------------------------------------------- 'Cria um novo objeto Pedido '------------------------------------------------- Dim oPedido As New tblPedido oPedido.Data = txtData.Text oPedido.IdCliente = Cli.IdCliente oPedido.tblCliente = Cli oPedido.NomeCliente = Cli.Cliente oPedido.NomeProduto = nomeProduto oPedido.QuantidadeUni = oDetalhesPedidos.QuantidadeUni oPedido.QuantidadeCX = oDetalhesPedidos.QuantidadeCX oPedido.PrecoUni = oDetalhesPedidos.PrecoUni oPedido.PrecoCx = oDetalhesPedidos.PrecoCX oPedido.Prazo1 = oDetalhesPedidos.Prazo1 oPedido.Prazo2 = oDetalhesPedidos.Prazo2 oPedido.Prazo3 = oDetalhesPedidos.Prazo3 oPedido.Prazo4 = oDetalhesPedidos.Prazo4 oPedido.PrecoTotal = oDetalhesPedidos.Subtotal '-------------------------------------------------- 'Obtendo os detalhes do pedido 'realizo a geração dos objetos Pedido 'vou percorrer o array dos detalhes do pedido '---------------------------------------------------- For Each o As DetalhesPedidos In ArrDetalhesPedidos 'Instancio um objeto Produto selecionando pelo codigo do produto Dim prod As tblProduto = bd.tblProdutos.Single(Function(a) a.IdProduto = o.CodProduto.ToString()) 'Cria um novo detalhe do pedido Dim detPedido As New tblProduto detPedido.Produto = prod.Produto detPedido.IdProduto = prod.IdProduto detPedido.Quantidade = o.QuantidadeUni '-altera a quantidade de estoque do produto prod.Estoque = prod.Estoque - o.QuantidadeUni Next '------------------------------------------------------ 'Aqui atualizo a base de dados bd.SubmitChanges() MsgBox("Venda registrada com sucesso...") Catch ex As Exception MsgBox(ex.Message) Finally 'chama as rotinas para limpar clientes e produtos e vendas limpar_cliente() limpar_produto() limpar_venda() Me.calcular_total() End Try End Sub imagens anexadas