+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : انا عندي مشكله ممكن المساعده اريد كود يجلب لي اخر id (/showthread.php?tid=37324)
انا عندي مشكله ممكن المساعده اريد كود يجلب لي اخر id - moahmed.abdelmohsen - 29-12-20
السلام عليكم ورحمة الله تعالى
انا عندي مشكله
ممكن المساعده
انا عندي جدولين الجدول الاول جدول اجمالي فاتورة الشراء
والجدول الثاني جدول تفاصيل الشراء
انا اريد عند الحفظ في جدوال اجمالي الشراء يتم الرجوع بقيمة ID. التي تم حفظها في جدول الشراء لحفظها في جدول تفصيل الفاتور علما بان حقل ID. ترقيم تلقائي وقاعده البيانات سيكوال سيرفر علما باني قمت بجلب اعلي قيمه في جدول الشراء بدالة Max ولم تنفع
وانا اريد ذلك حتي يتمكن اكثر من جهاز العمل علي البرنامج و ادخال فاتوره في نفس الوقت
ارجو لو كان هناك كود لذلك يرجي اضافتة وشكرا لكم جميعا
ارجو لو كان هناك كود لذلك يرجي اضافتة وشكرا لكم جميعا
RE: انا عندي مشكله ممكن المساعده اريد كود يجلب لي اخر id - moahmed.abdelmohsen - 29-12-20
هذا هو كود الحفظ في الجدولين انا فقط اريد رقم المعرف () ليتم حفظه في جدول تفصيل الفاتورة انا جربت ولاكن لم اتمكن من التفيذ
كود :
''حفظ في جدول المشتريات للاجماليات
Public Sub Save_BuyPill()
' check if this ColumnName is already exist in database
Dim dt As New DataTable
Dim da As New SqlDataAdapter
dt.Clear()
da = New SqlDataAdapter("select * from BuyPill ", con)
da.Fill(dt)
' if Column present give msgbox to alert & Dont save
If dt.Rows.Count > 0 Then
MsgBox("هذا الاسم موجود من قبل ", MsgBoxStyle.Critical, "بيانات مكررة")
Else
dt.Rows.Add()
Dim last As Integer = dt.Rows.Count - 1
'dt.Rows(last).Item("BuyPillID") = GetMaxBuyPillID_BuyPill_InDirect()
If BuyS.RadioButton1.Checked = True Then
dt.Rows(last).Item("BuyPillReTypa") = BuyS.RadioButton1.Text
ElseIf BuyS.RadioButton2.Checked = True Then 'نوع الفاتورة
dt.Rows(last).Item("BuyPillReTypa") = BuyS.RadioButton2.Text
End If
If BuyS.RadioButton3.Checked = True Then
dt.Rows(last).Item("BuyPillType") = BuyS.RadioButton3.Text
ElseIf BuyS.RadioButton4.Checked = True Then 'نوع التعامل
dt.Rows(last).Item("BuyPillType") = BuyS.RadioButton4.Text
End If
dt.Rows(last).Item("BuyPillSuppler") = BuyS.BuyPillSuppler.SelectedValue 'رقم المورد
dt.Rows(last).Item("BuyPillStore") = BuyS.BuyPillStore.SelectedValue 'رقم المخزن
dt.Rows(last).Item("BuyPillTotalAdd") = BuyS.BuyPillTotalAdd.Text 'مصريف اضافية
dt.Rows(last).Item("BuyPillDiscound") = BuyS.BuyPillDiscound.Text 'خصم نقدي للفاتورة
dt.Rows(last).Item("BuyPillCount") = BuyS.BuyPillCount.Text 'عدد الاصناف المباعة
dt.Rows(last).Item("BuyPillWanted") = BuyS.BuyPillWanted.Text 'المبلغ المطلوب
dt.Rows(last).Item("BuyPillPaid") = BuyS.BuyPillPaid.Text 'المبلغ المدفوع
dt.Rows(last).Item("BuyPillRemain") = BuyS.BuyPillRemain.Text 'المبلغ المتبقي
dt.Rows(last).Item("BuyPillTotalEarn") = 0 ' BuyS.BuyPillTotalEarn.Text 'اجمالي سعر البيع
dt.Rows(last).Item("BuyPillDate") = Now.Date 'تاريخ الفاتورة
dt.Rows(last).Item("BuyPillUser") = mainScreen.Label5.Text 'بايع الفاتورة
dt.Rows(last).Item("BuyPillState") = True 'فاعلية الفاتورة
Dim Save As New SqlCommandBuilder(da)
da.Update(dt)
dt.AcceptChanges()
'give msgbox to sure save
MsgBox(" تم الحفظ بنجاح في جدول المشتريات ", MsgBoxStyle.Information, "تاكيد الحفظ")
End If
End Sub
' حفظ للبيانات في جدول التفصيل
Public Sub Save_Buydetails()
Dim dt As New DataTable
Dim da As New SqlDataAdapter
dt.Clear()
da = New SqlDataAdapter("select * from DuyDetails ", con)
da.Fill(dt)
For i As Integer = 0 To BuyS.dgv.Rows.Count - 1
dt.Rows.Add()
Dim last As Integer = dt.Rows.Count - 1
dt.Rows(last).Item("DuyDetailBuyID") = 'رقم فاتورةالشراء
If BuyS.RadioButton1.Checked = True Then
dt.Rows(last).Item("DuyDetailReBuytype") = BuyS.RadioButton1.Text
ElseIf BuyS.RadioButton2.Checked = True Then 'نوع الفاتورة
dt.Rows(last).Item("DuyDetailReBuytype") = BuyS.RadioButton2.Text
End If
If BuyS.RadioButton3.Checked = True Then
dt.Rows(last).Item("DuyDetailBuytype") = BuyS.RadioButton3.Text
ElseIf BuyS.RadioButton4.Checked = True Then 'نوع التعامل
dt.Rows(last).Item("DuyDetailBuytype") = BuyS.RadioButton4.Text
End If
dt.Rows(last).Item("DuyDetailItemID") = BuyS.dgv(0, i).Value 'رقم الصنف
dt.Rows(last).Item("DuyDetaiItemBarcode") = BuyS.dgv(1, i).Value 'باركود الصنف
'dt.Rows(last).Item("DuyDetailRasid") = BuyS.dgv(3, i).Value 'رصيد الصنف
dt.Rows(last).Item("DuyDetailUnitID") = BuyS.dgv(4, i).Value 'رقم الوحدة
dt.Rows(last).Item("DuyDetailConversionFactor") = BuyS.dgv(6, i).Value 'معامل التحويل
dt.Rows(last).Item("DuyDetailItemBalances") = BuyS.dgv(7, i).Value 'الكمية المباعة
dt.Rows(last).Item("DuyDetailItemBalancesNO") = Val(BuyS.dgv(7, i).Value) * Val(BuyS.dgv(6, i).Value) 'الكمية باصغر وحدة
dt.Rows(last).Item("DuyDetailItemBuyPirce") = BuyS.dgv(9, i).Value 'سعر الشراء للصنف
dt.Rows(last).Item("DuyDetailItemBuyPirceG") = BuyS.dgv(10, i).Value ' اجمالى الشراء للصنف
dt.Rows(last).Item("DuyDetailSTOREID") = BuyS.dgv(11, i).Value 'رقم المخزن
dt.Rows(last).Item("DuyDetailSupplerID") = BuyS.dgv(13, i).Value 'رقم المورد
dt.Rows(last).Item("DuyDetailItemSalePirce") = BuyS.dgv(15, i).Value 'سعر البيع للصنف
dt.Rows(last).Item("DuyDetailItemBuyEaen") = BuyS.dgv(7, i).Value * BuyS.dgv(15, i).Value - BuyS.dgv(10, i).Value 'ربح للصنف
dt.Rows(last).Item("DuyDetailDate") = Now.Date.ToString("yyyy-MM-dd")
dt.Rows(last).Item("DuyDetailUser") = mainScreen.Label5.Text
dt.Rows(last).Item("DuyDetailState") = True
Dim save As New SqlCommandBuilder(da)
da.Update(dt)
dt.AcceptChanges()
Next
MessageBox.Show("تم حفظ بنجاح في جدول التفصيل ")
End Sub