PDA

View Full Version : پیمایش رکوردها



amin_paj
دوشنبه 08 مهر 1392, 17:17 عصر
سلام چطور به رکورد بعدی و قبلی برم ؟ میخوام دکمه قبلی و بعدی روی فرم بزارم
s1 = "data Source=.\sqlexpress;Initial Catalog=chapter1;Integrated Security=True;Pooling=False"
con = New SqlConnection(s1)
con.Open()
s2 = "select name'نام',family'نام خانوادگی',sh'شماره شناسنامه',address'آدرس' from employee"
da = New SqlDataAdapter(s2, con)
ds.Clear()
da.Fill(ds, "employee")

DataGridView1.DataBindings.Clear()
DataGridView1.DataBindings.Add(New Binding("datasource", ds, "employee"))

mohsenrahx
چهارشنبه 10 مهر 1392, 05:48 صبح
Private Sub NextRec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NextRec.Click
On Error Resume Next
DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentRow.Index. ToString + 1).Cells(0)
End Sub
Private Sub PreReC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreReC.Click
On Error Resume Next
DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentRow.Index. ToString - 1).Cells(0)
End Sub

امیدوارم به جوابت رسیده باشی

mohsenrahx
چهارشنبه 10 مهر 1392, 05:55 صبح
این هم از آخرین و اولین رکورد ... میتونی جای OnErrorResumeNext یک شرط هم قرار بدی!

PrivateSub Last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Last.Click
OnErrorResumeNext
DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.RowCount - 1).Cells(0)
EndSub
PrivateSub First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles First.Click
OnErrorResumeNext
DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)
EndSub

amin_paj
چهارشنبه 10 مهر 1392, 12:41 عصر
Private Sub NextRec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NextRec.Click
On Error Resume Next
DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentRow.Index. ToString + 1).Cells(0)
End Sub
Private Sub PreReC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PreReC.Click
On Error Resume Next
DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentRow.Index. ToString - 1).Cells(0)
End Sub

امیدوارم به جوابت رسیده باشی


تشکر و سپاس فقط چه شرطی بزارم که وقتی به آخرین رکورد رسید پیام بده ؟؟

volkswagen
چهارشنبه 10 مهر 1392, 16:16 عصر
می تونید تعداد کل رکوردها رو بدست بیارید ، بعد شرط بزارید که اگه شماره رکورد جاری با تعداد کل رکوردها مساوی شد ، پیغام بده

mohsenrahx
چهارشنبه 10 مهر 1392, 16:34 عصر
شرط رسیدن به آخرین رکورد! میتونی جای Msgbox هرچیز دیگه ای هم بنویسی

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentRow.Index. ToString + 1).Cells(0)
If DataGridView1.Rows.Count - 1 = DataGridView1.CurrentRow.Index + 1 Then MsgBox("")
End Sub

amin_paj
چهارشنبه 10 مهر 1392, 17:11 عصر
واقعاً ممنون کمک بزرگی کردی انشاالله جبران کنم برادر . ولی برای نمایش پیام هنگام بازگشت به اولین رکورد هنوز مشکل دارم

mohsenrahx
چهارشنبه 10 مهر 1392, 23:32 عصر
موفق و پیروز باشید.

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error Resume Next
DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.CurrentRow.Index. ToString - 1).Cells(0)
If DataGridView1.CurrentRow.Index = 0 Then MsgBox("")
End Sub