REPORT VIEWER
cstr(variavel)
faz um cast
faz um cast
com o comando cstr(fields!idbalanca.value)
não funcionaou.
O cast não rodou.
Mais alguma outra dico?
não funcionaou.
O cast não rodou.
Mais alguma outra dico?
em vez de .value .tostring() nao vai?
Não.
Só aceita assim
=cstr(fields!idbalanca.value).tostring()
mas não funciona, no campo idbalanca apresenta #ERRO.
Mais alguma ideia?
Só aceita assim
=cstr(fields!idbalanca.value).tostring()
mas não funciona, no campo idbalanca apresenta #ERRO.
Mais alguma ideia?
Ola pessoal,
ja que desta forma não stá funcionando, será que tem jeito de gerar este relatório atraves de um datagrid?
No VB6 é tão tranquilo de gerar relatório.
Não vi vantagens até agora no .net, só dificuldades.
Mas como não tem outro jeito, conto com a ajuda de voces.
ja que desta forma não stá funcionando, será que tem jeito de gerar este relatório atraves de um datagrid?
No VB6 é tão tranquilo de gerar relatório.
Não vi vantagens até agora no .net, só dificuldades.
Mas como não tem outro jeito, conto com a ajuda de voces.
bom dia, pessoal!
Como desta forma que estava fazendo não deu resultado, estava pensando em fazer o seguinte :
Desta query que monto com 03 tabelas, jogo em um datagrid, construo uma tabela temporária com os campos em string, e carrego esta tabela com o datagrid.
Faço o nova query e gero o relatório.
Tem como carregar uma tabela com o datagrid?
Como desta forma que estava fazendo não deu resultado, estava pensando em fazer o seguinte :
Desta query que monto com 03 tabelas, jogo em um datagrid, construo uma tabela temporária com os campos em string, e carrego esta tabela com o datagrid.
Faço o nova query e gero o relatório.
Tem como carregar uma tabela com o datagrid?
Segue em anexo um exemplo de utilização do reportviewer
Está no VS 2012.
Está no VS 2012.
Guimoraes123, o jeito que você fez é diferente que estava fazendo.
Vou tentar fazer desta forma para ver se vai dar certo.
Posto assim que tiver o resultado.
Grato pelo exemplo.
Vou tentar fazer desta forma para ver se vai dar certo.
Posto assim que tiver o resultado.
Grato pelo exemplo.
Ola pessoal,
Estou copiando de um datagrid para uma tebela temporária desta forma:
Private Sub CarregaRelatTemp()
Dim linha As Integer = 0
Dim coluna As Integer = 0
Dim RelTicket As String
Dim RelCarrta As String
Dim RelDataSaida As Date
Dim RelBalanca As String
Dim RelTransportadorra As String
Dim RelLiquido As String
Dim ContaLinha As Integer = dvgTemp.Rows.Count
ExcluirTabela()
For Each row As DataGridViewRow In dvgTemp.Rows
For Each cell As DataGridViewCell In row.Cells
If (linha + 1) >= ContaLinha Then Exit Sub
RelTicket = CInt(dvgTemp.Rows(linha).Cells(coluna).Value)
coluna += 1
RelCarrta = dvgTemp.Rows(linha).Cells(coluna).Value
coluna += 1
RelDataSaida = dvgTemp.Rows(linha).Cells(coluna).Value
coluna += 1
RelBalanca = dvgTemp.Rows(linha).Cells(coluna).Value
coluna += 1
RelTransportadorra = dvgTemp.Rows(linha).Cells(coluna).Value
coluna += 1
RelLiquido = dvgTemp.Rows(linha).Cells(coluna).Value
sql = [Ô][Ô]
sql += [Ô] insert into Temp [Ô]
sql += [Ô] (Ticket, Carreta, Datasaida, Balanca, Transportadora, Liquido) [Ô]
sql += [Ô] Values ( [ô][Ô] + RelTicket + [Ô][ô], [ô][Ô] + RelCarrta + [Ô][ô], [ô][Ô] + Format(RelDataSaida, [Ô]yyyy-MM-dd[Ô]) + [Ô][ô], [Ô]
sql += [Ô] [ô][Ô] + RelBalanca + [Ô][ô], [ô][Ô] + RelTransportadorra + [Ô][ô], [ô][Ô] + RelLiquido + [Ô][ô])[Ô]
cx.Conectar()
Dim cd As New SqlCommand()
cd.Connection = cx.c
cd.CommandText = sql
cd.ExecuteNonQuery()
[ô] MessageBox.Show([Ô]Cliente incluÃdo![Ô])
coluna = 0
linha += 1
cx.Desconectar()
Next
Next
End Sub
Private Sub ExcluirTabela()
Dim sql As String = [Ô][Ô]
sql += [Ô] delete from Temp [Ô]
Dim cx As New Conexao()
cx.Conectar()
Dim cd As New SqlCommand()
cd.Connection = cx.c
cd.CommandText = sql
Try
cd.ExecuteNonQuery()
[ô] MessageBox.Show([Ô]Tabela excluÃda![Ô])
Catch ex As Exception
MsgBox(ex.Message)
End Try
cx.Desconectar()
End Sub
TEm alguma forma mais simples?
Estou copiando de um datagrid para uma tebela temporária desta forma:
Private Sub CarregaRelatTemp()
Dim linha As Integer = 0
Dim coluna As Integer = 0
Dim RelTicket As String
Dim RelCarrta As String
Dim RelDataSaida As Date
Dim RelBalanca As String
Dim RelTransportadorra As String
Dim RelLiquido As String
Dim ContaLinha As Integer = dvgTemp.Rows.Count
ExcluirTabela()
For Each row As DataGridViewRow In dvgTemp.Rows
For Each cell As DataGridViewCell In row.Cells
If (linha + 1) >= ContaLinha Then Exit Sub
RelTicket = CInt(dvgTemp.Rows(linha).Cells(coluna).Value)
coluna += 1
RelCarrta = dvgTemp.Rows(linha).Cells(coluna).Value
coluna += 1
RelDataSaida = dvgTemp.Rows(linha).Cells(coluna).Value
coluna += 1
RelBalanca = dvgTemp.Rows(linha).Cells(coluna).Value
coluna += 1
RelTransportadorra = dvgTemp.Rows(linha).Cells(coluna).Value
coluna += 1
RelLiquido = dvgTemp.Rows(linha).Cells(coluna).Value
sql = [Ô][Ô]
sql += [Ô] insert into Temp [Ô]
sql += [Ô] (Ticket, Carreta, Datasaida, Balanca, Transportadora, Liquido) [Ô]
sql += [Ô] Values ( [ô][Ô] + RelTicket + [Ô][ô], [ô][Ô] + RelCarrta + [Ô][ô], [ô][Ô] + Format(RelDataSaida, [Ô]yyyy-MM-dd[Ô]) + [Ô][ô], [Ô]
sql += [Ô] [ô][Ô] + RelBalanca + [Ô][ô], [ô][Ô] + RelTransportadorra + [Ô][ô], [ô][Ô] + RelLiquido + [Ô][ô])[Ô]
cx.Conectar()
Dim cd As New SqlCommand()
cd.Connection = cx.c
cd.CommandText = sql
cd.ExecuteNonQuery()
[ô] MessageBox.Show([Ô]Cliente incluÃdo![Ô])
coluna = 0
linha += 1
cx.Desconectar()
Next
Next
End Sub
Private Sub ExcluirTabela()
Dim sql As String = [Ô][Ô]
sql += [Ô] delete from Temp [Ô]
Dim cx As New Conexao()
cx.Conectar()
Dim cd As New SqlCommand()
cd.Connection = cx.c
cd.CommandText = sql
Try
cd.ExecuteNonQuery()
[ô] MessageBox.Show([Ô]Tabela excluÃda![Ô])
Catch ex As Exception
MsgBox(ex.Message)
End Try
cx.Desconectar()
End Sub
TEm alguma forma mais simples?
Tópico encerrado , respostas não são mais permitidas