作者wcf1023 (BLACK)
看板Visual_Basic
标题[VB.NET]上一笔、下一笔问题
时间Wed Jun 13 22:54:03 2007
下面是我的程式码
Private Sub bt3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles bt3.Click
Dim bm As BindingManagerBase
bm = Me.BindingContext(ds, "player")
bm.Position = bm.Position + 1
da.Fill(ds, "player")
'资料往下一笔移动
End Sub
Private Sub bt4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles bt4.Click
Dim bm As BindingManagerBase
bm = Me.BindingContext(ds, "player")
bm.Position = bm.Position - 1
da.Fill(ds, "player")
If bm.Position = bm.Position Then
End If
'资料往上一笔移动
End Sub
Ｑuestions：
１。我想在上一笔到顶的时候出现视窗说这已经到资料顶端了
２。我想在下一笔到底的时候出现视窗说这已经到资料底端了
谢谢！！
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.193.89.189
1F：→ wcf1023:对了~我是用2003版的 06/13 22:59