منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

استفسار
بالنسبة للدرس 23 الدرس الثالث والعشرين : استخراج كمية الأصناف
لو انه الصنف فيه وارد وصادر ولكن لايوجد مسترجع لماذا لايظهر في الكميات

يعني لو الصنف رقم1 ورد منه 100 قطعة وبعت منه 20 قطعه ولم يتم ترجيع اي قطعه ، لماذا لايظهر في شاشة كمية الأصناف

الكميات قمنا بإلغائها في شاشة الاصناف

السلام عليكم

لماذا لا تظهر عندي بيانات الاصناف في SQL SERVER وايضا في الفيجول ستوديو لا تمتلئ الجدوال بالقيم

بحثث في قوقل لعلي اجد سبب للمشكله ولكن لم اجد ؟

كود :

Public Class ITEMS_KEMEYAT

    Sub DETA()

        Dim DT As New DataTable

        Dim DA As New SqlClient.SqlDataAdapter("SELECT  TOP (100) PERCENT dbo.BUY_DET.ITEMNAME AS [اسم الصنف], SUM(DISTINCT dbo.BUY_DET.QTY) AS وارد, SUM(DISTINCT dbo.SALE_DET.QTY) AS صادر, SUM(DISTINCT dbo.REBUY_DET.QTY) AS [م.مشتريات], SUM(DISTINCT dbo.ReSale_Det.QTY) AS [م.مبيعات], dbo.BUY_DET.PRICE AS التكلفة, dbo.SALE_DET.PRICE AS البيع FROM   dbo.BUY_DET INNER JOIN dbo.SALE_DET ON dbo.BUY_DET.ITEMCODE = dbo.SALE_DET.ITEMCODE INNER JOIN dbo.REBUY_DET ON dbo.SALE_DET.ITEMCODE = dbo.REBUY_DET.ITEMCODE INNER JOIN dbo.ReSale_Det ON dbo.REBUY_DET.ITEMCODE = dbo.ReSale_Det.ITEMCODE GROUP BY dbo.BUY_DET.ITEMNAME, dbo.BUY_DET.PRICE, dbo.SALE_DET.PRICE ORDER BY [اسم الصنف]", SqlConn)

        DA.Fill(DT)

        DataGridView1.DataSource = DT

    End Sub

    Private Sub ITEMS_KEMEYAT_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        DETA()

    End Sub

End Class

اخى المبرمج الجديد

تاكد من الربط من الجداول

وان القيمة المرتبطة ببعط

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

تحياتى لك

وتمنياتى لك التوفيق

(15-07-18, 01:56 AM)elgokr كتب : [ -> ]
اخى المبرمج الجديد

تاكد من الربط من الجداول

وان القيمة المرتبطة ببعط

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

تحياتى لك

وتمنياتى لك التوفيق

شكرا لك اخي الكريم علي الرد والمساعدة

لقد قمت بربط الجدوال وقمت بتكرار الربط اكثر من مرة
انا استعمل SQL SERVER 2017 هل من الممكن ان تكون المشكله من ال SQL نفسه ؟؟

(15-07-18, 02:56 AM)المبرمج الجديد كتب : [ -> ]
(15-07-18, 01:56 AM)elgokr كتب : [ -> ]
اخى المبرمج الجديد

تاكد من الربط من الجداول

وان القيمة المرتبطة ببعط

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

تحياتى لك

وتمنياتى لك التوفيق

شكرا لك اخي الكريم علي الرد والمساعدة

لقد قمت بربط الجدوال وقمت بتكرار الربط اكثر من مرة
انا استعمل SQL SERVER 2017 هل من الممكن ان تكون المشكله من ال SQL نفسه ؟؟

نفس القصه عندي ، تبي الاصناف تظهر اعمل الاتي/
قم بجلع الصنف وارد
قم بيع كمية من الصنف
ثم قم بترجيع كمية في المشتريات
وقم كذللك بترجيع كمية في المبيعات ،
وبعد ذلك سوف تطهر الاصناف ، طبعا مش كل الاصناف تظهر ، فقط التي تم عليها الحركة من وارد وصادر ومسترجع مبيعات ومسترجع مشتريات

(15-07-18, 01:29 PM)hesham77a كتب : [ -> ]نفس القصه عندي ، تبي الاصناف تظهر اعمل الاتي/
قم بجلع الصنف وارد
قم بيع كمية من الصنف
ثم قم بترجيع كمية في المشتريات
وقم كذللك بترجيع كمية في المبيعات ،
وبعد ذلك سوف تطهر الاصناف ، طبعا مش كل الاصناف تظهر ، فقط التي تم عليها الحركة من وارد وصادر ومسترجع مبيعات ومسترجع مشتريات

شكرا علي ردك اخي الكريم

ممكن توضحلي لاني لم افهم اين اجعل الاصناف وارد؟

(15-07-18, 01:45 PM)المبرمج الجديد كتب : [ -> ]
(15-07-18, 01:29 PM)hesham77a كتب : [ -> ]نفس القصه عندي ، تبي الاصناف تظهر اعمل الاتي/
قم بجلع الصنف وارد
قم بيع كمية من الصنف
ثم قم بترجيع كمية في المشتريات
وقم كذللك بترجيع كمية في المبيعات ،
وبعد ذلك سوف تطهر الاصناف ، طبعا مش كل الاصناف تظهر ، فقط التي تم عليها الحركة من وارد وصادر ومسترجع مبيعات ومسترجع مشتريات
شكرا علي ردك اخي الكريم

