В основном я недавно добавил окно поиска и кнопку на свой сайт asp.net. Проблема, с которой я столкнулся сейчас, заключается в том, что, несмотря на то, что поиски чисты и все в порядке, у меня возникают проблемы с сортировкой как до запуска любого поиска, так и после него. Я чувствую, что я могу что-то упустить после sda (Fill) .dt, но ничего, что я нашел в Интернете, похоже, не поможет. Не помогает, что его в VB либо Заранее спасибо.
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Collections
Imports System.Collections.Generic
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports Microsoft.VisualBasic
Public Class ShowPOsAdmin
Inherits System.Web.UI.Page
Dim strConn As String = ConfigurationManager.ConnectionStrings("PurchaseOrderConnectionString").ConnectionString
Dim Connection As SqlConnection = New SqlConnection(strConn)
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Me.IsPostBack Then
Me.SearchVen()
End If
End Sub
Private Sub SearchVen()
Dim Constr As String = ConfigurationManager.ConnectionStrings("PurchaseOrderConnectionString").ConnectionString
Using Con As New SqlConnection(Constr)
Using cmd As New SqlCommand
Dim searchword As String = "SELECT PurchaseOrder.PoId, PurchaseOrder.Vendor_Name, PurchaseOrder.POAmount,PurchaseOrder.DateFrom, PurchaseOrder.DateTo, PurchaseOrder.Balance, PurchaseOrder.CodeId, PurchaseOrder.PoNumber, BPNumber, ClassCode.CodeId AS Expr1, ClassCode.CodeDefinition, PurchaseOrder.Notes FROM PurchaseOrder INNER JOIN ClassCode ON PurchaseOrder.CodeId = ClassCode.CodeId"
If Not String.IsNullOrEmpty(TextBox11.Text.Trim()) Then
searchword += " Where PurchaseOrder.PONumber Like @POnumber + '%'"
cmd.Parameters.AddWithValue("PONumber", TextBox11.Text.Trim())
End If
cmd.CommandText = searchword
cmd.Connection = Connection
Using sda As New SqlDataAdapter(cmd)
Dim dt As New DataTable()
sda.Fill(dt)
dt.DefaultView.Sort = "Vendor_Name ASC"
GridView1.DataSourceID = ""
GridView1.DataSource = dt
GridView1.DataBind()
ViewState("dt") = dt
End Using
End Using
End Using
End Sub
Private Sub DetailsView1_ItemDeleted(sender As Object, e As DetailsViewDeletedEventArgs) Handles DetailsView1.ItemDeleted
GridView1.DataBind()
Me.SearchVen()
End Sub
Private Sub DetailsView1_ItemInserted(sender As Object, e As DetailsViewInsertedEventArgs) Handles DetailsView1.ItemInserted
GridView1.DataBind()
Me.SearchVen()
End Sub
Private Sub DetailsView1_ItemUpdated(sender As Object, e As DetailsViewUpdatedEventArgs) Handles DetailsView1.ItemUpdated
GridView1.DataBind()
Me.SearchVen()
End Sub
Private Sub GridView1_PageIndexChanging(sender As Object, e As GridViewPageEventArgs) Handles GridView1.PageIndexChanging
GridView1.PageIndex = e.NewPageIndex
Me.SearchVen()
End Sub
Protected Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles TextBox11.TextChanged
Me.SearchVen()
End Sub
Protected Sub DetailsView1_PageIndexChanging(sender As Object, e As DetailsViewPageEventArgs) Handles DetailsView1.PageIndexChanging
End Sub
End Class