Winform中的数据绑定

1、绑定到TextBox和ComboBox

' Visual Basic
Private Sub Form1_Load()Sub Form1_Load(ByVal sender As Object, ByVal e _
        As System.EventArgs) Handles MyBase.Load
    daCustomers.Fill(DsNorthwind1, "Customers")
    daOrders.Fill(DsNorthwind1, "Orders")

    ' Bind the controls to the datasource.
    txtOrderID.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.OrderID"))
    txtEmployeeID.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.EmployeeID"))
    txtOrderDate.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.OrderDate"))
    txtRequiredDate.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.RequiredDate"))
    txtShippedDate.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.ShippedDate"))
    txtShipVia.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.ShipVia"))
    txtFreight.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.Freight"))
    txtShipName.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.ShipName"))
    txtShipAddress.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.ShipAddress"))
    txtShipCity.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.ShipCity"))
    txtShipRegion.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.ShipRegion"))
    txtShipPostalCode.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.ShipPostalCode"))
    txtShipCountry.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.ShipCountry"))

    ' Set up the lookup table.
    With CustomerLookup
        .DataSource = DsNorthwind1
        .DisplayMember = "Customers.CompanyName"
        .ValueMember = "Customers.CustomerID"
        .DataBindings.Add(New Binding("SelectedValue",DsNorthwind1, "Orders.CustomerID"))
    End With
End Sub

2、在窗体上移动数据

' Visual Basic
Private Sub btnNext_Click()Sub btnNext_Click(ByVal sender As Object, ByVal e _
        As EventArgs) Handles btnNext.Click
    BindingContext(DsNorthwind1, "Orders").Position += 1
End Sub