RaphaelML

Com a seguinte linha de código eu consigo que apareça no meu datagrid as informações de vendas daquele dia em questão Private Sub btn_buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_buscar.Click Dim strdia, strmes, strano, strdata As String strdia = Calendario.SelectionStart.Day strmes = Calendario.SelectionStart.Month strano = Calendario.SelectionStart.Year strdata = strdia + "/" + strmes + "/" + strano Me.DataTable1BindingSource.Filter = "DATA_DA_VENDA = '" + strdata + "'" Me.DataTable1TableAdapter.Fill(Me.CARLINHOS_BARDataSet.DataTable1) End Sub porém eu percebi que quando eu executo esse comando ele não me mostra realmente todas as vendas como vocês podem ver aqui nas imagens eu estou com 8 vendas efetuadas 7 delas no dia 06 porém quando vou puxar o relatório específico ele me retorna apenas 5 vendas do dia 06. Percebi que não aparecem as vendas que foram feitas pra uma mesma pessoa. e quando executo o comando... eu preciso que além de no meu form_relat_cliente ele mostre todas as vendas do período especificado, como também pesquisar por cliente. Porém não sei o que adicionar a minha linha de código. Será q vocês podem me ajudar ?

Olá boa noite, Eu estou com o seguinte projeto onde eu quero assim que selecionar o código do cliente e o código do produto e também selecionada a quantidade que o seja gravado na minha tabela de vendas já com o (valor*quantidade), por enquanto estou com essa linha de código Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click Dim intdia, intmes, intano As Integer Dim intcodigodoproduto, intnomedocliente As Integer intdia = Calendario.SelectionStart.Day intmes = Calendario.SelectionStart.Month intano = Calendario.SelectionStart.Year Dim strquantidade, strvalorfinal As String Dim dtDataVenda As New System.DateTime(intano, intmes, intdia) intcodigodoproduto = DataGridPRODUTOS.CurrentRow.Cells(0).Value intnomedocliente = DataGridCLIENTES.CurrentRow.Cells(1).Value strquantidade = QUANTIDADENumericUpDown.Value strvalorfinal = VALORMaskedTextBox.Text Me.VendasTableAdapter1.Insert(dtDataVenda, intcodigodoproduto, intnomedocliente, strquantidade, strvalorfinal) MsgBox("Venda Efetuada!") Me.Close() End Sub End Sub porém não sei como fazer com que já seja mostrado esse valor final da compra e como fazer para que ele já seja inserido no meu vendastableadapter O que eu devo inserir a mais na linha de código para que quando meu numberUpDown for mudando o meu valor também mude ? Agradeço desde já. ..... Enquanto isso, eu mudei algumas linhas Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click Dim intdia, intmes, intano As Integer Dim intcodigodoproduto, intnomedocliente As Integer intdia = Calendario.SelectionStart.Day intmes = Calendario.SelectionStart.Month intano = Calendario.SelectionStart.Year Dim strquantidade, strvalorfinal As Integer Dim dtDataVenda As New System.DateTime(intano, intmes, intdia) intcodigodoproduto = DataGridPRODUTOS.CurrentRow.Cells(0).Value intnomedocliente = DataGridCLIENTES.CurrentRow.Cells(0).Value strquantidade = QUANTIDADENumericUpDown.Value strvalorfinal = Val(VALOR_UNITÁRIOMaskedTextBox.Text) * Val(QUANTIDADENumericUpDown.Value) Me.VendasTableAdapter1.Insert(dtDataVenda, intcodigodoproduto, intnomedocliente, strquantidade, strvalorfinal) MsgBox("Venda Efetuada!") End Sub Agora eu já consigo fazer essa multiplicação mas não consigo ve-la sem fazer a venda acontecer, porém agora estou com o seguinte problema quando vou olhar na tabela de vendas o código do produto está no nome do cliente e o código do cliente esta no código do produto, estão invertidos kkk e na verdade nesse relatório eu quero o nome do cliente e não o código dele. será que alguém pode me ajudar ? PESSOAL KKKK CONSEGUI CORRIGIR ESSES ERROS Private Sub btn_vender_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_vender.Click Dim intdia, intmes, intano As Integer Dim strnomedocliente, strnomedoproduto As String intdia = Calendario.SelectionStart.Day intmes = Calendario.SelectionStart.Month intano = Calendario.SelectionStart.Year Dim intquantidade, intvalorfinal As Integer Dim dtDataVenda As New System.DateTime(intano, intmes, intdia) strnomedoproduto = DataGridPRODUTOS.CurrentRow.Cells(1).Value strnomedocliente = DataGridCLIENTES.CurrentRow.Cells(1).Value intquantidade = QUANTIDADENumericUpDown.Value intvalorfinal = Val(VALOR_UNITÁRIOMaskedTextBox.Text) * Val(QUANTIDADENumericUpDown.Value) Me.VendasTableAdapter1.Insert(dtDataVenda, strnomedocliente, strnomedoproduto, intquantidade, intvalorfinal) MsgBox("Venda Efetuada!") End Sub TROQUEI UNS INTEGER POR UNS STRING E ALGUMAS ORDENS E DEU TUDO CERTO MUITO OBRIGADO