Ir para conteúdo
Fórum Script Brasil

Nelson Pereira

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre Nelson Pereira

Nelson Pereira's Achievements

0

Reputação

  1. Bom dia pessoal, estou necessitado de ajuda. Estou usando um relatório no meu sistema que está vinculado a um dataset. No meu relatório tenho 3 campos que passo a explicar: "PreçoGrupo" ; "PreçoTotal" ; "PercTotal". O "PreçoGrupo" é alimentado por um valor do meu dataset (PRECstRp), que no relatório já está configurado para ir buscar o custo dos produtos por Grupo. e o campo "PreçoTotal" também é alimentado pelo (PRECstRp) que por sua vez está configurado no relatório para ser a soma de todos os grupos.... até aqui tudo bem..o meu problema vem a segui, com o campo "PercTotal', que tem de ser alimentado com a seguinte formula ( "PreçoGrupo" / "PreçoTotal" ) * 100...isto para cada linha do relatório, pois cada linha corresponde a um grupo diferente de produtos. Porém os valores de "PercTotal' não estão batendo certo. Alguém me pode ajudar a ver se estou alimentado as variavies de forma correta? Estou usando o segiinte: Dim CustoGrupo As Double Dim CustoTotal As Double For Each row As DataRow In ds.Tables("Dados2").Rows row("TotalGrupo") = CDbl(row("PRECstRp")) row("TotalGeral") = CDbl(row("PRECstRp")) CustoGrupo += CDbl(row("TotalGrupo")) CustoTotal += CDbl(row("TotalGeral")) If CustoGrupo > 0 Then row("PercTotal") = (CustoGrupo / CustoTotal) * 100 Else row("PercTotal") = 0 End If Next Return ds
  2. Boas... sou novo no mundo VB.Net e por sua em programação também. Tenho um form no vb.net onde tem 2 datepickers + 1 botão (pesquisar) + uma grid (para visualizar os dados de um Db SQL) O que eu pretendo que ao pressionar o botão "Pesquisar", na gris sejam exibidos os dados referentes ao período de data informado nos DatePickers O código que escrevi foi o seguinte: onde ''DateEdit '' é o componente datepiceker do DevExpress e "Helpdataset1" é o dataset e "ligacoes" é a tabela onde quero efetuar o filtro e "GridControl1" é o componente grid do Devexpress O problema que está ocorrendo é que quando insiro as datas datepicker (dateedit) e pressiono o botão "pesquisar" (SimpleButton1) , o sistema me mostra de imediato a mensagem de erro criada na Exception ( MessageBox.Show("Erro : " & "Alguma coisa errada, tenta de novo")) para o caso de algum erro ocorrer e por sua vez não efetua o filtro. Alguém me pode ajudar? e ver onde estou errando? Private Sub SimpleButton1_Click(sender As Object, e As EventArgs) Handles SimpleButton1.Click Dim dtinicio As String Dim dtfim As String Dim tabela As New DataTable Dim strsql As String Dim con As SqlConnection Dim cmd As SqlCommand dtinicio = DateEdit1.EditValue.ToString dtfim = DateEdit2.EditValue.ToString strsql = "Select * from ligacoes where dthora_ligacoes between @dtinicio and @dtfim order by id_ligacoes" Try con.ConnectionString = HelpDataDataSet1.Ligacoes.ToString con.Open() cmd.Connection = con cmd.Parameters.AddWithValue("@dtinicio ", dtinicio) cmd.Parameters.AddWithValue("@dtFim", dtfim) cmd.CommandText = strsql Using reader As SqlDataReader = cmd.ExecuteReader() tabela.Load(reader) GridControl1.DataSource = tabela End Using Catch ex As Exception MessageBox.Show("Erro : " & "Alguma coisa errada, tenta de novo") End Try End Sub End Class
×
×
  • Criar Novo...