.NET 2.0 - WinForm Control - DataGridView 数据绑定

在应用开发中常常用到这样的应用： DataGridView用来显示全体数据，还有由一些TextBox控件来提供修改功能。这里如果用挨个赋值的办法就不好了。.NET中提供的一个重要的技术就是——数据绑定。数据绑定中几个重要对象及属性有：Control.DataSource属性，BindingSource对象，Form.BindingContext属性。

这里通过一个例子来说明WinForm开发中如何使用数据绑定。首先有数据结构形如：（这里使用NorthWind的Sample数据。）



Customers和Orders数据是1：n的关系，Orders和OrdersDetails数据是1：n的关系。

因此设计Form如图，ListView绑定Custormers数据，入力控件绑定Customers里数据的其他字段。OrdersDataGridView绑定Orders数据，DetaiDataGridView绑定Order Details数据。



 首先通过DataSet的DataRelation建立三表的关系：




Private Sub QueryData()Sub QueryData()




        If objConn Is Nothing Then Return


        objDataSet = New DataSet("Data")




        Dim strSql As String = "select * from customers"


        Dim objDbAdapter As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(strSql, objConn)


        objDbAdapter.Fill(objDataSet, "Customers")




        objDbAdapter.SelectCommand.CommandText = "select * from orders"


        objDbAdapter.Fill(objDataSet, "Orders")




        objDbAdapter.SelectCommand.CommandText = "select * from [order details]"


        objDbAdapter.Fill(objDataSet, "OrderDetails")




        objDataSet.Relations.Add("CustomerOrder", objDataSet.Tables("Customers").Columns("CustomerID"), objDataSet.Tables("Orders").Columns("CustomerID"))


        objDataSet.Relations.Add("OrderDetail", objDataSet.Tables("Orders").Columns("OrderID"), objDataSet.Tables("OrderDetails").Columns("OrderID"))




    End Sub

通过BindingSource绑定到DataGridView上，需要注意的是比较.NET 1.1的绑定，这里用BindingSource取代，在创建DataGridViewOrders的BindingSource对象的DataSource使用的是customBindingSource，而DataMember是Customers表和Orders表的DataRelation的名字——CustomerOrder。

        orderBindingSource.DataSource = customBindingSource
        orderBindingSource.DataMember = "CustomerOrder"

同理Detail的BindingSource对象的DataSource使用的是orderBindingSource，而DataMember是Orders表和Order Details表的DataRelation的名字——OrderDetail。

        detailBindingSource.DataSource = orderBindingSource
        detailBindingSource.DataMember = "OrderDetail"




Private Sub BindData()Sub BindData()




        If objDataSet Is Nothing Then Return




        Dim customBindingSource As BindingSource = New BindingSource


        Dim orderBindingSource As BindingSource = New BindingSource


        Dim detailBindingSource As BindingSource = New BindingSource




        customBindingSource.DataSource = objDataSet


        customBindingSource.DataMember = "Customers"




        orderBindingSource.DataSource = customBindingSource


        orderBindingSource.DataMember = "CustomerOrder"




        detailBindingSource.DataSource = orderBindingSource


        detailBindingSource.DataMember = "OrderDetail"




        Me.lstCustom.DataSource = customBindingSource


        Me.lstCustom.ValueMember = "ContactName"


        Me.lstCustom.DisplayMember = "ContactName"




        Me.DataGridView1.DataSource = orderBindingSource


        Me.DataGridView2.DataSource = detailBindingSource


        Me.DataGridView1.AutoResizeColumns()


        Me.DataGridView2.AutoResizeColumns()




        Me.txtName.DataBindings.Add("Text", customBindingSource, "ContactName")


        Me.txtContactTitle.DataBindings.Add("Text", customBindingSource, "ContactTitle")


        Me.txtAddress.DataBindings.Add("Text", customBindingSource, "Address")


        Me.txtCity.DataBindings.Add("Text", customBindingSource, "City")


        Me.txtRegion.DataBindings.Add("Text", customBindingSource, "Region")


        Me.txtPostalCode.DataBindings.Add("Text", customBindingSource, "PostalCode")


        Me.txtPhone.DataBindings.Add("Text", customBindingSource, "Phone")


        Me.txtFax.DataBindings.Add("Text", customBindingSource, "Fax")


        Me.txtCountry.DataBindings.Add("Text", customBindingSource, "Country")




    End Sub



而浏览数据，可以通过BindingManagerBase的Position来控制：




Private Sub btnFirst_Click()Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click


        'Dim binding As Binding = Me.txtName.DataBindings("Text")


        'Dim manager As BindingManagerBase = binding.BindingManagerBase


        Dim manager As BindingManagerBase = Me.BindingContext(Me.lstCustom.DataSource)


        manager.Position = 0


    End Sub






    Private Sub btnPrev_Click()Sub btnPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrev.Click


        Dim manager As BindingManagerBase = Me.BindingContext(Me.lstCustom.DataSource)


        If manager.Position > 0 Then


            manager.Position -= 1


        End If


    End Sub






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


        Dim manager As BindingManagerBase = Me.BindingContext(Me.lstCustom.DataSource)


        If manager.Position < manager.Count - 1 Then


            manager.Position += 1


        End If


    End Sub






    Private Sub btnLast_Click()Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click


        Dim manager As BindingManagerBase = Me.BindingContext(Me.lstCustom.DataSource)


        manager.Position = manager.Count - 1


    End Sub