新搜索后删除错误消息 [英] Removing error message after new search

查看：60
本文介绍了新搜索后删除错误消息的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！

问题描述





我正在我的应用程序中构建一个搜索框但我遇到了一个问题，我设置的错误消息不会消失新搜索已完成。



客户端.. 

< asp：标签ID =   noResultOutput runat =   server> < /  标签 >





服务器端.. 



 其他 
 noResultOutput.Text =  没有用户帐户按下搜索按钮时，





没有用户定位我的消息出现但如果我尝试另一个但成功的搜索错误仍然显示。有人可以帮我解决页面刷新和成功搜索后如何删除信息。



谢谢



我的完整服务器端代码.. 



 受保护的  Sub  buttonSearch_Click（ ByVal  sender  As  对象， ByVal  e  As  System.EventArgs）句柄 buttonSearch.Click 
 
  Dim  dsResults  As  新 DataSet 
  Dim  dt  As  DataTableReader 
 
 
 dsResults = SearchResults（sLoginid.Value.ToString，sfirstName.Value.ToString，slastName.Value.ToString，sEnumber.Value .ToString，sprofNumber.Value.ToString）
 dt = dsResults.CreateDataReader 
 
 
  Dim  tb  As  新表
  Dim  tr  As  新 TableRow 
  Dim  tc 作为 新 TableCell 
  Dim  lb < span class =code-keyword>作为 新标签
  Dim  bt1 作为 新 HtmlGenericControl（  div）
  Dim  bt2  As  < span class =code-keyword>新 HtmlG enericControl（  div）
  Dim  bt3 作为 新 HtmlGenericControl（  div）
  Dim  iCount  As  整数 =  1  
 
 
 
 tb.CssClass =   tableStyle 
 tb.CellPadding = 
 tb.CellSpacing =  0  
 
 
 如果 dt.HasRows =  True  然后 
 
 tr = 新 TableRow 
 tr.CssClass =   tabHeader 
 tc = 新 TableCell 
 lb = 新标签
 
 lb.Text =  登录ID 
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 
 tb.Controls.Add（tr）
 
 
 tr.CssClass =   tabHeader 
 tc = 新 TableCell 
 lb = 新标签
 
 lb.Text =  员工ID 
 tc.Controls.Add（lb）
 tr.Controls.Add（tc ）
 
 tb.Controls.Add（tr）
 
 tr.CssClass =   tabHeader 
 tc = 新 TableCell 
 lb = 新标签
 
 lb.Text =  姓 
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 
 tb.Controls.Add（tr）
 
 
 tr.CssClass =   tabHeader 
 tc = 新 TableCell 
 lb = 新标签
 
 lb.Text =  名字 
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 
 tb.Controls.Add（tr ）
 
 
 tr.CssClass =   tabHeader 
 tc = 新 TableCell 
 lb = 新标签
 
 lb.Text =   Middlename 
 tc.Controls.Add（lb）
 tr.Controls.Add （tc）
 
 tb.Controls.Add（tr）
 
 tr.CssClass =   tabHeader 
 tc = 新 TableCell 
 lb = 新标签
 
 lb.Text =   DOB 
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 
 tb.Controls.Add（tr）
 
 tr.CssClass =   tabHeader 
 tc = 新 TableCell 
 lb = 新标签
 
 lb.Text =  教授数字 
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 
 tb.Controls.Add（ tr）
 
 tr.CssClass =   tabHeader 
 tc = 新 TableCell 
 lb = 新标签
 
 lb.Text =  职位名称 
 tc.Controls.Add（lb）
 tr .Controls.Add（tc）
 
 tb.Controls.Add（tr）
 
 tr.CssClass =   tabHeader 
 tc = 新 TableCell 
 lb = 新标签
 
 lb.Text =  部门 
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 
 tb.Controls.Add（tr）
 
 tr.CssClass =   tabHeader 
 tc = 新 TableCell 
 lb = 新标签
 
 lb.Text =  网站 
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 
 tb.Controls.Add（tr）
 
 tr.CssClass =   tabHeader 
 tc = 新 TableCell 
 lb = 新标签
 
 lb.Tex t =  按钮 
 tc.Controls.Add（lb）
 tr .Controls.Add（tc）
 
 tb.Controls.Add（tr）
 
 
 
 
 
     dt。重读
 
 
 tr = 新 TableRow 
 '  tr.Attributes.Add（onclick， logId（'& dt.Item（login_id）。ToString（）& '）） 
 
 '  bt1.Attributes.Add（onclick ，goToEdit（'& dt.Item（login_id）。ToString（）&'）） 
 
 如果 iCount =  1  那么 
 tr.CssClass =   rowStyle1 
 iCount =  0  
 其他 
 tr.CssClass =   rowStyle2  
 iCount =  1  
 结束 如果 
 
 
 
 tc = 新 TableCell 
 tc。的CssClass =   rowCell 
 lb = 新标签
 
 
 
 lb.Text = dt.Item（  login_id）。ToString（）
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 tb.Controls.Add（tr） 
 
 
 '  tr = New TableRow  
 tc = 新 TableCell 
 tc.CssClass =   rowCell 
 lb = 新标签
 
 lb.Text = dt.Item（  staff_id）。ToString（）
 tc.Controls.Add（lb）
 tr.Controls。添加（tc）
 tb.Controls.Add（tr）
 
 
 '  tr = New TableRow  
 tc =  New  TableCell 
 tc.CssClass =   rowCell 
 lb = 新标签
 
 lb.Text = dt.Item（  surname）。ToString（）
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 tb.Controls.Add（tr）
 
 
 '  tr = New TableRow  
 tc = 新 TableCell 
 tc.CssClass =   rowCell 
 lb = 新标签
 
 lb.Text = dt.Item（ < span class =code-string> forename）。ToString（）
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 tb。 Controls.Add（tr）
 
 
 '  tr = New TableRow  
 tc = 新 TableCell 
 tc.CssClass =   rowCell 
 lb = 新标签
 
 lb.Text = dt.Item（   middlename）。ToString（）
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 tb.Controls.Add（tr）
 
 
 '  tr = New TableRow  
 tc = 新 TableCell 
 tc.CssClass =   rowCell 
 lb = 新标签
  Dim  dobS（） As  字符串 
 dobS =拆分（dt.Item（  date_of_birth ）。ToString（）， ）
 lb.Text = dobS （ 0 ）
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 tb.Controls.Add （tr）
 
 '  tr = New TableRow  
 tc = 新 TableCell 
 tc.CssClass =   rowCell 
 lb = 新标签
 
 lb.Text = dt.Item（  g_no）。ToString（）
 tc.Controls.Add（lb）
 tr.Controls .Add（tc）
 tb.Controls.Add（tr）
 
 '  tr = New TableRow  
 tc =  New  TableCell 
 tc.CssClass =   rowCell 
 lb = 新标签
 
 lb .Text = dt.Item（  position）。ToString（）
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 tb.Controls.Add（tr）
 
  '  tr = New TableRow  
 tc = 新 TableCell 
 tc .CssClass =   rowCell 
 lb = 新标签
 
 lb.Text = dt.Item（  location）。ToString（）
 tc.Controls.Add（lb）
 tr.Controls.Add（tc）
 tb.Controls.Add（tr）
 
 '  tr = New TableRow  
 tc = 新 TableCell 
 tc.CssClass =  < span class =code-string> rowCell 
 lb = 新标签
 
 lb.Text = dt .Item（  site）。ToString（）
 tc.Controls.Add（lb ）
 tr.Controls.Add（tc）
 tb.Controls.Add（tr）
 
 tc = 新 TableCell 
 tc.CssClass =   rowCell 
 bt1 = 新 HtmlGenericControl（  div）
 bt1 .InnerHtml =  < input type = button onclick = editUser（'& dt.Item（  login_id）。ToString.Replace（ ， ＃）&  '，'& dt.Item（  staff_id）。ToString.Replace（ ， ＃）&  '，'& dt.Item（  surname）。ToString.Replace（ ， ＃）&  '，'& dt.Item（  forename）。ToString.Replace（ ， ＃）&  '，'& dt.Item（  middlename）。ToString.Replace（ ， ＃）&  '，'& dobS（ 0 ）。替换（ ， ＃）&  '，'& dt.Item（  gmc_no）。ToString.Replace（ ， ＃）&  '，'& dt.Item（  position）。ToString.Replace（ ， ＃）&  '，'& dt.Item（  location）。ToString.Replace（ ， ＃）&  '，'& dt.Item（  site）。ToString.Replace（ ， ＃）&  '）value ='编辑个人资料'> 
 
 '  bt2 = New HtmlGenericControl（div） 
  '  bt2.InnerHtml =< input type = button onclick = viewSystems（'& dt.Item（login_id）。ToString&'）value ='查看系统'> 
 
 bt3 = 新 HtmlGenericControl（   div）
 bt3.InnerHtml =  < input type = button onclick = viewSystems（'& dt.Item（  login_id）。ToString&  '）value ='查看系统'> 
 
 '  bt1.Text =编辑 
 tc.Controls.Add（bt1）
 tr.Controls.Add（tc）
 tb.Controls.Add（tr）
 
 '  bt2.Text =删除 
 tc.Controls.Add（bt2）
 tr.Controls.Add（tc）
 tb.Controls.Add（tr） 
 
 '  bt3.Text =查看系统 
 tc .Controls.Add（bt3）
 tr.Controls.Add（tc）
 tb.Controls.Add（tr）
 
  Loop  
 dt.Close（）
 dsResults.Dispose（）
 
 placeResults.Controls.Add（tb）
 
  Else  
 
 noResultOutput.Text =   没有用户帐户 
 
 结束 如果 
 
 
 
 
  Dim  test1 作为 字符串 = adFunctions.getUsersGroupStatus（会话（ < span class =code-string> sADGroupA）。ToString，Session（  sUserId））
  Dim  test2  As   String  = adFunctions.getUsersGroupStatus（会话（  sADGroupRW）。ToString，Session（  sUserId））
  Dim  test3 作为  String  = adFunctions.getUsersGroupStatus（Session（  sADGroupRO）。ToString，会话（  sUserId））
 
 
 如果 test1 =   Y 和 test2 =   N 和 test3 =   N 然后 
 adNewUser.Visible =  True  
 
  ElseIf  test1 =   N 和 test2 =   Y 和 test3 =   N 然后 
 adNewUser.Visible =  True  
 
  ElseIf  test1 =   N 和 test2 =   N 和 test3 =   Y 然后 
 adNewUser.Visible = 错误 
 
 结束 如果

