Winform中的数据绑定

1、绑定到TextBox和ComboBox

None.gif '  Visual Basic
ExpandedBlockStart.gifContractedBlock.gif
Private   Sub Form1_Load() Sub Form1_Load(ByVal sender As ObjectByVal e _
InBlock.gif        
As System.EventArgs) Handles MyBase.Load
InBlock.gif    daCustomers.Fill(DsNorthwind1, 
"Customers")
InBlock.gif    daOrders.Fill(DsNorthwind1, 
"Orders")
InBlock.gif
InBlock.gif    
' Bind the controls to the datasource.
InBlock.gif
    txtOrderID.DataBindings.Add(New Binding("Text",DsNorthwind1, "Orders.OrderID"))
InBlock.gif    txtEmployeeID.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.EmployeeID"))
InBlock.gif    txtOrderDate.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.OrderDate"))
InBlock.gif    txtRequiredDate.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.RequiredDate"))
InBlock.gif    txtShippedDate.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.ShippedDate"))
InBlock.gif    txtShipVia.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.ShipVia"))
InBlock.gif    txtFreight.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.Freight"))
InBlock.gif    txtShipName.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.ShipName"))
InBlock.gif    txtShipAddress.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.ShipAddress"))
InBlock.gif    txtShipCity.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.ShipCity"))
InBlock.gif    txtShipRegion.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.ShipRegion"))
InBlock.gif    txtShipPostalCode.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.ShipPostalCode"))
InBlock.gif    txtShipCountry.DataBindings.Add(
New Binding("Text",DsNorthwind1, "Orders.ShipCountry"))
InBlock.gif
InBlock.gif    
' Set up the lookup table.
InBlock.gif
    With CustomerLookup
InBlock.gif        .DataSource 
= DsNorthwind1
InBlock.gif        .DisplayMember 
= "Customers.CompanyName"
InBlock.gif
        .ValueMember = "Customers.CustomerID"
InBlock.gif
        .DataBindings.Add(New Binding("SelectedValue",DsNorthwind1, "Orders.CustomerID"))
InBlock.gif    
End With
ExpandedBlockEnd.gif
End Sub

None.gif
2、在窗体上移动数据
None.gif '  Visual Basic
ExpandedBlockStart.gifContractedBlock.gif
Private   Sub btnNext_Click() Sub btnNext_Click(ByVal sender As ObjectByVal e _
InBlock.gif        
As EventArgs) Handles btnNext.Click
InBlock.gif    BindingContext(DsNorthwind1, 
"Orders").Position += 1
ExpandedBlockEnd.gif
End Sub

None.gif

转载于:https://www.cnblogs.com/chinapro/archive/2005/05/17/157029.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值