حرکت بر روی رکوردها با یک فرم ساده

[khz-web1]

سلام
من یه فرم دارم و می خوام با استفاده از اون رویه رکوردام حرکت کنم(به شکل زیر)
با تشکر

[barbodsoft.com]

ابتدا باید اطلاعات رو بایند کنی



Dim ocm As CurrencyManager
Dim dv As DataView
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim da As SqlDataAdapter = New SqlDataAdapter("select*from tablename", con)
Dim ds As DataSet = New DataSet
da.Fill(ds, "tablename")
dv = New DataView(ds.Tables("tablename"))
ocm = CType(Me.BindingContext(dv), CurrencyManager)
ocm.Position = ocm.Count - 1
TextBox1.DataBindings.Clear()
TextBox2.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox1.DataBindings.Add("text", dv, "Id")
TextBox2.DataBindings.Add("text", dv, "Fname")
TextBox3.DataBindings.Add("text", dv, "Lname")
showposition()
End Sub

Sub showposition()
Txt.Text = ocm.Position + 1 & " " & "از" & " " & ocm.Count
End Sub


و برای حرکت بین رکورد ها به ترتیب
next


ocm.Position += 1
showposition()


back


ocm.Position -= 1

showposition()


first


ocm.Position = 0

showposition()


last


ocm.Position = ocm.Count - 1
showposition()

[khz-web1]

خوب حالا تصور کنید که یک فرم دیگه با همین مشخصات(همین تکست باکس های و عمل حرکت روی رکود ) وجود داشته باشه و ما بخوایم آیدی فرم یک رو پاس بدیم به فرم 2 و اونجا در Textbox اولی که مربوط به آیدی هستش نمایش بدیم ....
من خود با یک کلاس اینکارو انجام میدم ولی مشلکی که وجو داره اینکه دیگه مقدار Textbox اولی تغییر نمیکنه ....
آیا دوستان راه حلی سراغ دارند؟
با تشکر

[barbodsoft.com]

من خود با یک کلاس اینکارو انجام میدم ولی مشلکی که وجو داره اینکه دیگه مقدار Textbox اولی تغییر نمیکنه ....


متوجه نشدم. یعنی چی تغییر نمی کنه!

[khz-web1]

سلام...
من بر نامه رو کامل آپلود کردم (البته بدون دیتابیس) شما 1 نگاه بهش بندازی متوجه میشید....
با تشکر فراوان

[barbodsoft.com]

لطفا بانک رو هم بزار بدون بانک خیلی باید کنکاش کنم. بانک رو بزار تا عملا ببینم منظورت چیه.