+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف احصل على اخر سعر بيع لمنتج (/showthread.php?tid=34867)
الصفحات:
1
2
كيف احصل على اخر سعر بيع لمنتج - ahmedramzyaish - 21-05-20
كيف احصل على اخر سعر بيع لمنتج تم بيعه لعميل معين
مثلا تم بيع صنف 1 بمبلغ 20 ج فى فاتورة رقم 100
عند انشاء فاتورة جديدة لنفس العميل واختيار اسمة واختيار نفس الصنف يظهر عندى فى تكست بوكس اخر سعر تم بيع المنتج لة وهو 20ج
RE: كيف احصل على اخر سعر بيع لمنتج - DR.YASER - 21-05-20
السلام عليكم أخى ahmedramzyaish
الفكرة العامة للرد على تساؤلك هو (( LastRecord )) و باستخدام Where لـ كود العميل و المنتج
.. الموضوع ان شاء الله بسيط .. فقط ابدأ و لو وقف معك شئ ضعه هنا و نتابع معك
RE: كيف احصل على اخر سعر بيع لمنتج - ahmedramzyaish - 21-05-20
(21-05-20, 02:59 AM)DR.YASER كتب : السلام عليكم أخى ahmedramzyaish
الفكرة العامة للرد على تساؤلك هو (( LastRecord )) و باستخدام Where لـ كود العميل و المنتج
.. الموضوع ان شاء الله بسيط .. فقط ابدأ و لو وقف معك شئ ضعه هنا و نتابع معك
كود :
select Inv_Sub .exchange_price from Inv ,Inv_Sub where cust_id =185 and Inv_Sub.currency_from =500 and Inv_Sub .proc_id =81exchange_price ده السعر المطلوب يظهر
cust_id رقم العميل
currency_from رقم الصنف
Inv_Sub .proc رقم الحركة
بس مش عارف
(21-05-20, 03:18 AM)ahmedramzyaish كتب :(21-05-20, 02:59 AM)DR.YASER كتب : السلام عليكم أخى ahmedramzyaish
الفكرة العامة للرد على تساؤلك هو (( LastRecord )) و باستخدام Where لـ كود العميل و المنتج
.. الموضوع ان شاء الله بسيط .. فقط ابدأ و لو وقف معك شئ ضعه هنا و نتابع معك
انا كنت بجرب فى السيكولكود :
select Inv_Sub .exchange_price from Inv ,Inv_Sub where cust_id =185 and Inv_Sub.currency_from =500 and Inv_Sub .proc_id =81
exchange_price ده السعر المطلوب يظهر
cust_id رقم العميل
currency_from رقم الصنف
Inv_Sub .proc رقم الحركة
بس مش عارف
ارجوك لو ممكن تكتب لى الجملة الخاصة ب LastRecord بالمعطيات واسماء الجداول لان الموضوع مهم جدا لى
RE: كيف احصل على اخر سعر بيع لمنتج - DR.YASER - 21-05-20
حاااضر أخى ahmedramzyaish
كود :
cm.CommandText = "SELECT * FROM TABLE ORDER BY XX descو ممكن تضيف شرط باستخدام where .. و يفضل أن يكون XX حقل مسلسل و مفتاح أساسى ... لو وضعت كود و محتاج تكمل بس بلغنى هنا و كلنا معاك لا تقلق
RE: كيف احصل على اخر سعر بيع لمنتج - ahmedramzyaish - 21-05-20
PHP كود :
Dim da As New SqlDataAdapter("select exchange_price from Inv_Sub where currency_from=500 order by id desc ", conn)
Dim dt As New DataTable
da.Fill(dt)
TextBox4.Text = ('dt')
فى مشكلة
فى cm.CommandText مش عارف اضفها
مع العلم ان خبرتى ضعيفة
اشكرك جدااا اخى الكريم
RE: كيف احصل على اخر سعر بيع لمنتج - DR.YASER - 21-05-20
(21-05-20, 05:01 AM)ahmedramzyaish كتب :و لا يهمك .. ضع الكود هنا ... نشغله و نصحح المشكلة ان شاء اللهPHP كود :
Dim da As New SqlDataAdapter("select exchange_price from Inv_Sub where currency_from=500 order by id desc ", conn)
Dim dt As New DataTable
da.Fill(dt)
TextBox4.Text = ('dt')
فى مشكلة
فى cm.CommandText مش عارف اضفها
مع العلم ان خبرتى ضعيفة
اشكرك جدااا اخى الكريم
RE: كيف احصل على اخر سعر بيع لمنتج - ahmedramzyaish - 21-05-20
(21-05-20, 05:03 AM)DR.YASER كتب :(21-05-20, 05:01 AM)ahmedramzyaish كتب :و لا يهمك .. ضع الكود هنا ... نشغله و نصحح المشكلة ان شاء اللهPHP كود :
Dim da As New SqlDataAdapter("select exchange_price from Inv_Sub where currency_from=500 order by id desc ", conn)
Dim dt As New DataTable
da.Fill(dt)
TextBox4.Text = ('dt')
فى مشكلة
فى cm.CommandText مش عارف اضفها
مع العلم ان خبرتى ضعيفة
اشكرك جدااا اخى الكريم
هذا هو الكمود
انا كل الى محتاجة تكست بوكس
لما اختار اسم العميل والصنف يظهر بة اخر سعر تم بيع الصنفة لة بة
هى جملة بسيطة لاكن صعبة على فى التنفيذ
لو ممكن تكتبها وانا اغير اسماء الحقول
وشكراا جدا على تعبك
RE: كيف احصل على اخر سعر بيع لمنتج - عبد العزيز البسكري - 21-05-20
إضافة لما طرحه أخي الكريم ياسر بارك الله فيه و له
أظن و إذا كان فهمي صحيح للسؤال .. من الأفضل عدم التقيّد بسعلر معيّن بجملة الإستعلام
بدلا من كتابة Where Currency = 500
قد يتغير السعر في اليوم ربما لمرات عديدة
و لذلك من الأحسن إسناد السعر 500 إلى متغير عام
تحياتي
RE: كيف احصل على اخر سعر بيع لمنتج - ahmedramzyaish - 21-05-20
(21-05-20, 05:13 AM)عبد العزيز البسكري كتب :إضافة لما طرحه أخي الكريم ياسر بارك الله فيه و لهأظن و إذا كان فهمي صحيح للسؤال .. من الأفضل عدم التقيّد بسعلر معيّن بجملة الإستعلامبدلا من كتابة Where Currency = 500قد يتغير السعر في اليوم ربما لمرات عديدةو لذلك من الأحسن إسناد السعر 500 إلى متغير عامتحياتي
نعم اكيد ولكن اجرب الكود
PHP كود :
Private Sub Button2_Click_3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
cm.CommandText = ("select exchange_price from Inv_Sub where currency_from=500 order by id desc ", conn)
'Dim da As New SqlDataAdapter("select exchange_price from Inv_Sub where currency_from=500 order by id desc ", conn)
'Dim dt As New DataTable
'da.Fill(dt)
'TextBox4.Text = ('dt')
End Sub
RE: كيف احصل على اخر سعر بيع لمنتج - DR.YASER - 21-05-20
(21-05-20, 05:13 AM)عبد العزيز البسكري كتب :إضافة لما طرحه أخي الكريم ياسر بارك الله فيه و لهأظن و إذا كان فهمي صحيح للسؤال .. من الأفضل عدم التقيّد بسعلر معيّن بجملة الإستعلامبدلا من كتابة Where Currency = 500قد يتغير السعر في اليوم ربما لمرات عديدةو لذلك من الأحسن إسناد السعر 500 إلى متغير عامتحياتي
أستاذنا الفاضل و أخى العزيز : عبد العزيز البسكري
فعلا ما تقوله هو رأى الخبراء .. لأن البيانات المتداولة داخل قواعد البيانات لا تحظى بثبات القيمة مطلقا