请问 这是什么情况？

[wactor]

每点一次 查询 按钮 ， Literal 的新旧内容都同时显示出来，而不会先情况上次的内容，再显示当前查询内容。
点1次：

点第二次：

按钮事件 部分代码：
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection
Dim Dr As OleDbDataReader
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\jsdb2.mdb")
con.Open()
Dim sql As String
sql = "select * from timetables where nian='" & DropDownList3.SelectedItem.ToString & "' and term='" & DropDownList2.SelectedItem.Value & "' and start<=" & DropDownList4.SelectedItem.Value & " and ED>=" & DropDownList4.SelectedItem.Value & ""
Dim cmd As New OleDbCommand(sql, con)
Dr = cmd.ExecuteReader()
Do While Dr.Read()
If Dr.Item("week") = "星期一" Then
If Dr.Item("section") = "1" Then
Literal1.Text &= Dr.Item("room_nb") & vbCrLf
ElseIf Dr.Item("section") = "2" Then
Literal8.Text &= Dr.Item("room_nb") & vbCrLf
ElseIf Dr.Item("section") = "3" Then
Literal15.Text &= Dr.Item("room_nb") & vbCrLf
ElseIf Dr.Item("section") = "4" Then
Literal22.Text &= Dr.Item("room_nb") & vbCrLf
ElseIf Dr.Item("section") = "5" Then
Literal29.Text &= Dr.Item("room_nb") & vbCrLf
ElseIf Dr.Item("section") = "6" Then
Literal36.Text &= Dr.Item("room_nb") & vbCrLf
ElseIf Dr.Item("section") = "7" Then
Literal43.Text &= Dr.Item("room_nb") & vbCrLf
ElseIf Dr.Item("section") = "8" Then
Literal50.Text = Dr.Item("room_nb") & vbCrLf
ElseIf Dr.Item("section") = "9" Then
Literal1.Text &= Dr.Item("room_nb") & vbCrLf
Literal8.Text &= Dr.Item("room_nb") & vbCrLf
ElseIf Dr.Item("section") = "10" Then
Literal22.Text &= Dr.Item("room_nb") & vbCrLf
Literal29.Text &= Dr.Item("room_nb") & vbCrLf
ElseIf Dr.Item("section") = "11" Then
Literal43.Text &= Dr.Item("room_nb") & vbCrLf
Literal50.Text &= Dr.Item("room_nb") & vbCrLf
ElseIf Dr.Item("section") = "12" Then
Literal1.Text &= Dr.Item("room_nb") & vbCrLf
Literal8.Text &= Dr.Item("room_nb") & vbCrLf
Literal22.Text &= Dr.Item("room_nb") & vbCrLf
Literal29.Text &= Dr.Item("room_nb") & vbCrLf
End If
End If
Loop
Dr.Close()
End Sub

按钮 前台代码:
<asp:Button ID="Button1" runat="server" Text="查询" Width="42px" />

[wactor]

引用 1 楼 Tiger_Zhao 的回复:

Literal1.Text &= Dr.Item("room_nb") & vbCrLf

你自己要的是拼接方式啊。全部改成非拼接的方式

Literal1.Text = Dr.Item("room_nb")

不拼接的话，出来的结果就是每个单元格只有1个房间号。 拼接的话，至少点第一次 查询 按钮 出来的结果是正确的。 现在想解决的是，怎样能够实现每次点 查询 按钮，出来的结果 I ，而不是 I X 2 。 怎么设置或者 加 前台 或 后台 代码 实现呢？ 苦恼了几天都无果。

[Tiger_Zhao]

那么就在查询之前清空

Literal1.Text = ""

[wactor]

引用 3 楼 Tiger_Zhao 的回复:

那么就在查询之前清空

Literal1.Text = ""

是喔。 哈哈，厉害！ 搞定

[Tiger_Zhao]

Literal1.Text &= Dr.Item("room_nb") & vbCrLf

你自己要的是拼接方式啊。全部改成非拼接的方式

Literal1.Text = Dr.Item("room_nb")