紧急求救：如何控制文本框中的光标位置并在适当的位置输出回车符？

Question

我想把数据库中的一列数据输出到文本框中，并保持列的形式，也就是一个数据接一个回车，请各位大虾帮帮小虾！最好给出源程序！

Answer 1

Private Sub Command2_Click()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.Path & "\dev.mdb"
db.Open
rs.Open "select * from tablename", db
Do While Not rs.EOF
   text1.text=text1.text & rs.Fields(0).Value & vbcrlf
   rs.MoveNext
Loop
End Sub

Answer 2

要将文本框的MultiLine属性设为true