请问 这是什么情况?
每点一次 查询 按钮 , 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" />
点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" />
...全文
相关推荐
请问Vue中的computed和watch有什么区别?在什么情况下应该使用computed,什么情况下应该使用watch?
请问Vue中的computed和watch有什么区别?在什么情况下应该使用computed,什么情况下应该使用watch?
在什么情况下Java比C++快?
在什么情况下Java比C++快? 回复者:Cameron Purdy,Oracle中间件高级工程师。 这是根据我同时使用C++和Java工作超过20年所学到的,其实使用Java比C++还要早几年:
怎么查看80端口占用情况? 如何查看端口占用情况?
此时,你需要检查端口占用情况,找出占用80端口的进程并进行相应的处理。在Windows系统中,你可以通过以下几种方式查看端口占用:1.
疫情后企业复工复产情况汇报4篇?.pdf
疫情后企业复工复产情况汇报4篇?.pdf
银行本周聚焦:26万亿理财发展情况如何?怎么看招行宁波中报?.pdf
银行本周聚焦:26万亿理财发展情况如何?怎么看招行宁波中报?.pdf


