تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب شرح للكود
#1
السلام عليكم و رحمة الله و بركاته
احد الاخوه بارك الله فيه ساعدنى فى التنقل بين السجلات و الكود لا افهمه ممكن حد يشرح لى الكود التالى 

كود :
   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
فى الاجراء moveData ليصبح

كود :
   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
لكن غير دقيق ما الحل
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن تصحيح للكود دا لو سمحتو ahmed112001 1 155 04-12-20, 09:49 AM
آخر رد: Anas Mahmoud
Photo تطوير بسيط للكود dasktop 3 799 05-10-18, 12:29 AM
آخر رد: elgokr
  اختصار للكود bidaya 2 968 03-04-17, 05:40 PM
آخر رد: silverlight
  هل يوجد كود عكسي للكود التالي Ahmed Gandos 2 1,189 31-03-16, 04:14 PM
آخر رد: mawad
  عاوز حل للكود ده ahmedelkady 5 1,738 17-07-14, 03:35 AM
آخر رد: ahmedelkady
  اكثر من 100 حلقه تكراريه اود اختصار للكود مدري 6 1,608 18-05-13, 05:04 AM
آخر رد: learning.net

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم