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
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
jeg har lige en ting mere, så der kommer et spm lige om 2 sek. igen!
;-)
Synes godt om
Ny brugerNybegynder
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.