把TEXT设为多行显示然后txtchat.Text =txtchat.Text + Data1.Recordset.Fields("txt") & chr(13)+chr(10)
你用 txtChat 一次可不就只能显示一行数据么 你每次循环 都会用新的数据把原来的数据替换掉最后 就剩最后一行 ...熊瞎子掰苞米
