منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود السجل الاخير - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : كود السجل الاخير (/showthread.php?tid=27498)

كود السجل الاخير - احمد خطاب - 17-11-18

Dim cell As Windows.Forms.DataGridViewCell = DataGridView1.Rows(0).Cells(0)
        DataGridView1.CurrentCell = cell
        DataGridView1.BeginEdit(True) 
الكود السابق كود السجل الاول 
ممكن اعرف كود السجل الاخير

RE: كود السجل الاخير - elgokr - 17-11-18

السجل الاول 
كود :
       Dim cell As DataGridViewCell = DataGridView1.Rows(0).Cells(0)
       DataGridView1.CurrentCell = cell
       DataGridView1.BeginEdit(True)

السجل الاخير
كود :
       Dim cell As DataGridViewCell = DataGridView1.Rows(DataGridView1.RowCount - 1).Cells(DataGridView1.ColumnCount - 1)
       DataGridView1.CurrentCell = cell
       DataGridView1.BeginEdit(True)

السجل التالى
كود :
       If ce >= DataGridView1.ColumnCount - 1 Then
           ce = 0
           If ro >= DataGridView1.RowCount - 1 Then
               ro = 0
           Else
               ro += 1
           End If
       Else
           ce += 1
       End If
       Dim cell As DataGridViewCell = DataGridView1.Rows(ro).Cells(ce)
       DataGridView1.CurrentCell = cell
       DataGridView1.BeginEdit(True)

السجل السابق
كود :
       If ce <= 0 Then
           ce = DataGridView1.ColumnCount - 1
           If ro <= 0 Then
               ro = DataGridView1.RowCount - 1
           Else
               ro += -1
           End If
       Else
           ce += -1
       End If
       Dim cell As DataGridViewCell = DataGridView1.Rows(ro).Cells(ce)
       DataGridView1.CurrentCell = cell
       DataGridView1.BeginEdit(True)

تحياتى لك
وتمنياتى لك لاتوفيق


RE: كود السجل الاخير - احمد خطاب - 17-11-18

الف مليون شكر صديقى العزيز
Dim cmd As New OleDbCommand
       cmd = New OleDbCommand("UPDATE info SET user_fornameinfo ='" & TextBox2.Text & "', user_ genderinfo = '" & TextBox3.Text & "' WHERE user_idinfo =" & TextBox1.Text & ")", con)
       con.Open()
       cmd.ExecuteNonQuery()
       con.Close()
ممكن تعديل على هذا الكود لانه لايعمل اكون شاكر

RE: كود السجل الاخير - elgokr - 18-11-18

الشكر لله والحمد لله
والحمد لله على كل حال

بخصوص الكود تم الرد عليك فى موضوعك الخاص بهذا الكود
واتمنى اتمام المتابعة بهذا الموضوع وارفاق المشروع حتى يتم عمل الكود طبقاً للمساميات لديك

تحياتى لك
وتمنياتى لك التوفيق