' Visual Basic PrivateSub Form1_Load()Sub Form1_Load(ByVal sender AsObject, ByVal e _ As System.EventArgs) HandlesMyBase.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")) EndWith End Sub
2、在窗体上移动数据
' Visual Basic PrivateSub btnNext_Click()Sub btnNext_Click(ByVal sender AsObject, ByVal e _ As EventArgs) Handles btnNext.Click BindingContext(DsNorthwind1, "Orders").Position +=1 End Sub