16,717
社区成员
发帖
与我相关
我的任务
分享 Private db As New LzmTW.Data.SqlDatabase(".", "Northwind")
Dim binding As New BindingSource
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim table As DataTable = db.GetDataTable("Orders")
binding.DataSource = table
Me.DataGridView1.DataSource = binding
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
binding.MoveLast() '移到最后一行
End Sub