DataGridView أفكار وتلميحات

[LINQ2008]

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

[BADRMEDIA]

الأخ المكرم / LINQ2008


هل تقصد هذه المشاركة http://vb4arab.com/vb/showpost.php?p=13189&postcount=29

لو كانت هى - م هى المشكلة معك فيها ؟

[al-hasmi]

السلام عليكم ورحمة الله وبركاته

الأخ المكرم / BADRMEDIA صاحب الموضوع المهم والأهم في إستخدامات قواعد البيانات في فيجوال بيسيك والدليل تثبيت موضوعك وهو يستحق هذا ..

لو لاحظت أخي الكريم أكثر المشاركات تدور على محورين تقريباً ... ولم تجب على أي منها مع أهميتها

1- طريقة الإضافة والحذف والتعديل في الداتا جريد وحفظ هذا في الجدول المراد
2-طريقة وضع العمليات الحسابية في الداتا جريد .. مثال ( عمود المجموع = عمود السعر * عمود الكمية) .

سأضيف محور ثالث من عندياتي واراه لايقل أهمية

3- طريقة التعامل مع عمود حددنا خاصيته ككمبوبوكس يستقي بياناته من جدول .. ولا أظنها نفس طريقة الإسناد العادية
[left]
Me.ComboBox1.DataSource = DataSet1
Me.ComboBox1.DisplayMember = "table.name"[/LEFT ]
فما هي طريقة ملء قائمة الكومبوبكس داخل الداتاجريد من جدول ما ؟

هذه المحاور المهمة لاتغفل وقد ذكر موضوع الداتاجريد وتلميحاتها .
وياحبذا إن لم يكن الأخ موجوداً .. أن يتفضل أحد الخبراء بشرح ماغم علينا حول هذه المحاور الثلاث.


جزاكم الله خيراً

والسلام عليكم ورحمة الله وبركاته

[BADRMEDIA]

الأخ المكرم / al-hasmi - بالنسبة لما طلبته ليس بشئ كبير - فنحن وضعنا التمليحات لنقاط فنية فى الأداة وليس فى استخدامها الرئيسى ، وأسئلتك تدور حول الاستخدام الرئيسي


بالنسبة للسؤال رقم 2 الخاص بك عن طريق الحدث CellEndEdit

فحين تعديل أى قيمة فى عمود الكمية مثلا أو عمود السعر يتغير عمود الإجمالي كمثال

الرمز PHP:


Private Sub DGVLoadBillDetail_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVLoadBillDetail.CellEndEdit
     
        If DGVLoadBillDetail.Columns(e.ColumnIndex).Name = "ColClassQuant" Orelse If DGVLoadBillDetail.Columns(e.ColumnIndex).Name = "ColClassPrice" Then
                 DGVLoadBillDetail.Rows(DGVLoadBillDetail.CurrentRow.Index).Cells(7).Value = (DGVLoadBillDetail.Rows(DGVLoadBillDetail.CurrentRow.Index).Cells(5).Value * DGVLoadBillDetail.Rows(DGVLoadBillDetail.CurrentRow.Index).Cells(6).Value)
        End If
    
    End Sub 


[BADRMEDIA]

بالنسبة للسؤال الثالث حول التعامل مع ComboBox داخل أداة DatatGrid كعمود بيانات

نفس التعامل مع ComboBox عادي جداً


تقوم بتحميل DataSet بالبيانات ثم تسندها لاداة ComboBox هكذا

الرمز PHP:


  Me.CboFiledInDGV.DataSource = Ds_Combo.Tables("ClassStore")
        Me.CboFiledInDGV.DisplayMember = "Name"
        Me.CboFiledInDGV.ValueMember = "ID" 


[al-hasmi]

السلام عليكم ورحمة الله وبركاته

أشكرك أخي الكريم BADRMEDIA على تفضلك بالإجابة المفيدة ولحسن حظنا نحن المبتدئين تواجدكم للرد وأختيار المواضيع المهمة التي تتكرر ومنها موضوعك هذا ..

1-
بالنسبة للكود هذا جميل ورائع

الرمز PHP:

