看板 Visual_Basic 關於我們 聯絡資訊
下面是我的程式碼 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 Questions: 1。我想在上一筆到頂的時候出現視窗說這已經到資料頂端了 2。我想在下一筆到底的時候出現視窗說這已經到資料底端了 謝謝!! -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 123.193.89.189
wcf1023:對了~我是用2003版的 06/13 22:59