1、首先打開excel工作表格。
目前創新互聯公司已為上千的企業提供了網站建設、域名、網絡空間、綿陽服務器托管、企業網站設計、贛州網站維護等服務,公司將堅持客戶導向、應用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協力一起成長,共同發展。
2、其次用鼠標右鍵點擊“標簽欄”,選擇“插入”。
3、最后選擇里面“工作表”點擊即可完成添加。
一般,我都不喜歡做這樣報上一條下一條,太專業的數據庫操作不適合終端用戶。
如果必須要做,你可以這樣:按排序規則,取到健列表。保存到list中,上下條,只是改變一索引而已。
Imports System.Data.OleDb
Class BindNavigate
Dim cnn As OleDb.OleDbConnection '打開連接略
Dim lst As New List(Of Integer)
Sub New()
lst = New List(Of Integer)
index = -1
Using da As New OleDbDataAdapter("select id from mytable order by abc,def", cnn), tb As New DataTable
da.Fill(tb)
For Each row As DataRow In tb.Rows
Dim n As Integer = row(0)
lst.Add(n)
Next
If tb.Rows.Count 0 Then CurrentIndex = 0
End Using
End Sub
Dim index As Integer Event CurrentIndexChanged()
Property CurrentIndex As Integer
Get
Return index
End Get
Set(ByVal value As Integer)
Dim b As Boolean = value index
index = value
If b Then RaiseEvent CurrentIndexChanged()
End Set
End Property
'當前的鍵值
ReadOnly Property CurrentValue As Integer
Get
Return lst(index)
End Get
End Property
Sub MoveFirst()
CurrentIndex = 0
End Sub
Sub MovePrevious()
CurrentIndex -= 1
End Sub
Sub MoveNext()
CurrentIndex += 1
End Sub
Sub MoveLast()
CurrentIndex = lst.Count - 1
End Sub
ReadOnly Property BOF
Get
Return CurrentIndex = 0
End Get
End Property
ReadOnly Property EOF
Get
Return CurrentIndex = lst.Count - 1
End Get
End Property
Private Sub Text_CurrentIndexChanged() Handles Me.CurrentIndexChanged
'綁定過程
End Sub
End Class
你是在網頁里實現,還是在程序畫面里實現。如果是網頁實現,可以通過設置控件屬性就能完成。如果是程序實現,可以通過SQL語句的TOP關鍵字來實現。
當前界面為Form1的話要打開Form2
就Form2.Show
如果是對話框形式就Form2.ShowDialog
新聞名稱:vb.net下一頁 vb怎么跳轉到下一個頁面
文章網址:http://m.newbst.com/article20/ddojico.html
成都網站建設公司_創新互聯,為您提供網站營銷、網站設計、Google、網站策劃、域名注冊、企業網站制作
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