Private Sub DGVLoadBillDetail_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGVLoadBillDetail.CellEndEdit
     
        If DGVLoadBillDetail.Columns(e.ColumnIndex).Name = "ColClassQuant" Orelse If DGVLoadBillDetail.Columns(e.ColumnIndex).Name = "ColClassPrice" Then
                 DGVLoadBillDetail.Rows(DGVLoadBillDetail.CurrentRow.Index).Cells(7).Value = (DGVLoadBillDetail.Rows(DGVLoadBillDetail.CurrentRow.Index).Cells(5).Value * DGVLoadBillDetail.Rows(DGVLoadBillDetail.CurrentRow.Index).Cells(6).Value)
        End If
    
    End Sub 


مالذي أغير فيه بحسب مايلي :

اسم الجدول ( VO)
اسم عمود السعر في الداتا جريد (S) ترتيب العمود (4)
اسم عمود الكمية في الداتاجريد (Q) ترتيب العمود (3)
اسم عمود المجموع " الناتج" في الداتا جريد ( T) ترتيب العمود (0)

اسم الأداة : DataGridView1


_______

2- انا اريد ان يعرف الكومبوبوكس داخل الداتا جريد البيانات من جدول آخر غير الذي تعبأ بيانات الداتا جريد منه مثال

أعمدة الداتا جريد تستقي بياناتها من حقل اسم العميل والسعر والكمية والمجموع من جدول (الفواتير )
اما عمود الصنف يستقي من جدول الأصناف المرتبط بعلاقة مع جدول الفواتير
فيكون عمود الصنف في الداتاجريد كومبوبكس تعرض بيانات جدول الصنف وبقية أعمدة الداتا جريد تعرض حقول جدول الفواتير بخاصية العرض الإفتراضية TEXT

الرمز PHP:

 Me.CboFiledInDGV.DataSource = Ds_Combo.Tables("ClassStore")
        Me.CboFiledInDGV.DisplayMember = "Name"
        Me.CboFiledInDGV.ValueMember = "ID" 


والكود بالأعلى ليستقي من جدول واحد فقط ؟!!

بإذن الله تكون الصورة وصلت أخي الكريم

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

والسلام عليكم ورحمة الله وبركاته

[al-hasmi]

تم حل الجزء الأول وهي العمليات الحسابية على اعمدة الداتا جريد في وقت التنفيذ

بقي فقط الجزء الثاني

وهي طريقة ملء كومبوبوكس في حقل الصنف في أداة الداتا جريد

مالخطأ؟
خصوصاً اذا علمنا التالي:
1- اسم الجدول pro يتكون من حقلين PRO,IDP اريد فقط عرض حقل الصنف (pro)
2-اسم اداة الداتا جريد DataGridView1
3- عرفنا الإتصال وملء البيانات بالشكل التالي:

الرمز PHP:

Dim DataSet3 As New DataSet
    Dim SQLstr3 As String = "SELECT * FROM PRO"

في حدث تحميل الفورم '
Dim DataAdapter3 As New OleDbDataAdapter(SQLstr3, Conn)
        DataAdapter3.Fill(DataSet3, "PRO")

 'ملء حقل الصنف وهو بصيغة كومبوبكس من جدول (PRO)
        Me.CboFiledInDGV.DataSource = DataSet3.Tables("PRO")
        Me.CboFiledInDGV.DisplayMember = "PRO"
        Me.CboFiledInDGV.ValueMember = "IDP" 


[al-hasmi]

السلام عليكم ورحمة الله وبركاته
طيب انتهينا ولله الحمد من الجزء الثاني من المشكلة

نشكركم على تعاونكم

[mawd]

الاستاذ / بدر ميديا
لك الف شكر على الجهد المبذول من جانبك حقيقى مجهود رائع ولكن تسمح لى ان اطمع فى مجهودك اكتر ، حيث اننى عندى مشكله كبيرة فى مشروع اقوم بتنفيذه فى شركتى وارجو من سيادتكم التكرم بابداء الرأى فيه وحل هذه المشكله الكبيرة ، المشكلة انه لا اقدر اقوم بادخال البيانات او تعديلها من خلال الداتا جريد وباستخدام ado.net فلو امكن ان تحل هذه المشكله بالله عليك ، وجزاك الله الخير كل الخير انت وكافة المسلمين جميعاً
يوجد ملف مرفق مع هذه الرسالة

