表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

都能跟得上先生（破折號）「」，沒有工作。 –

其實，我只是一個初學者，所以請原諒我的錯誤 –

表RichTextBox中

回答

相關問題