VB.NET数据库检索

Question

我有一个VB.NET应用程序，该应用程序具有与数据库类似的即时消息传递功能。 它可以很好地检索值，但是问题是格式设置不正确。 我希望格式如下：

发件人：消息

（所以...）

大卫：大家好

我在下面尝试过的操作并没有得到我想要的结果，它只是在应用程序的富文本框顶部打印发件人，在底部显示消息，是否有人有任何想法？

 '-------------------Retreives the message-------------------------------------------------------------
        Dim sqlStr As String = "SELECT * FROM dojodb.chats"
        Dim chatcommand As New MySqlCommand(sqlStr, MysqlConn)
        Dim rdr As MySqlDataReader = chatcommand.ExecuteReader()
        Dim tbl As New DataTable
        tbl.Load(rdr)


        '-------For every row, print the message, skip a line, and add 1 so it goes to next msg--     ------
        For i As Integer = 0 To tbl.Rows.Count - 1
            rowIndex = i

            strSender &= CStr(tbl.Rows(rowIndex)("Sender")) & vbNewLine

            strMessage &= CStr(tbl.Rows(rowIndex)("Message")) & vbNewLine

            strOutPut = strSender + ": " + strMessage

        Next
        txtGroupChat.Text = strOutPut

        'Keeps the richtextbox scrolled to the bottom so that most recent msg is always shown
        txtGroupChat.SelectionStart = txtGroupChat.Text.Length
        txtGroupChat.ScrollToCaret()

        strOutPut = "" 'clearing the string so that it does not print out duplicate info next time
        strSender = ""
        strMessage = ""
        '-------------------------End Retrive---------------------------------------

Answer 1

发布此消息让我感到有些尴尬，但是...

  strSender = CStr(tbl.Rows(rowIndex)("Sender")) & ": "

  strMessage = CStr(tbl.Rows(rowIndex)("Message")) & vbNewLine

strOutPut &= strSender & strMessage

您认为vbNewLine做什么？ 另外，请注意＆=