[al-hasmi]

السلام عليكم ورحمة الله وبركاته

اذا فهمت سؤالك فهذا مثال بحيث :

اسم قاعدة البيانات = EMP
اسج الجدول = Emp
الحقول = NO ,NM , PH

Button1

DataGridView1

وهذا الكود

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Dim conn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
               Application.StartupPath & "\EMP.mdb"
    Dim con As New OleDbConnection(conn)
    Dim sqls As String = "select * from Emp"
    Dim dataset1 As New DataSet
    Dim da As New OleDbDataAdapter(sqls, con)
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Try

            dataset1.Clear()
            con.Open()
            Dim ole As New OleDbCommand

            Dim i As Integer
            For i = 0 To DataGridView1.Rows.Count - 2
                Dim row As DataGridViewRow = DataGridView1.Rows(i)
                'تعريف المتغيرات التي ستحوي قيم الخلايا في أداة  DataGridView1
                Dim no As DataGridViewTextBoxCell = row.Cells(0)
                Dim nm As DataGridViewTextBoxCell = row.Cells(1)
                Dim ph As DataGridViewTextBoxCell = row.Cells(2)



                'جملة الإضافة للجدول

                Dim sql As String = "insert into Emp (NO,NM,PH)" & _
                " values('" & no.Value & "','" & nm.Value & "','" & ph.Value & "')"
                ole.Connection = con
                ole.CommandText = sql


                ole.ExecuteNonQuery()
            Next
            MsgBox("تمت عملية الإضافة بنجاح")
            da.Fill(dataset1, "Emp")

            DataGridView1.Rows.Clear()
        Catch ex As Exception
            MsgBox("لم تتم الاضافة")
        Finally
            con.Close()

        End Try

    End Sub

كما لا أنسي أخي الكريم بعض الاخطاء التي قد تقع في عملية حفظ البيانات من داتاجريد

كوضع حقل ID خصائص ترقيم تلقائي فستخرج لك رسالة خطأ حتماً

إن شاء الله تكون الإجابة المطلوبة

وانا مثلك مبتديء أخي الكريم

[rakan826]

السلام عليكم ورحمة الله وبركاته
الله يعطيكم العافية على هذا الموضوع المفيد

وانا عندي استفسار بسيط

عندي مشروع صغير يقوم بالبحث في قاعدة البيانات ويظهر النتائج في DataGridView
ولكن عندما اقوم بعمل بحث جديد فالنتائج الجديدة تضاف إلى النتائج السابقة والمفروض انها تحذف
وعندما استخدمت DataGridView1.Columns.Clear()
اصبحت النتائج تظهر لأول عملية بحث ، وعندما ادخل عملية بحث اخرى فالنتائج تمسح ولا تظهر أبدا
مع العلم انني استخدمتDataGridView1.Columns.Clear() في بداية حدث زر البحث

أرجو المساعدة
ولكم مني جزيل الشكر والتقدير

ودمتم

[al-hasmi]

السلام عليكم ورحمة الله وبركاته

dataset1.clear ()


t
سيحل المشكلة معك إن شاء الله

[rakan826]

الأخ / al-hasmi

الله يعطيك العافية
مشكور وما قصرت
فعلاً المشكلة انحلت بعدما استخدمت dataset1.clear ()

ألف شكر اخوي
جعله الله في موازين حسناتك
ووفقك لما يحبه ويرضاه

[احمد نون العراق]

السلام عليكم و رحمة الله وبركانه ....
الى الاخ العزيز BADRMEDIA
مشششششششششششككككككككوووووو على هذا المجهود العظيم وعلى الاقوال الرائعة
وشكرا الى كل المشاركين في هذه المناقشه المفيده
ممكن ياسيد BADRMEDIA واخواننا المشاركين أن تبينوا كيف عمل صفحة لعرض و معالجة
المشاركات والردود بواسطة grid view
علي شكل دروس مثل منتدى فيجول بيسك اوابسط
بقاعدة الاكسس او اس كيو ال او بالاثنين معا لفائدة الجميع او كما يتوفر لديكم
مششششكور ين
لتواصل ...........
ahmedmohammednet@hotmail.com
سلامي وتحياتي للجميع

