12-10-22, 12:42 PM
الصفحات : 1 2
12-10-22, 01:39 PM
وعليكم السلام ورحمة الله وبركاته
عندما تكون أداة مربوطة بقاعدة بيانات أو جداول أخرى، تفقد السيطرة عليها بكثير من الأكواد
فتكون هي تحت تصرف تلك الجداول التي تغذيها بالبيانات وليست المشكلة أن تكون موجودة على هذه النافذة أو تلك..
عندما تكون أداة مربوطة بقاعدة بيانات أو جداول أخرى، تفقد السيطرة عليها بكثير من الأكواد
فتكون هي تحت تصرف تلك الجداول التي تغذيها بالبيانات وليست المشكلة أن تكون موجودة على هذه النافذة أو تلك..
12-10-22, 01:49 PM
(12-10-22, 01:39 PM)Taha Okla كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
عندما تكون أداة مربوطة بقاعدة بيانات أو جداول أخرى، تفقد السيطرة عليها بكثير من الأكواد
فتكون هي تحت تصرف تلك الجداول التي تغذيها بالبيانات وليست المشكلة أن تكون موجودة على هذه النافذة أو تلك..
ماالحل اذا ...............
12-10-22, 09:15 PM
الحل تعريف متغيرات في موديول عام ثم تعبءها من الفورم الاول و تعرض النتيجة من المتغيرات الى الادوات في الفورم الثاني .
13-10-22, 11:02 AM
عصام عاجزين عن شكرك
13-10-22, 02:36 PM
(13-10-22, 11:02 AM)رضوان الجماعي كتب : [ -> ]عصام عاجزين عن شكرك
ممكن توضيح حل مشكلة إضافة من فورم اخري لفورم
13-10-22, 07:20 PM
ممكن ترفق الكود الذي يدخل البيانات في الداتا جريد
حتى نقف على المشكلة وم ثم نحدد الكائن المسؤول عن إدخال البيانات عليه.
المعنى :
أن تقوم بإدخال البيانات على الكائن المسؤول عن الداتا جريد وليس الداتا نفسها..
لأن الداتا صورة عن الكائن(وتابع له في كل ما يكون عليه) لا أكثر..
حتى نقف على المشكلة وم ثم نحدد الكائن المسؤول عن إدخال البيانات عليه.
المعنى :
أن تقوم بإدخال البيانات على الكائن المسؤول عن الداتا جريد وليس الداتا نفسها..
لأن الداتا صورة عن الكائن(وتابع له في كل ما يكون عليه) لا أكثر..
13-10-22, 07:42 PM
(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 If13-10-22, 07:46 PM
المطلوب ::
الكود الذي أدخل البيانات الأولى في الداتا جريد وليس كودك في النافذة الثانية.
الكود الذي أدخل البيانات الأولى في الداتا جريد وليس كودك في النافذة الثانية.
13-10-22, 07:54 PM
(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كود :
https://www.youtube.com/watch?v=c8akL1T36qE&list=PLEwx6T1ZoWiWbRT1OJgORHFydHIdBzV-l&index=8الصفحات : 1 2