表RichTextBox中

在我刚才的问题，我贴在丰富的文本框..The代码是增加了一个表（实际上不是，只是增加了数据从DGVW的richtxtbx）代码：表RichTextBox中

For i As Integer = 0 To dg2.Rows.Count - 2 
     SendMail.bodytxt.Text = SendMail.bodytxt.Text + "-" 
     For j As Integer = 0 To dg2.Columns.Count - 1 
      Try 
       SendMail.bodytxt.Text = SendMail.bodytxt.Text + vbTab + dg2.Rows(i).Cells(j).Value.ToString() + vbTab 
      Catch ex As Exception 
      End Try 
      SendMail.bodytxt.Text = SendMail.bodytxt.Text + vbLf 
      SendMail.bodytxt.Text = SendMail.bodytxt.Text + "--------------------------------------------" + vbLf 
      SendMail.bodytxt.Text = SendMail.bodytxt.Text + vbLf 
     Next 
    Next

结果是这样的：

-------------------------------------------- 

88795446 
-------------------------------------------- 

Mr.  
-------------------------------------------- 

Raiyan 
-------------------------------------------- 

rashid 
-------------------------------------------- 

Male 
--------------------------------------------

我希望你看到的问题是什么。是在一个新行添加的每个单元格的值..如何生成这样的观点：

HEADER TEXT  HEADER TEXT  HEADER TEXT 
------------------------------------------------ 
    Mr.    ABC   
------------------------------------------------ 
    Mr.    DEF    987654321 
------------------------------------------------ 
    Mr.    GHI    898989898

我的意思是一行中的所有单元格值将在一行中......下一行将填充短划线.....然后下一行将包含下一行的单元格值......

我知道我的代码是正确的，但也许我有一些“安排代码”问题...或者是因为我的丰富的文本框大小发生？我之所以这么认为，是因为当我从包含2/3列的dgvw添加数据时，它按预期工作。那么如何修复它或实现我期待的外观呢？

来源

2017-11-18 zack raiyan

也许这将有助于

SendMail.bodytxt.Text = SendMail.bodytxt.Text + "------------------------------------------------------------------------------------------" + vbLf 
      For i As Integer = 0 To dg2.Rows.Count - 1 

       For j As Integer = 0 To dg2.Columns.Count - 1 
        Try 
         SendMail.bodytxt.Text = SendMail.bodytxt.Text + "• " + dg2.Rows(i).Cells(j).Value.ToString() + " •" 
        Catch ex As Exception 
        End Try 
       Next 
       SendMail.bodytxt.Text = SendMail.bodytxt.Text + vbLf 
       SendMail.bodytxt.Text = SendMail.bodytxt.Text + "------------------------------------------------------------------------------------------" + vbLf 
      Next

这甚至可能给你一个更好的look.You必须添加尽可能多的 - 因为你need.Let我知道它的工作

来源

2017-11-18 15:21:19

OMG！你现在两次救了我的一天！是的，它的作品....并添加“•”是一个好主意...... !!!! –

欢迎。很高兴帮助 –

正如您所提到的，当您将数据添加到具有几列的datagridview的RTF文本框时，然后根据需要获得结果。那么为什么不设置RTF格式的WordWarp属性呢？ box属性设置为true，然后添加数据。然后我猜一行的单元格的值不会到达下一行，也许你可以生成你想要的外观。

来源

2017-11-18 14:36:01

都能跟得上先生（破折号）“” ，没有工作。 –

其实，我只是一个初学者，所以请原谅我的错误 –

回答

相关问题