(06-03-22, 06:59 PM)safralfahd كتب : السلام عليكم ورحمة الله
تحية طيبة

إخواني الكرام حفظكم الله
ما هي طريقة الادخال اليدوي في الداتا جريد فيو وحفظ المعلومات المدخلة بمجرد ضغط Enter والانتقال للصف الثاني... وكذلك عند التعديل...
بمعنى:
عندي بيانات أريد ادخالها متكونة من عدة صفوف كل ما أدخل معلومة واضغط Enter ينتقل للصف الثاني ويحفظ الصف الذي قبله وهكذا...

ولكم جزيل الشكر

(07-03-22, 05:55 AM)SaedAmer كتب :

(06-03-22, 06:59 PM)safralfahd كتب : السلام عليكم ورحمة الله
تحية طيبة

إخواني الكرام حفظكم الله
ما هي طريقة الادخال اليدوي في الداتا جريد فيو وحفظ المعلومات المدخلة بمجرد ضغط Enter والانتقال للصف الثاني... وكذلك عند التعديل...
بمعنى:
عندي بيانات أريد ادخالها متكونة من عدة صفوف كل ما أدخل معلومة واضغط Enter ينتقل للصف الثاني ويحفظ الصف الذي قبله وهكذا...

ولكم جزيل الشكر

ممكن توضيح اكتر لطلبك

(07-03-22, 08:55 PM)safralfahd كتب :

(07-03-22, 05:55 AM)SaedAmer كتب :

(06-03-22, 06:59 PM)safralfahd كتب : السلام عليكم ورحمة الله
تحية طيبة

إخواني الكرام حفظكم الله
ما هي طريقة الادخال اليدوي في الداتا جريد فيو وحفظ المعلومات المدخلة بمجرد ضغط Enter والانتقال للصف الثاني... وكذلك عند التعديل...
بمعنى:
عندي بيانات أريد ادخالها متكونة من عدة صفوف كل ما أدخل معلومة واضغط Enter ينتقل للصف الثاني ويحفظ الصف الذي قبله وهكذا...

ولكم جزيل الشكر

ممكن توضيح اكتر لطلبك

عندي أسماء طلاب واريد ادخل لهم درجة الامتحانات عن طريق الادخال المباشر في الداتا جريد فيو …

(07-03-22, 10:59 PM)مصمم هاوي كتب : لستُ خبيراً في الدوت نت ولكن حسب ما أعرفه في الفيجوال بيسك 6  والذي طبقته هو:
أولاً: استدعاء الطبــة إلى الداتا قريدفيو حسب الصف وإن كان يوجد شعبة أو قسم
ثانياً: إختيار المادة المراد رصد درجاتها
((((بهذه الطريقة تختار الصف والشعبة فيتم استدعاء الطلبة في الداتا قريدفيو ثم تختار المادة وترصد درجاتها)))  
وعند تصميم  المثال سيتكفل الأساتذة الكرام بالتعديل على المثال المرفق .ومساعدتك
أما بهذا الطريقة فلن تجد أحداً يصنع لك كلَّ شيء

هذا عن تجربة ابدأ ....  ثم اطلب المساعدة إن عجزت عن تنفيذ أمرٍ ما

(08-03-22, 12:34 AM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته

إن كنت تظن بأن الادخال عبر الداتاجريد هو أسرع من الادخال من التكس بوكس (كما في الاكسل) فأنت مخطأ

الطريقة الاسرع للادخال هي عبر الـ (TextBox) و (ComboBox) وأسرع مما هي في الاكسل وذلك للاسباب :
1 - الادخال عبر الداتا جريد فيو ليس بالحل المناسب : لأنه بالامكان التعديل على أي خانة في أي سطر :
   - فأي تعديل خاطئ في خلية ما في سطر ما سيتسبب لك بتغيير البيانات في سجل ماا دون أن تشعر بذلك..
   - مع كل سطر جديد أو إدخال جديد سيقوم البرنامج بالتحقق من كل البيانات المدخلة من اول خلية في أول سطر إلى آخر خلية في آخر سطر 
     وسيقوم بتعديل الموجود وادخال جديد لغير الموجود، مما سيتسبب لك ببطئ الادخال مع كل سطر ..
   - .. إلخ ..

2 - تستطيع تخصيص برمجياً كل مربع من (TextBox) أو (ComboBox) للقيم التي تريد رقمية أو نصية، عربية أو عجمية.
3 - منع الادخال الخاطئ بحيث لو أدخلت كلام عربي في خانة عجمية أو رقمية أو خانة تاريخ سيعطيك البرنامج تنبيه لتصحح الادخال قبل وقوعه.
4 - يمكنك ادخال قيم افتراضية ضمن مربع (ComboBox) فتصبح لاختيار القيم بدون إدخالها كل مرة ويمنع الخطأ الاملائي نتيجة السرعة في الادخال. 
5 - ما كنت تتخليه عن سهولة الادخال عبر الداتاجريد بامكانك توفيره بطريقة مربعات التكست بوكس  والانتقال بين كل مربع وآخر عبر الـ (TAB) والادخال والحفظ بـ ضغطة (Enter).
6 - والمزيد من الميزات ستكتشفها بعد تنفيذك للبرنامج لإمكانية التعديل وتطوير البرنامج وقت تشاء و كما تشاء.
..

(11-03-22, 07:05 AM)حسين ادريس كتب : اتفضل الكود ي غالى 
مطلوب داتا جريد فيو1 بالفروم رقم 1
ومديول 
انسخ هذا الكود 

كود :

Imports System.Data.OleDb





Public Class Form1
   Dim dt_cust As New DataTable
   Dim da As OleDbDataAdapter
   
   

 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       da = New OleDbDataAdapter("select * from mm", con)
       da.Fill(dt_cust)
       DataGridView1.DataSource = dt_cust
   End Sub

   Private Sub DataGridView1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown



       If e.KeyCode = Keys.Enter Then
           e.SuppressKeyPress = True
           'e.SuppressKeyPress = False
           Dim iCol = DataGridView1.CurrentCell.ColumnIndex
           Dim iRow = DataGridView1.CurrentCell.RowIndex
           If iCol = DataGridView1.Columns.Count - 1 Then
               If iRow < DataGridView1.Rows.Count - 1 Then
                   DataGridView1.CurrentCell = DataGridView1(0, iRow + 1)
               End If
           Else
               DataGridView1.CurrentCell = DataGridView1(iCol + 1, iRow)

           End If
       Dim cmd As New OleDbCommandBuilder(da)
       Try
           da.Update(dt_cust)
           con.Close()
           MsgBox("تمت التعديل بنجاح")
       Catch ex As Exception
           MsgBox(ex.Message)
           Exit Sub
       End Try
       End If
   End Sub