[ali_ahmed12]

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

[Taha Okla]

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


عندما تكون أداة مربوطة بقاعدة بيانات أو جداول أخرى، تفقد السيطرة عليها بكثير من الأكواد
فتكون هي تحت تصرف تلك الجداول التي تغذيها بالبيانات وليست المشكلة أن تكون موجودة على هذه النافذة أو تلك..

[ali_ahmed12]

(12-10-22, 01:39 PM)Taha Okla كتب : وعليكم السلام ورحمة الله وبركاته


عندما تكون أداة مربوطة بقاعدة بيانات أو جداول أخرى، تفقد السيطرة عليها بكثير من الأكواد
فتكون هي تحت تصرف تلك الجداول التي تغذيها بالبيانات وليست المشكلة أن تكون موجودة على هذه النافذة أو تلك..

ماالحل اذا ...............

[asemshahen5]

الحل تعريف متغيرات في موديول عام ثم تعبءها من الفورم الاول و تعرض النتيجة من المتغيرات الى الادوات في الفورم الثاني .

[رضوان الجماعي]

عصام عاجزين عن شكرك

[ali_ahmed12]

(13-10-22, 11:02 AM)رضوان الجماعي كتب : عصام عاجزين عن شكرك

ممكن توضيح حل مشكلة إضافة من فورم اخري لفورم

[Taha Okla]

ممكن ترفق الكود الذي يدخل البيانات في الداتا جريد
حتى نقف على المشكلة وم ثم نحدد الكائن المسؤول عن إدخال البيانات عليه.

المعنى : 
أن تقوم بإدخال البيانات على الكائن المسؤول عن الداتا جريد وليس الداتا نفسها..
لأن الداتا صورة عن الكائن(وتابع له في كل ما يكون عليه) لا أكثر.. 

[ali_ahmed12]

(13-10-22, 07:20 PM)Taha Okla كتب : ممكن ترفق الكود الذي يدخل البيانات في الداتا جريد
حتى نقف على المشكلة وم ثم نحدد الكائن المسؤول عن إدخال البيانات عليه.

المعنى : 
أن تقوم بإدخال البيانات على الكائن المسؤول عن الداتا جريد وليس الداتا نفسها..
لأن الداتا صورة عن الكائن(وتابع له في كل ما يكون عليه) لا أكثر.. 

كود :

 '============ ادراج الاصناف المتعددة في شاشة المشتريات =================
       If DataGridView1(0, DataGridView1.CurrentRow.Index).Selected = True Then
           For I = 0 To BUYBILL.DataGridView1.Rows.Count - 1
               If BUYBILL.DataGridView1.Rows(I).Cells(0).Value = DataGridView1.CurrentRow.Cells(1).Value Then
                   BUYBILL.DataGridView1.Rows(I).Cells(4).Value += 1
                   ' MessageBox.Show("تم إدراج الصناف مسبقا", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
                   BUYBILL.CALC()
                   Exit Sub

               End If

           Next
           Dim CODE_ As Integer
           CODE_ = BUYBILL.DataGridView1.Rows.Count - 1

           '==== الاضافة =====
           BUYBILL.DataGridView1.Rows.Add()

           BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(0).Value = DataGridView1.CurrentRow.Cells(1).Value
           BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(1).Value = DataGridView1.CurrentRow.Cells(2).Value
           BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(2).Value = DataGridView1.CurrentRow.Cells(4).Value
           BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(3).Value = DataGridView1.CurrentRow.Cells(5).Value
           BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(7).Value = DataGridView1.CurrentRow.Cells(6).Value

           BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(4).Value = 1
           BUYBILL.CALC()
       End If

[Taha Okla]

المطلوب ::
الكود الذي أدخل البيانات الأولى في الداتا جريد وليس كودك في النافذة الثانية.

[ali_ahmed12]

(13-10-22, 07:46 PM)Taha Okla كتب : المطلوب ::
الكود الذي أدخل البيانات الأولى في الداتا جريد وليس كودك في النافذة الثانية.

كود :

'====الادخال قيود
       If IMPORTERNAME.SelectedIndex < 0 Then
           MessageBox.Show("يرجي ادخال اسم المورد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           IMPORTERNAME.Select()
           Exit Sub
       End If
       If BUYTYPE.SelectedIndex < 0 Then
           MessageBox.Show("يرجي اختيار نوع الفاتورة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           BUYTYPE.Select()
           Exit Sub
       End If
       If DataGridView1.Rows.Count = 0 Then
           MessageBox.Show("لاتوجد اصناف لحفظها", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
       '====================حفظ راس فاتورة===============
       Dim DT As New DataTable
       Dim DA As New SqlDataAdapter("select *from buybill where buycode='" & BUYCODE.Text & "'", sqlcon)
       DA.Fill(DT)
       If DT.Rows.Count > 0 Then
           BUYCODE.Text = CODE_GENE("BUYBILL", "ID") + 1
       Else
           Dim DR = DT.NewRow
           DR!buycode = BUYCODE.Text
           DR!buytype = BUYTYPE.Text
           DR!importername = IMPORTERNAME.Text
           DR!notes = NOTES.Text
           DR!buydate = BUYDATE.Value
           DR!total = Convert.ToDecimal(TOTAL.Text)
           DR!discound = Convert.ToDecimal(DISCOUND.Text)
           DR!totalarabic = TOTALARABIC.Text
           DR!totalqty = Val(TOTALQTY.Text)
           DR!buyuser = BUYUSER.Text
           DT.Rows.Add(DR)
           Dim SAVE As New SqlCommandBuilder(DA)
           DA.Update(DT)
           MessageBox.Show("تم حفظ عملية حفظ فاتورة المشتريات بنجاح", "رسالة تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)


       End If

انا احضر دورة اخ ملهم الصويعي هنا وصلت في دقيقة 23

كود :

https://www.youtube.com/watch?v=c8akL1T36qE&list=PLEwx6T1ZoWiWbRT1OJgORHFydHIdBzV-l&index=8