09-01-21, 04:50 PM
(آخر تعديل لهذه المشاركة : 09-01-21, 06:00 PM {2} بواسطة سلام و محبه.)
السلام عليكم و رحمة الله و بركاته
احد الاخوه بارك الله فيه ساعدنى فى التنقل بين السجلات و الكود لا افهمه ممكن حد يشرح لى الكود التالى
ما معنى السطر التالى
Dgv.CurrentCell = Dgv.Rows(pos).Cells(Dgv.CurrentCell.ColumnIndex)
للحصول على عدد السجلات كتبت
استدعيته فى الفورم لود
فى تكست بوكس اري\ه يظهر عباره " السجل كذا من كذا "
كتبت
فى الاجراء moveData ليصبح
لكن غير دقيق ما الحل
احد الاخوه بارك الله فيه ساعدنى فى التنقل بين السجلات و الكود لا افهمه ممكن حد يشرح لى الكود التالى
كود :
Private Sub BtnFrist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFrist.Click
pos = 0
Dgv.CurrentCell = Dgv.Rows(pos).Cells(Dgv.CurrentCell.ColumnIndex)
moveData()
End Sub
كود :
Sub moveData()
Try
Txt_bank_id.Text = Dgv.CurrentRow.Cells(0).Value.ToString()
Txt_bank_name.Text = Dgv.CurrentRow.Cells(1).Value.ToString()
Txt_bank_address.Text = Dgv.CurrentRow.Cells(2).Value.ToString()
Txt_bank_swiftcode.Text = Dgv.CurrentRow.Cells(3).Value.ToString()
Txt_bank_phone.Text = Dgv.CurrentRow.Cells(4).Value.ToString()
Txt_bank_fax.Text = Dgv.CurrentRow.Cells(5).Value.ToString()
Txt_bank_email.Text = Dgv.CurrentRow.Cells(6).Value.ToString()
Txt_bank_webpage.Text = Dgv.CurrentRow.Cells(7).Value.ToString()
Cmb_bank_user_id.Text = Dgv.CurrentRow.Cells(8).Value.ToString()
Dtp_bank_date.Value = Dgv.CurrentRow.Cells(9).Value.ToString()
Txt_bank_note.Text = Dgv.CurrentRow.Cells(10).Value.ToString()
Catch ex As Exception
Return
End Try
End Sub
ما معنى السطر التالى
Dgv.CurrentCell = Dgv.Rows(pos).Cells(Dgv.CurrentCell.ColumnIndex)
للحصول على عدد السجلات كتبت
كود :
Public Sub recordcount()
'للحصول على عدد السجلات
Dim dbcontext As New db_accountDataContext
Dim c = Aggregate co In dbcontext.banks Into Count()
Label4.Text = c
End Sub
كود :
Private Sub Frmbank_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadData(Dgv)
recordcount()
End Sub
استدعيته فى الفورم لود
فى تكست بوكس اري\ه يظهر عباره " السجل كذا من كذا "
كتبت
كود :
TextBoxCount.Text = "السجل" & Dgv.CurrentRow.Index & "من" & Label4.Text
كود :
Sub moveData()
Try
Txt_bank_id.Text = Dgv.CurrentRow.Cells(0).Value.ToString()
Txt_bank_name.Text = Dgv.CurrentRow.Cells(1).Value.ToString()
Txt_bank_address.Text = Dgv.CurrentRow.Cells(2).Value.ToString()
Txt_bank_swiftcode.Text = Dgv.CurrentRow.Cells(3).Value.ToString()
Txt_bank_phone.Text = Dgv.CurrentRow.Cells(4).Value.ToString()
Txt_bank_fax.Text = Dgv.CurrentRow.Cells(5).Value.ToString()
Txt_bank_email.Text = Dgv.CurrentRow.Cells(6).Value.ToString()
Txt_bank_webpage.Text = Dgv.CurrentRow.Cells(7).Value.ToString()
Cmb_bank_user_id.Text = Dgv.CurrentRow.Cells(8).Value.ToString()
Dtp_bank_date.Value = Dgv.CurrentRow.Cells(9).Value.ToString()
Txt_bank_note.Text = Dgv.CurrentRow.Cells(10).Value.ToString()
TextBoxCount.Text = "السجل" & Dgv.CurrentRow.Index & "من" & Label4.Text
Catch ex As Exception
Return
End Try
End Sub