请教,textbox绑定到数据源的问题，急，在线！
如何才能让textbox绑定到数据源，并且向在vb里那样，通过点击下一个使textbox里显示的内容同数据源里的数据显示下一组数据？ 问题点数：50、回复次数：6Top
1 楼canyqf（）回复于 2003-11-04 11:06:11 得分 50
Me.TextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.DataSet1, "Table1.Field1"))Top
2 楼canyqf（）回复于 2003-11-04 11:13:00 得分 0
显示下一个:
Me.BindingContext(DataSet1,"Table1").Position += 1Top
3 楼lz305（猎人【有型有款，有车有房。唯独没老婆】）回复于 2003-11-04 11:17:24 得分 0
Imports System.Data.SqlClient
Imports System.Data
Public Class FrmMain
Inherits System.Windows.Forms.Form
Private MyBind As BindingManagerBase
Private Sql As String = "select * from authors"
Private MyConn As New SqlConnection("server=localhost;uid=sa;pwd=;database=pubs;integrated security=true")
Private MyAdapter As New SqlDataAdapter(Sql, MyConn)
Private Ds As DataSet
Private Dv As DataView
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
MyBind.Position = 0
End Sub
Private Sub FrmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim MyObject As Object
For Each MyObject In Me.Controls
If (MyObject.GetType Is (New TextBox()).GetType) Then
With CType(MyObject, TextBox)
.Text = "" '设置所有文本框为空
.DataBindings.Clear() '清除绑定
End With
End If
Next
FillDataSetAndView()
End Sub
Private Sub FillDataSetAndView()
Ds = New DataSet()
MyAdapter.Fill(Ds, "authors")
Dv = New DataView(Ds.Tables("authors"))
MyBind = CType(Me.BindingContext(Dv), BindingManagerBase)
txtNum.DataBindings.Add("text", Dv, "au_id")
txtName.DataBindings.Add("text", Dv, "au_lname")
txtAlias.DataBindings.Add("text", Dv, "au_fname")
txtPhone.DataBindings.Add("text", Dv, "phone")
txtAddress.DataBindings.Add("text", Dv, "address")
txtCity.DataBindings.Add("text", Dv, "city")
End Sub
Private Sub btnMove_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnMove.Click
If MyBind.Position <> 0 Then
MyBind.Position -= 1
Else
MsgBox("已经是第一条记录,不用再按了!", MsgBoxStyle.Exclamation, "系统提示")
End If
End Sub
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
If MyBind.Position <> MyBind.Count - 1 Then
MyBind.Position += 1
Else
MsgBox("已经是最后一条记录,不用再按了!", MsgBoxStyle.Exclamation, "系统提示")
End If
End Sub
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
MyBind.Position = MyBind.Count - 1
End Sub
Top
4 楼ahui_song（苏雪）回复于 2003-11-04 13:42:58 得分 0
我的是web页面Top
5 楼ahui_song（苏雪）回复于 2003-11-04 16:35:10 得分 0
WEB页面里怎么用啊Top
6 楼azyue（沙漠之弧）回复于 2003-11-08 14:22:10 得分 0
直接使用代码写
dv as dataview
sp as int16
textbox1.text=dv.item(sp).item("").text
改变sp直控制判断就好。Top
