如何让记录的上下移动
下面是我写的一段代码（我是vb.net的新手）：
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
Dim objSqlConnection As SqlConnection = New SqlConnection ("Server=HY;DataBase=HYhouse;User Id=sa;PassWord=1")
Dim objDataAdapter As SqlDataAdapter = New SqlDataAdapter("select * from tb_Part", objSqlConnection)
Dim objDataSet As DataSet
Dim objDataView As DataView
Dim objCurrencyManager As CurrencyManager
#Region " Windows 窗体设计器生成的代码 "
--------------------------------------------------------------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objDataSet = New DataSet
objDataAdapter.Fill(objDataSet, "tb_Part")
objDataView = New DataView(objDataSet.Tables("tb_Part"))
objCurrencyManager = CType(Me.BindingContext(objDataSet), CurrencyManager)
txtTheName.DataBindings.Add("text", objDataView, "theName")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
objCurrencyManager.Position += 2
MessageBox.Show(objCurrencyManager.Position)
End Sub
End Class
为什么MessageBox.Show(objCurrencyManager.Position)显示总是等于零呢，而且记录就停在第一条不动了呢
问题点数：100、回复次数：6Top
1 楼doy（）回复于 2006-03-17 02:22:08 得分 40
“objCurrencyManager = CType(Me.BindingContext(objDataSet), CurrencyManager)”
有没有问题呢，，
换成“objCurrencyManager = CType(Me.BindingContext(objDataView), CurrencyManager)”
试试看，，，
Top
2 楼houfuzhu（**追^_^梦**）回复于 2006-03-17 08:05:49 得分 0
不行呀，我试过了，编译不会过啊Top
3 楼3tzjq（永不言弃）回复于 2006-03-17 08:43:24 得分 60
dim bm System.Windows.Forms.BindingManagerBase
代替:
Dim objCurrencyManager As CurrencyManager
bm = Me.BindingContext(objDataSet,"tb_Part")
代替:
objCurrencyManager = CType(Me.BindingContext(objDataSet), CurrencyManager)
bm.Position +=2
代替:
objCurrencyManager.Position += 2
Top
4 楼houfuzhu（**追^_^梦**）回复于 2006-03-17 09:55:52 得分 0
楼上的大哥，是不是还要引用什么类呀，怎么编译不会通呀Top
5 楼houfuzhu（**追^_^梦**）回复于 2006-03-17 21:17:16 得分 0
为什么没人教我呀，各位大虾，帮帮我吧Top
6 楼houfuzhu（**追^_^梦**）回复于 2006-03-18 07:45:41 得分 0
谢谢各位,这个问题我自己搞定了,正确代码如下:
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Inherits System.Windows.Forms.Form
Dim objSqlConnection As SqlConnection = New SqlConnection ("Server=HY;DataBase=HYhouse;User Id=sa;PassWord=1")
Dim objDataAdapter As SqlDataAdapter = New SqlDataAdapter("select * from tb_Part", objSqlConnection)
Dim objDataSet As DataSet
Dim objDataView As DataView
#Region " Windows 窗体设计器生成的代码 "
--------------------------------------------------------------------------
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
objDataSet = New DataSet
objDataAdapter.Fill(objDataSet, "tb_Part")
objDataView = New DataView(objDataSet.Tables("tb_Part"))
txtTheName.DataBindings.Add("text", objDataView, "theName")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.BindingContext(objDataView).Position+=2
End Sub
End Class
Top
