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



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


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