解决方案

尝试清除中的标签文字分支：

 ... 
 noResultOutput.Text =  String  .Empty 
  Else  
 noResultOutput.Text =  没有用户帐户 
 结束 如果


Hi,

I am building a search box in my application but i am having an issue with an error message that i set up which will not disappear after a new search is done.

Client Side..

<asp:Label ID="noResultOutput" runat="server"></Label>



Server Side..

Else
    noResultOutput.Text = "No User Account Located"



when the search button is pressed and no user is located my message comes up but if i try another but successful search the error still shows. Can someone help with how i can remove the message upon page refresh and a successful search.

Thank you

my full server side code..

Protected Sub buttonSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonSearch.Click

        Dim dsResults As New DataSet
        Dim dt As DataTableReader


        dsResults = SearchResults(sLoginid.Value.ToString, sfirstName.Value.ToString, slastName.Value.ToString, sEnumber.Value.ToString, sprofNumber.Value.ToString)
        dt = dsResults.CreateDataReader


        Dim tb As New Table
        Dim tr As New TableRow
        Dim tc As New TableCell
        Dim lb As New Label
        Dim bt1 As New HtmlGenericControl("div")
        Dim bt2 As New HtmlGenericControl("div")
        Dim bt3 As New HtmlGenericControl("div")
        Dim iCount As Integer = 1



        tb.CssClass = "tableStyle"
        tb.CellPadding =
        tb.CellSpacing = 0


        If dt.HasRows = True Then

            tr = New TableRow
            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Login ID"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)


            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Staff ID"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Surname"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)


            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "First name"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)


            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Middlename"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "DOB"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Prof Number"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Job Title"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Department"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Site"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Buttons"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)





            Do While dt.Read


                tr = New TableRow
                'tr.Attributes.Add("onclick", "logId('" & dt.Item("login_id").ToString() & "') ")

                'bt1.Attributes.Add("onclick", "goToEdit('" & dt.Item("login_id").ToString() & "') ")

                If iCount = 1 Then
                    tr.CssClass = "rowStyle1"
                    iCount = 0
                Else
                    tr.CssClass = "rowStyle2"
                    iCount = 1
                End If



                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label



                lb.Text = dt.Item("login_id").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)


                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("staff_id").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)


                ' tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("surname").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)


                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("forename").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)


                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("middlename").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)


                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label
                Dim dobS() As String
                dobS = Split(dt.Item("date_of_birth").ToString(), " ")
                lb.Text = dobS(0)
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("g_no").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("position").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("location").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("site").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                tc = New TableCell
                tc.CssClass = "rowCell"
                bt1 = New HtmlGenericControl("div")
                bt1.InnerHtml = "<input type=button onclick=editUser('" & dt.Item("login_id").ToString.Replace(" ", "#") & "','" & dt.Item("staff_id").ToString.Replace(" ", "#") & "','" & dt.Item("surname").ToString.Replace(" ", "#") & "','" & dt.Item("forename").ToString.Replace(" ", "#") & "','" & dt.Item("middlename").ToString.Replace(" ", "#") & "','" & dobS(0).Replace(" ", "#") & "','" & dt.Item("gmc_no").ToString.Replace(" ", "#") & "','" & dt.Item("position").ToString.Replace(" ", "#") & "','" & dt.Item("location").ToString.Replace(" ", "#") & "','" & dt.Item("site").ToString.Replace(" ", "#") & "') value='Edit Profile'>"

                'bt2 = New HtmlGenericControl("div")
                'bt2.InnerHtml = "<input type=button onclick=viewSystems('" & dt.Item("login_id").ToString & "') value='View systems'>"

                bt3 = New HtmlGenericControl("div")
                bt3.InnerHtml = "<input type=button onclick=viewSystems('" & dt.Item("login_id").ToString & "') value='View systems'>"

                'bt1.Text = "Edit"
                tc.Controls.Add(bt1)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'bt2.Text = "Delete"
                tc.Controls.Add(bt2)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'bt3.Text = "View Systems"
                tc.Controls.Add(bt3)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

            Loop
            dt.Close()
            dsResults.Dispose()

            placeResults.Controls.Add(tb)

        Else

            noResultOutput.Text = "No User Account Located"

        End If




        Dim test1 As String = adFunctions.getUsersGroupStatus(Session("sADGroupA").ToString, Session("sUserId"))
        Dim test2 As String = adFunctions.getUsersGroupStatus(Session("sADGroupRW").ToString, Session("sUserId"))
        Dim test3 As String = adFunctions.getUsersGroupStatus(Session("sADGroupRO").ToString, Session("sUserId"))


        If test1 = "Y" And test2 = "N" And test3 = "N" Then
            adNewUser.Visible = True

        ElseIf test1 = "N" And test2 = "Y" And test3 = "N" Then
            adNewUser.Visible = True

        ElseIf test1 = "N" And test2 = "N" And test3 = "Y" Then
            adNewUser.Visible = False

        End If

解决方案

Try clearing the label's text in the If branch:

    ...
    noResultOutput.Text = String.Empty
Else
    noResultOutput.Text = "No User Account Located"
End If


这篇关于新搜索后删除错误消息的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！

查看全文
相关文章
其他开发语言最新文章
热门教程
热门工具
登录 关闭
扫码关注1秒登录
发送“验证码”获取 | 15天全站免登陆