تعبئة بيانات تلقائي بمجرد ادخال الرقم

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

أخي الأفضل ترفق مثال وابشر بالخير

والسبب لا اعلم ما هي طريقتك بالاتصال بالداتا بيز هل بالكود او بالمعالج

ارفق مثالك اعدله لك .. بالتوفيق للجميع

codenew كتب:

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

أخي الأفضل ترفق مثال وابشر بالخير

والسبب لا اعلم ما هي طريقتك بالاتصال بالداتا بيز هل بالكود او بالمعالج

ارفق مثالك اعدله لك .. بالتوفيق للجميع

مع المرفقات المثال

test.zip

أخي سمير

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

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

فستجد الإجابة فوراً لأن جميع المبرمجين يشتغلون بالكود

...... بالتوفيق

codenew كتب:

أخي سمير

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

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

فستجد الإجابة فوراً لأن جميع المبرمجين يشتغلون بالكود

...... بالتوفيق

أشكر لك تعاونك وجزاك الله خير الجزاء...

ولكن أنا تقريباً وصلت لنصف الحل وأحاول أن أكمل النصف الآخر ... حيث أنني توصلت لهذا الكود:

        Dim aa As DataSet

        Dim ItemID As String = Convert.ToString(CodesDataGridView.Rows(e.RowIndex).Cells("nu").Value)

        Select Case ItemID
            Case 1
                CodesDataGridView.Rows(e.RowIndex).Cells("code").Value = aa.Tables("codes").Rows(e.RowIndex).Item("code")

                Exit Select
            Case 2
                CodesDataGridView.Rows(e.RowIndex).Cells("arabic").Value = aa.Tables("codes").Rows(e.RowIndex).Item("arabic")
                Exit Select

        End Select

مرحبا من جديد

في حدث CellEndEdit للداتا قريد

 Private Sub DetailDataGridView_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DetailDataGridView.CellEndEdit

        DetailDataGridView.Rows(e.RowIndex).Cells(2).Value = Database11DataSet.Tables("detail").Select("nu= " & DetailDataGridView.Rows(e.RowIndex).Cells(1).Value & " ")(0)(2).ToString()
        DetailDataGridView.Rows(e.RowIndex).Cells(3).Value = Database11DataSet.Tables("detail").Select("nu= " & DetailDataGridView.Rows(e.RowIndex).Cells(1).Value & " ")(0)(3).ToString()

    End Sub

أشكرك أخي جزيل الشكر، علماً أن الكود الذي وضعته كالتالي:

    Private Sub CodesDataGridView_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles CodesDataGridView.CellEndEdit
        CodesDataGridView.Rows(e.RowIndex).Cells("code").Value = Database9DataSet.Tables("codes").Select("nu='" & CodesDataGridView.Rows(e.RowIndex).Cells("nu").Value & "'")(0)("code").ToString()
        CodesDataGridView.Rows(e.RowIndex).Cells("arabic").Value = Database9DataSet.Tables("codes").Select("nu='" & CodesDataGridView.Rows(e.RowIndex).Cells("nu").Value & "'")(0)("arabic").ToString()

    End Sub

أي في الفقرة

"nu= "

لم تعمل فقمت بتغييرها إلى

"nu='"

وفقك الله لما تحبه وترضاه

يعني تعمل أو لا ما فهمت عليك أخي