Usuário com melhor resposta
Datagridview Richtextbox

Pergunta
-
Ola! amigo sou novo aqui e estou tentando aprender um pouco de desenvolvimento e criação de programas pelo Visual Basic 2013
Se alguem pode me ajudar estou com um projeto para pq não consigo colocar os dados da Datagridview para richtexbox eu quero enviar os dados por email ou tem outra geito de substituir o Richetbox por outra ferramenta que possa esta usando
desde ja agradeço a força!
Respostas
-
Você precisa ler os dados do seu grid e preencher o RichTextBox manualmente.
Mais instruções sobre como adicionar valores ao RichTextBox em: https://msdn.microsoft.com/en-us/library/aa733684%28v=vs.60%29.aspx?f=255&MSPPError=-2147217396
De qualquer modo, como precisa enviar o conteúdo por e-mail, o ideal na minha opinião é utilizar um editor baseado em HTML (RTF também funciona). Seguem alguns links: https://code.msdn.microsoft.com/windowsapps/WinForms-HTML-Editor-01dbce1a#content e https://github.com/tewuapple/WinHtmlEditor
If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer".
Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".
- Editado Juliano Nunes Silva Oliveira quinta-feira, 9 de março de 2017 10:43
- Marcado como Resposta Robson William SilvaModerator sexta-feira, 10 de março de 2017 12:33
Todas as Respostas
-
Você precisa ler os dados do seu grid e preencher o RichTextBox manualmente.
Mais instruções sobre como adicionar valores ao RichTextBox em: https://msdn.microsoft.com/en-us/library/aa733684%28v=vs.60%29.aspx?f=255&MSPPError=-2147217396
De qualquer modo, como precisa enviar o conteúdo por e-mail, o ideal na minha opinião é utilizar um editor baseado em HTML (RTF também funciona). Seguem alguns links: https://code.msdn.microsoft.com/windowsapps/WinForms-HTML-Editor-01dbce1a#content e https://github.com/tewuapple/WinHtmlEditor
If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer".
Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".
- Editado Juliano Nunes Silva Oliveira quinta-feira, 9 de março de 2017 10:43
- Marcado como Resposta Robson William SilvaModerator sexta-feira, 10 de março de 2017 12:33
-
-
Infelizmente não há um recurso automático para isto.
If you found this post helpful, please "Vote as Helpful". If it actually answered your question, remember to "Mark as Answer".
Se achou este post útil, por favor clique em "Votar como útil". Se por acaso respondeu sua dúvida, lembre de "Marcar como Resposta".
-
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
For Row As Integer = 0 To Me.DataGridView1.Rows.Count - 1
RichTextBox1.AppendText(" ")
RichTextBox1.AppendText(" ")
RichTextBox1.AppendText(" ")
RichTextBox1.AppendText(" " & " " & Format(Now, "dd/MM/yyyy") & " " & Format(Now, "HH:mm"))
RichTextBox1.AppendText(" CNPJ: " & "" & "Tel: (11) Tel: 11 99761 - 3517")
RichTextBox1.AppendText(" Rua: Fernando Colombo, Pq das Americas - Maúa - SP")
RichTextBox1.AppendText(" Email: cr.representacoes2010@hotmail.com")
RichTextBox1.AppendText(" ")
RichTextBox1.AppendText(" ")
RichTextBox1.AppendText(" ")
RichTextBox1.AppendText("...........................................................................................................................................")
RichTextBox1.AppendText(" Pedido ")
RichTextBox1.AppendText("Cliente : " & " " & (Cliente_TextBox1.Text) & " " & (" Nro.Nota: " & " " & (Nro__Nota_TextBox1.Text)))
RichTextBox1.AppendText(" End: " & " " & (Endereço_TextBox1.Text) & " " & (" Data Saida/Baixa: " & " " & (MaskedTextBox9.Text) & " " & (" Frete: " & " " & (Frete_TextBox1.Text))))
RichTextBox1.AppendText(" Bairro: " & " " & (Bairro_TextBox1.Text) & " " & (" Cidade: " & " " & (Cidade_TextBox1.Text) & " " & (" UF: " & " " & (UF_TextBox1.Text) & " " & ("CEP: " & " " & (MaskedTextBox8.Text) & " " & (" Forma de Pagto.: " & " " & (TextBox5.Text))))))
RichTextBox1.AppendText(" CNPJ: " & " " & (MaskedTextBox7.Text) & " " & (" Inscr. Est.: " & " " & (Inscr__Est__TextBox.Text) & " " & (" Tabela de Preço: " & " " & (Tabela_de_PreçoTextBox1.Text))))
RichTextBox1.AppendText(" Contato: " & " " & (MaskedTextBox7.Text) & " " & (" Fone.: " & " " & (MaskedTextBox11.Text) & " " & (" Fax: " & " " & (MaskedTextBox12.Text) & " " & (" Cel: " & " " & (MaskedTextBox13.Text)))))
RichTextBox1.AppendText(" Email: " & " " & (Email_TextBox1.Text))
RichTextBox1.AppendText(" Fornecedor: " & " " & (Fornecedor_TextBox.Text))
RichTextBox1.AppendText("_________________________________________________________________________________________________________________________________")
RichTextBox1.AppendText(" Referência | NCM | Descrição | Un | Qtde. | Vl. Unit. | Desc. % | Vl. Total ")
RichTextBox1.AppendText("" & "")
Aqui teria que entra do Datagridview1 enterndeo preciso do codigo que fica aqui e quando eu coloco este aqui
For Column As Integer = 0 To Me.DataGridView1.Columns.Count - 1
If DataGridView1.Rows(Row).Cells(Column).Value IsNot Nothing Then
RichTextBox1.SelectedText = (" Referência | NCM | Descrição | Un | Qtde. | Vl. Unit. | Desc. % | Vl. Total ")
RichTextBox1.Text = Me.DataGridView1.CurrentRow.Cells(0).Value & " " & DataGridView1.CurrentRow.Cells(1).Value & " " & DataGridView1.CurrentRow.Cells(2).Value & " " & DataGridView1.CurrentRow.Cells(3).Value & " " & DataGridView1.CurrentRow.Cells(4).Value & " " & DataGridView1.CurrentRow.Cells(5).Value & " " & DataGridView1.CurrentRow.Cells(6).Value & " " & DataGridView1.CurrentRow.Cells(7).Value
End If
Next
Next'ele apara atudo so aparece ele e so uma linha
RichTextBox1.AppendText("")
RichTextBox1.AppendText("_________________________________________________________________________________________________________________________________")
RichTextBox1.AppendText("")
RichTextBox1.AppendText(" Total Produtos : " & " " & (Total_Produtos_TextBox.Text))
RichTextBox1.AppendText(" Vendedor : " & "" & (VendedorTextBox.Text))
RichTextBox1.AppendText(" Desc % : " & " " & (TextBox2.Text) & " " & " Total Desconto : " & " " & (Total_Subs__Trib___IPI__TextBox.Text))
RichTextBox1.AppendText(" Total Subs. Trib/ IPI.: " & " " & (TextBox4.Text))
RichTextBox1.AppendText(" Total a Pagar: " & " " & (txtgeral.Text))
RichTextBox1.AppendText(" ")
End Sub