Avatar billede disco_keld Nybegynder
17. februar 2003 - 11:30 Der er 9 kommentarer og
2 løsninger

Fjerne paging numre, når søgeresultat giver 0?

Hej.....

Nogen forslag til hvordan man programmerings mæssigt fjernede de pille der i paging når søgningen ingen resultat gav?

Jeg brugere numre nu, og det ser dusk ud der står et 1 tal og flagre midt ude i det hele! :-(

Her er paging proceduren:

Sub dgSearch_OnPageIndexChanged(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
        dgSearchResult.CurrentPageIndex = e.NewPageIndex

        Dim SearchString As String = Request.Params("Search")

        Dim allWords As String = Request.Params("AllWords")
        Dim products As ProductDb = New ProductDb()

        dgSearchResult.DataSource = products.SearchCatalog(SearchString, allWords)
        dgSearchResult.DataBind()
    End Sub

Mvh

DK
Avatar billede burningice Nybegynder
17. februar 2003 - 20:08 #1
kan du ikke bare slå paging fra hvis søgningen ikke giver bonus?
Avatar billede disco_keld Nybegynder
18. februar 2003 - 08:20 #2
lyder som en god idé!

men hvordan? :-(
Avatar billede midas_dk Nybegynder
18. februar 2003 - 09:29 #3
If dgSearchResult.Items.Count = 0 Then
  dgSearchResult.AllowPaging = False
End If
Avatar billede midas_dk Nybegynder
18. februar 2003 - 09:29 #4
Det var et svar...
Avatar billede disco_keld Nybegynder
18. februar 2003 - 10:56 #5
sådan her virker ikke:

Sub dgSearch_OnPageIndexChanged(ByVal sender As Object, ByVal e As DataGridPageChangedEventArgs)
        If dgSearchResult.Items.Count = 0 Then
            dgSearchResult.AllowPaging = False
        Else
            dgSearchResult.CurrentPageIndex = e.NewPageIndex

            Dim SearchString As String = Request.Params("Search")
            Dim allWords As String = Request.Params("AllWords")

            Dim products As ProductDb = New ProductDb()

            dgSearchResult.DataSource = products.SearchCatalog(SearchString, allWords)
            dgSearchResult.DataBind()
        End If
    End Sub
Avatar billede burningice Nybegynder
18. februar 2003 - 11:03 #6
disco_keld>> nej nej.. du skal ikke k're det i IndexChanged... den bliver jo først udført når man ændrer side... du skal gøre det i din PageLoad

Sub PageLoad()

dgSearchResult.DataSouce = hej

If dgSearchResult.Items.Count = 0 Then
            dgSearchResult.AllowPaging = False
End If

End SUb
Avatar billede disco_keld Nybegynder
18. februar 2003 - 11:08 #7
hehe............ ups!

Tager lige min solbriller af så jeg kan se forskel på min rutiner!

HEHEHEHEHE........... :-(

jeg har smidt den betingelse op i page_load, men det fucking 1 tal viser den stadig!
Avatar billede disco_keld Nybegynder
18. februar 2003 - 11:10 #8
kan ikke smide den her imellem på en eller anden måde?

'Count antallet af matches
                Dim dt As DataTable = products.SearchCatalog(SearchString, allWords)
                lblCount.Text = CStr(dt.Rows.Count)
                dgSearchResult.DataSource = dt
                dgSearchResult.DataBind()

                If dt.Rows.Count = 0 Then
                    lblCount.Text = "<font size=""2""><b>Der er desværre igen resultater, for søgeordet!</b></font>"
                Else
                    lblCount.Text = "<font size=""2""><b>Antal resultater: " & dt.Rows.Count & "</b></font>"
                End If
            Catch
                Throw
            End Try
Avatar billede disco_keld Nybegynder
18. februar 2003 - 11:15 #9
hehe.....

jeg havde lige lige lavet en bitte fejl!

virker som det skal gutter,- :-)

skal jeg dele points mellem jer?

Så kom med et svar cyberfessor
Avatar billede burningice Nybegynder
18. februar 2003 - 11:27 #10
svar :)
Avatar billede disco_keld Nybegynder
18. februar 2003 - 11:33 #11
tak for hjælpen drenge!

jeg har lige en ting mere, så der kommer et spm lige om 2 sek. igen!

;-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester