VB 2008中的“下一个"和“上一个"按钮 [英] Next and Previous buttons in VB 2008

问题描述

有没有人知道制作Visual Basic 2008应用程序时可用于移至下一条记录的任何代码，我已经尝试过这些，但是它们都不起作用

Does anyone know of any code that can be used to move to next record when making a visual basic 2008 application, i have tried these but none of them work

Private Sub RecLocation()
  me.lblLocation.text = ((Me.BindingContext (objDsCompany, "Worker").Position +1).ToString + " of ") _
  + Ne.BindingContext(objDsCompany, "Workers").Count.ToString)
  RecLocation
End Sub

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e .....)
 Me.BindingContext(objDsCompany, "Worker").Position =0
 RecLocation
End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e .....)
  Me.BindingContext(objDsCompany, "Worker").Position = (Me.objDSCompany.Tables("Worker").Rows.Count -1)
  RecLocation()
End Sub

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e .....)
  Me.BindingContext(objDsCompany, "Worker").Position =Me.BindingContext (objDsCompany, "Worker").Position +1)
  RecLocation()
End Sub

Private Sub btnPrev_Click(ByVal sender As System.Object, ByVal e .....)
  Me.BindingContext(objDsCompany, "Worker").Position = Me.BindingContext(objDsCompany, "Worker").Position -1)
  RecLocation
End Sub

推荐答案

尝试
为初学者使用ADO.NET [

Try
Using ADO.NET for beginners[^]

这篇关于VB 2008中的“下一个"和“上一个"按钮的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！