[mustafa_VB2008]

الـــــــــــــــــــــــــ شكر ــــــــــــــــــــــــــــف

[mustafa_VB2008]

الاخوة الاعزاء
السلام عليكم

الرمز PHP:

 Private Sub DataGridView_CellValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles DataGridView.CellValidating

        If DataGridView2.IsCurrentCellDirty Then
            If e.FormattedValue = String.Empty Then
                e.Cancel = True
            End If
       End If 


انا جربت هذا الكود فهو يجعل كل الخلايا في الداتا كرد لا تقبل قيمة فارغة
لذا انا بدلته بالكودج التالي وحددت خلايا عمود معين

الرمز PHP:

Private Sub GrouptableDataGridView_CellValidating(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellValidatingEventArgs) Handles GrouptableDataGridView.CellValidating
        If GrouptableDataGridView.CurrentRow.Cells(2).IsInEditMode Then
            If e.FormattedValue = String.Empty Then
                e.Cancel = True
            End If
        End If
    End Sub 


ولكن المشكله هي عندما تكون خلية جديدة هذا الكود لا يعمل ويضهر لي خطأ لان ال Dataset لا تقبل القيمة فارغة في هذا العمود

ويضهر لي الخصأ كما في الصورة

ارجوا منكم ايضاح ذلك
مع الشكر
السلام عليكم

[المتفائل2012]

أضم صوتي للأخ حيث تواجهني مشكلة في طريقة الاضافة datagridview
و قد تستغربوا إن قلت ان المئات من المبتدئين أمثالي يتفسروا عن هذه النقطة

المشاركة الأصلية بواسطة al-hasmi

السلام عليكم ورحمة الله وبركاته

الأخ المكرم / BADRMEDIA صاحب الموضوع المهم والأهم في إستخدامات قواعد البيانات في فيجوال بيسيك والدليل تثبيت موضوعك وهو يستحق هذا ..

لو لاحظت أخي الكريم أكثر المشاركات تدور على محورين تقريباً ... ولم تجب على أي منها مع أهميتها

1- طريقة الإضافة والحذف والتعديل في الداتا جريد وحفظ هذا في الجدول المراد
2-طريقة وضع العمليات الحسابية في الداتا جريد .. مثال ( عمود المجموع = عمود السعر * عمود الكمية) .

سأضيف محور ثالث من عندياتي واراه لايقل أهمية

3- طريقة التعامل مع عمود حددنا خاصيته ككمبوبوكس يستقي بياناته من جدول .. ولا أظنها نفس طريقة الإسناد العادية
[left]
Me.ComboBox1.DataSource = DataSet1
Me.ComboBox1.DisplayMember = "table.name"[/LEFT ]
فما هي طريقة ملء قائمة الكومبوبكس داخل الداتاجريد من جدول ما ؟

هذه المحاور المهمة لاتغفل وقد ذكر موضوع الداتاجريد وتلميحاتها .
وياحبذا إن لم يكن الأخ موجوداً .. أن يتفضل أحد الخبراء بشرح ماغم علينا حول هذه المحاور الثلاث.

[م. هتان]

جزاك الله خيرا اخي الكريم

[عاشق فلسطين]

اخي ممكن مساعدة انا عايز اعرف كيف اظهر المعلومات المضافة للغرد فيو مباشرة بعد الضغط على زر اضافة(المشكلة الي عندي اني لما اعمل اضافة بضيف وبقولي تمت عملية الاضافة بنجاح لكن الاضافة ما بتظهر مباشرة على الغرد الا اذا خرجت من البرنامج واعدت تشغيلو بيظهر الصف الي ضفتو )*

[Okey]

السلام عليكم

مشكور اخي على الموضوع المذهل فعلا

ويت ليت تعطيني الفكرة حول إذا كان عندي جدولين في قاعدة البيانات _ مثل جدول البيانات الاساسية وجدول التفاصيل _ واريد عرض الجدولين بالداتا قريد على هيئة شجرة _ يعني الموظف رقم 1 يكون بجانبة علامة الزائد للضغط عليها لاظهار التفاصيل كاملة ..

اتمنى وصلت المعلومة

تحياتي

[BADRMEDIA]

