[VB.NET]帮忙把下面这段web的程序改成vb.net
发布时间：2020-12-16 23:40:05 所属栏目：大数据 来源：网络整理
导读：帮忙把下面这段web的程序改成vb.net 各位，如何将下面这个web的程序改成vb.net 的，谢谢！（本人没有接触过web,用的是vb.net,所以请大家帮帮忙） Partial Class _Default Inherits System.Web.UI.Page Private m_ldSortExpression As ListDictionary Private
|
帮忙把下面这段web的程序改成vb.net 各位，如何将下面这个web的程序改成vb.net 的，谢谢！（本人没有接触过web,用的是vb.net,所以请大家帮帮忙） Partial Class _Default Inherits System.Web.UI.Page Private m_ldSortExpression As ListDictionary Private Property SortExpressions() As ListDictionary Get m_ldSortExpression = CType(ViewState( SortExpressions ),ListDictionary) If m_ldSortExpression Is Nothing Then m_ldSortExpression = New ListDictionary End If Return m_ldSortExpression End Get Set(ByVal value As ListDictionary) ViewState( SortExpressions ) = value End Set End Property Protected Sub Page_Load(ByVal sender As Object,ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then BindData() End If End Sub Sub BindData() Usually you would get the data from the database. To simplify the code,I will just fill a datatable with some standard data. Dim dt As New DataTable dt.Columns.Add( FirstName ) dt.Columns.Add( LastName ) dt.Columns.Add( Age ) dt.Columns.Add( Position ) dt.Rows.Add(New Object() { Sonu,Kapoor,28,Developer }) dt.Rows.Add(New Object() { Mike,Mustermann,31,IT-Lead }) dt.Rows.Add(New Object() { Jeff,Kolb,IT-Lead }) dt.Rows.Add(New Object() { Josh,Lucas,37,Support }) dt.Rows.Add(New Object() { Chris,Chuck,40,Technical Support }) Dim dv As DataView = dt.DefaultView use a stringbuilder to hold the sortexpression for the dataview Dim sbSortExpression As New StringBuilder If SortExpressions.Count > 0 Then Dim myKeys(SortExpressions.Count) As String SortExpressions.Keys.CopyTo(myKeys,0) For i As Integer = 0 To SortExpressions.Count - 1 sbSortExpression.Append(myKeys(i)) sbSortExpression.Append( ) sbSortExpression.Append(SortExpressions(myKeys(i))) If i <> SortExpressions.Count - 1 Then sbSortExpression.Append(,) End If Next lblSortExpression.Text = sbSortExpression.ToString usually we would send that sort-expression now to SQL via some stored-procedure dv.Sort = sbSortExpression.ToString Else lblSortExpression.Text = String.Empty End If GridView1.DataSource = dv GridView1.DataBind() End Sub Protected Sub GridView1_Sorting(ByVal sender As Object,ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles GridView1.Sorting m_ldSortExpression = SortExpressions If Not m_ldSortExpression.Contains(e.SortExpression) Then m_ldSortExpression.Add(e.SortExpression,e.SortDirection.ToString.Replace( Ascending,ASC ).Replace( Descending,DESC )) Else Get sort direction Dim strSortDirection As String = m_ldSortExpression.Item(e.SortExpression) Was it ascending? If strSortDirection = ASC Then Yes,so sort in desc m_ldSortExpression.Item(e.SortExpression) = DESC ElseIf strSortDirection = DESC Then it is descending remove the sort order m_ldSortExpression.Remove(e.SortExpression) End If End If SortExpressions = m_ldSortExpression BindData() End Sub End Class __________________________________________________________________________ 帮顶上去 __________________________________________________________________________ 没人回复，自己顶一下 __________________________________________________________________________ 顶顶顶 __________________________________________________________________________ 这就是vb.net的程序，不知楼主什么意思？ __________________________________________________________________________ web程序当然可以用vb.net来写！ __________________________________________________________________________ 是不是要把B/S的改成C/S __________________________________________________________________________ 我的意思将上面的代码杆秤在winform中的，不是在web中的 谢谢大家先 __________________________________________________________________________ 顶一下... __________________________________________________________________________ 怎么没人顶，自己顶一下 __________________________________________________________________________ （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |