求vb的字符串合并的函数！

Question

我现在要从数据库里，每循环一次取出一个字符，取出5个之后赋给文本框

Answer 1

你可以这样,把这句写在你的循环语句里:
text1.text=text1.text & "你每次取出的字符"
''最后text1.text就是你要的5个字符

Answer 2

同意一楼，字符串合并用 &

Answer 3

Dim sb As New StringBuildersb.AppendText(c) 'c是那个字符用StringBuilder性能比String好得多。（当然，VB.NET or later）

Answer 4

谢谢大家！我的分数不多了，就把我的一部分源代码公开！以后有机会再给大家！
txtSQL = "select 比赛信息表.主队,比赛结果表.主队得分 from 比赛信息表 inner join 比赛结果表 on 比赛信息表.比赛标志=比赛结果表.比赛标志 where 比赛信息表.主队='" & Trim(ComboZD.Text) & "' order by 比赛信息表.时间 desc "
 Set mrc = ExecuteSQL(txtSQL, Msgtext)
 If mrc.EOF = False Then
    If mrc.RecordCount >= 5 Then
       For i = 1 To 5
            If ComboZD.Text = mrc.Fields(0) Then
                         If mrc.Fields(1) = 3 Then
                            T = T & "胜"
                         ElseIf mrc.Fields(1) = 1 Then
                            T = T & "平"
                         Else
                            T = T & "负"
                         End If
             
             Else
               MsgBox "没有记录", vbOKOnly + vbExclamation, "警告"
             End If
       mrc.MoveNext
      Next i
      TextZZJ.Text = StrReverse(T)
    Else
      For i = 1 To mrc.RecordCount
        If ComboZD.Text = mrc.Fields(0) Then
                         If mrc.Fields(1) = 3 Then
                            T = T & "胜"
                         ElseIf mrc.Fields(1) = 1 Then
                            T = T & "平"
                         Else
                            T = T & "负"
                         End If
            
             Else
               MsgBox "没有记录", vbOKOnly + vbExclamation, "警告"
             End If
       mrc.MoveNext
      Next i
      TextZZJ.Text = StrReverse(T)
    End If
Else
   MsgBox "没有主队近5场主场战绩", vbOKOnly + vbExclamation, "警告"
End If
  mrc.Close
  T = ""