الأخوة الكرام إن شاء الرحمن ننهي الأجوبة علي أسئلتكم ، مع مراعاة البحث من قبلكم وقراءة الموضوع جيداً لأسئلة موجودة إجابتها فعلاً


الأخ المكرم / Okey

الإجابة علي سؤالك هنا

معلومة ::: Relations DataBase In DataSet

http://vb4arab.com/vb/showthread.php...hlight=dataset



.

[عاشق فلسطين]

شكر كبير جدا للعضو الاستاذ على كود الداتا غريد لانو عن جد حل مشكلة كبيرة كنت اعاني منها والله يوفقك لعمل الخير ويكثر من امثالك
وشكر لباقي الاعضاء المتميزين والله يعطيكو الف الف الف عافية
اخوكم العضو عاشق فلسطين

[programmer2009]

المشاركة الأصلية بواسطة BADRMEDIA

تلميحة سريعة عن ارسال زر مكان أخر

فى DataGrid كان زر Tab هو زر التصفح فى الخلايا وفى DataGridView الأسهم للتصفح

ماذا لو أردت أن تجعل المستخدم يضغط زر الادخال Enter للتصفح بدل الأسهم

فى حدث


KeyDown

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

        If e.KeyCode = Keys.Enter Then

                e.SuppressKeyPress = True
                SendKeys.Send("{Right}")

       
            End If

عندما يرسل المستخدم زر الادخال نستدعى اجرائية الزر Right

لقد طبقت الكود لكنه عند الضغط على enter
ينتقل الى الخليه السفلى !!

[BADRMEDIA]

المكرم / programmer2009


إجابة السؤال في الموضوع ، عن كل

تعامل مع الحدث KeyDow في حالة الضغط علي الزر Enter يرسلك للخلية التالية ( Left )

الرمز PHP:

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

        If e.KeyCode = Keys.Enter Then
                e.SuppressKeyPress = True
                SendKeys.Send("{Left}")
           
        End If
       
    End Sub 


.

[Okey]

بصراحة اخي جرب الكود لكن ما ضبط معاي وحاولت فيه لكن للاسف لم يعمل بتاتا

اتمنى انك تشوفلنا مثال بسيط على الاقل

وتحياتي لك

[programmer2009]

المشاركة الأصلية بواسطة BADRMEDIA

المكرم / programmer2009


إجابة السؤال في الموضوع ، عن كل

تعامل مع الحدث KeyDow في حالة الضغط علي الزر Enter يرسلك للخلية التالية ( Left )

الرمز PHP:

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

        If e.KeyCode = Keys.Enter Then
                e.SuppressKeyPress = True
                SendKeys.Send("{Left}")
           
        End If
       
    End Sub 


.

أخى الكريم
لقد جربت الكود ايضا لكنه ايضا ينتقل الى الخانه السفلي

[شيح الاسلام]

الله عليك مشكورجدا

[programmer2009]

لقد بحثت كثيرا ووجدت هذا الكود وقد عمل معى تماما لذا احببت أن أضعه لكم
أتمنى من أحد المحترفين أن يشرح msg.WParam ماذا تعنى ؟؟
ولكم جزيل الشكر

[

الرمز PHP:

Public Class Form3
    Inherits System.Windows.Forms.Form
    '_______________________________________
    Protected Overrides Function ProcessCmdKey(ByRef msg As Message, _
     ByVal keyData As Keys) As Boolean
        If msg.WParam().ToInt32 = 13 Then 'or keys.Enter
            SendKeys.Send("{TAB}")
            Return True
        End If
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function 


[عاشق فلسطين]

مشكور اخ baderعلى المعلومات القيمة بس بدي توضيح كيف الون السطر في الغرد فيو عندما اعمل بحث اواضافة مثلا عندما اعمل بحث اريد ان يظهر السطر الذي بحثت عنو بلون وكذلك الاضافة انو يعرضلي السطر المضاف بلون احمر مثلا
ارجو المساعدة اخوكم عاشق فلسطين

[programmer2009]

هذا الكود لتلوين الخليه

الرمز PHP:

DataGridView1.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = Color.Red 


وهذا لتلوين السطر بأكمله

الرمز PHP:

DataGridView1.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.Red 


'