vb编程_vb基本数据类型_vb编程入门实例讲解(9)

myConn.Close()

End Sub

'绑定数据到TextBox控件

Private Sub frmtest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

txtStuID.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuID″))

txtStuName.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuName″))

txtStuSex.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuSex″))

txtStuBorn.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuBorn″))

txtStuCore.DataBindings.Add(New Binding(″Text″, Me.myDataSet, ″student.StuCore″))

End Sub

完成以上步骤后，我们就可以通过编程对进行各作操作了。

1.实现对数据记录的浏览

在完成对窗体中的WinForm组件进行绑定后，实现对数据记录的浏览操作的关键就是要找到如何定位数据记录指针的方法。而要实现这种处理就需要用到. NET FrameWork SDK中的名称空间System.Windows.Froms中的BindingManagerBase类。

BindingManagerBase是一个抽象的类，主要用于管理同一数据表所有绑定对象。BindingManagerBase类中定义了二个属性 “position”和“Count”，第一个属性是定义当前数据指针，而第二个属性主要是得到当前数据集有多少记录数目。在已经进行完数据绑定后，通过这两个属性配合使用，实现对数据记录的浏览。

(1)向上翻阅一条记录：

双击“上一条”按钮，在代码窗中输入以下代码：

Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious_.Click

Me.BindingContext(myDataSet, ″student″).Position -= 1

End Sub

(2)向下翻阅一条记录：

双击“下一条”按钮在代码窗中输入以下代码：

Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnNext.Click

Me.BindingContext(myDataSet, ″student″).Position = 1

End Sub

(3)翻到最后一条记录：

双击“最后一条记录”按钮，在代码窗中输入以下代码：

Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click

Me.BindingContext(myDataSet, ″student″).Position = Me.BindingContext(myDataSet, ″student″).Count - 1

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/ruanjian/article-46460-9.html