RICH TEXTBOX - PARTE 1
Olá pessoal !
Estou tentando trazer de uma base de dados os textos de dois campos: itens e avaliacao, dentro de um richtextbox. Porém itens é o cabeçalho e então preciso adicionar e gravar as demais linhas abaixo do cabeçalho(itens). Após montar cabeçalho(itens) e corpo(avaliacao), então salvo e transformo em arquivo .rtf. Bom... Já tentei por loop, já tentei concatenar e.......................... Nada ! Um acaba sobrepondo o outro.
Alguém teria uma solução ?
Desde já agradeço.
Estou tentando trazer de uma base de dados os textos de dois campos: itens e avaliacao, dentro de um richtextbox. Porém itens é o cabeçalho e então preciso adicionar e gravar as demais linhas abaixo do cabeçalho(itens). Após montar cabeçalho(itens) e corpo(avaliacao), então salvo e transformo em arquivo .rtf. Bom... Já tentei por loop, já tentei concatenar e.......................... Nada ! Um acaba sobrepondo o outro.
Alguém teria uma solução ?
Desde já agradeço.
amigo tem que ser algo mais ou menos assim
richtext1.Text = txtItens.Text & vbCrLf & txtAvaliacao.Text
richtext1.Text = txtItens.Text & vbCrLf & txtAvaliacao.Text
Trazendo da tabela, mesmo criando variáveis para receber os dados, não concatena.
Vou tentando, Celão.
Obrigado.
Vou tentando, Celão.
Obrigado.
mostre como tá fazendo
Estou fazendo desta forma:
Dim cab As String
Dim aval As String
(conexão...)
rsREL.Open [Ô]select * from tabela[Ô]
rsREL.Filter = [Ô]filtros...[Ô]
cab = rsREL.Fields([Ô]itens[Ô])
aval = rsREL.Fields([Ô]avaliacao[Ô])
rtbMAVAL.TextRTF = cab & vbCrLf & aval
Só para saber Celão:
Não há alguma forma de justificar ao enviar no datareport não ???
Dim cab As String
Dim aval As String
(conexão...)
rsREL.Open [Ô]select * from tabela[Ô]
rsREL.Filter = [Ô]filtros...[Ô]
cab = rsREL.Fields([Ô]itens[Ô])
aval = rsREL.Fields([Ô]avaliacao[Ô])
rtbMAVAL.TextRTF = cab & vbCrLf & aval
Só para saber Celão:
Não há alguma forma de justificar ao enviar no datareport não ???
então Xavier vamos lá
a propriedade TextRTF e Text são propriedades diferentes, textRTF armazena apenas a formatação, e Text armazena o texto em si.
não sei como vc está fazendo mas eu faço assim salvo texto no no banco separado da formatação
exemplo de como uso
Conexao.Execute [Ô]insert into ocorrencia (data,numero,ano,local,dataini,horaini,datafim,horafim,cameras,historico,historicortf) values([Ô] _
& [Ô][ô][Ô] & Format(txtData.Text, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & CInt(Left(txtNoOcorrencia.Text, 6)) & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & (CInt(Right(txtNoOcorrencia.Text, 2)) + 2000) & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & cmbLocal.Text & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & Format(txtDataIni.Text, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & txtHoraINI.Text & [Ô]:00[Ô] & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & Format(txtDataFIM.Text, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & txtHoraFim.Text & [Ô]:00[Ô] & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & Cameras & [Ô][ô],[Ô] _
[txt-color=#0000f0]& [Ô][ô][Ô] & rtbHistorico.Text & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & Replace(rtbHistorico.TextRTF, [Ô]\[Ô], [Ô]£[Ô]) & [Ô][ô])[Ô][/txt-color]
repare que salvo como text que concatena sem problemas
e salvo como textRTF que é apenas a formatação
a propriedade TextRTF e Text são propriedades diferentes, textRTF armazena apenas a formatação, e Text armazena o texto em si.
não sei como vc está fazendo mas eu faço assim salvo texto no no banco separado da formatação
exemplo de como uso
Conexao.Execute [Ô]insert into ocorrencia (data,numero,ano,local,dataini,horaini,datafim,horafim,cameras,historico,historicortf) values([Ô] _
& [Ô][ô][Ô] & Format(txtData.Text, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & CInt(Left(txtNoOcorrencia.Text, 6)) & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & (CInt(Right(txtNoOcorrencia.Text, 2)) + 2000) & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & cmbLocal.Text & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & Format(txtDataIni.Text, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & txtHoraINI.Text & [Ô]:00[Ô] & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & Format(txtDataFIM.Text, [Ô]YYYY-MM-DD[Ô]) & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & txtHoraFim.Text & [Ô]:00[Ô] & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & Cameras & [Ô][ô],[Ô] _
[txt-color=#0000f0]& [Ô][ô][Ô] & rtbHistorico.Text & [Ô][ô],[Ô] _
& [Ô][ô][Ô] & Replace(rtbHistorico.TextRTF, [Ô]\[Ô], [Ô]£[Ô]) & [Ô][ô])[Ô][/txt-color]
repare que salvo como text que concatena sem problemas
e salvo como textRTF que é apenas a formatação
A respeito de justificar em data report, sinto muito isso não é possivel.
Conseguà armazenando os dados do richtext em uma variável e reinserindo-a + a nova linha da tabela.
Agora, como que eu faço para espaçar uma linha da outra em 1,5 e gerar também o page preview?
Um abraço e obrigado pela força !!!
Agora, como que eu faço para espaçar uma linha da outra em 1,5 e gerar também o page preview?
Um abraço e obrigado pela força !!!
Tópico encerrado , respostas não são mais permitidas