ممكن توضحلي لاني لم افهم اين اجعل الاصناف وارد؟

تمام خد معاي خطوة خطوة:
1- ادخل لشاشة المشتريات وقم بشراء اصناف وركز علي اسم الاصناف لانك بتستعملهم بعد شوي
2- ادخل لشاشة المبيعات وقم ببيع كمية بسيطة من الاصناف السابقة .
3- ادخل لشاشة استرجاع مبيعات ورجع كمية بسيطة من نفس الاصناف السابقة.
4-ادخل لشاشة استرجاع مشتريات ورجع كمية بسيطة من نفس الاصناف السابقة.
5- الان تاكد من كمية الاصناف تجدها ظهرت ولكن ليس كل الاصناف

ارجو من الاخ ملهم ان يتأكدي من هذا الموضوع ايضا ، لان الاصناف لن تظهر كلها.

(11-07-18, 11:50 PM)atef_020 كتب : [ -> ]
(10-07-18, 09:52 PM)ملهمـ كتب : [ -> ]
(10-07-18, 06:02 PM)atef_020 كتب : [ -> ]
(10-07-18, 12:51 PM)atef_020 كتب : [ -> ]اخى ملهم عندى مشكلة انى لما استدعى الفاتورة من البحث لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها مع العلم انى استخدم dataset واستخدم access 2007 وقمت بالعمل مثلما ما شرحت فى البرنامج مع تغيير فى اسماء قاعدة البيانات

لم ترد اخى ملهم على سوالى

ضع الكود أخي الكريم

دا الكود اخى الكريم
مش عارف استدعى الفاتورة من البحث لا تظهر فى شاشة المشتريات لا راس الفاتورة ولا تفاصيلها

PHP كود :

Sub SHOW_DETAILES(ByVal CODE_ As String) '=========== ربط رأس الفاتورة ============= Dim DT As New DataTable Dim DA As New OleDb.OleDbDataAdapter("SELECT * FROM SEL_HED WHERE BUYCODE = val('" & CODE_ & "')", con) DA.Fill(DT) If DT.Rows.Count = 0 Then MessageBox.Show("يرجى التأكد من رقم الفاتورة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error) Else Dim DR = DT.Rows(0) TXTID.Text = DR!BUYCODE BUYTYPE.Text = DR!BUYTYPE TXTN_SUPL.Text = DR!SUPL DateTimePicker1.Value = DR!SEL_DATE TXTMan.Text = DR!SEL_MAN NOTES.Text = DR!NOTES TXT_TOTLA2.Text = DR!TOTAL TXTINVO.Text = DR!ID_INVO Quant.Text = DR!Total_QNT Dim DS As New DataSet '=========== ربط تفاصيل الفاتورة ============= DA = New OleDb.OleDbDataAdapter("SELECT * FROM Sell_Detl WHERE BUYCODE = val('" & CODE_ & "')", con) DS = New DataSet DA.Fill(DS) DT = DS.Tables(0) For I = 0 To DT.Rows.Count - 1 dgv.Rows.Add() dgv.Rows(I).Cells(0).Value = DT.Rows(I).Item("code") dgv.Rows(I).Cells(1).Value = DT.Rows(I).Item("name") dgv.Rows(I).Cells(2).Value = DT.Rows(I).Item("price") dgv.Rows(I).Cells(3).Value = DT.Rows(I).Item("UNIT") dgv.Rows(I).Cells(4).Value = DT.Rows(I).Item("QTY") dgv.Rows(I).Cells(5).Value = DT.Rows(I).Item("Cost_Unit") dgv.Rows(I).Cells(6).Value = DT.Rows(I).Item("Total") dgv.Rows(I).Cells(7).Value = DT.Rows(I).Item("DS") dgv.Rows(I).Cells(8).Value = DT.Rows(I).Item("Tax") dgv.Rows(I).Cells(9).Value = DT.Rows(I).Item("Stock") Next BUTTDELETE.Enabled = True BUTTSAVE.Enabled = False End If End Sub

(13-07-18, 07:16 AM)ملهمـ كتب : [ -> ]

كود :

val('" & CODE_ & "')"
النوع نص وليس عدد صحيح
قم بالتعديل إلى :

كود :

'" & CODE_ & "'

اخى انا استخدمت هذه الطريقة من قبل '" & CODE_ & "' ولم تنجح معى اريد طريقة استدعاء الفاتورة الى شاشة المشترتات

السلام عليكم اخى الكريم ملهم

انا اذا قمت بكتابة '" & CODE_ & "' بهذه الطريقة فتظهر هذه الرسالة

Data type mismatch in criteria expression.

[attachment=18845]

واذا قمت بكتابة " & CODE_ & " بدون علامتى التنصيص

تظهر هذه الرسالة

Rows cannot be programmatically added to the DataGridView's rows collection when the control is data-bound.

[attachment=18844]

ولا تظهر لا راس الفاتورة ولا تفاصيلها كما فى الصورة

[attachment=18842]

ارجو المساعدة فى حل المشكلة

الحمد لله تم حل المشكله ومعرفة الخطاء بمساعدة الاخ المحترم الجوكر