28-10-22, 01:06 AM
(28-10-22, 12:57 AM)Taha Okla كتب : جرب هذا :لا انا عربي مسلم ورسولي سيد الخلق محمد انا في مرحلة تعلم اخ طه صحيح لست ملم بكل شي مثلا الان عملت محاوله من كود انه كميه تساوي صفر استغله في كود طباعه وهو جلب اكبر رقم فاتوره لكي اطبع منتجات في اخر فاتورة بدون تكرار لانه في سابق كانت تطبع اخر فاتوره مع موجود في مره سابقه هادي محاولتي في كود هل هيا صحيح او خاطئه هل تعلم انه قروب هدا رغم الرد متاخر لكن لاستسلم في محاولة وصول للمعلومة بارك الله فيك انك تساعد مجاني نادر ما تجد اشخاص يساعدوني مجانا هادي محاولتي كود طباعه
كود :
If e.KeyCode = Keys.Enter Then
'-----------------------------------------------------------------------------------
Dim ct As String = "Select Sum(qty) As SumOrders from products Where ID_product = '" & txtid.Text & "'" ' رقم المادة مثلاً
'-----------------------------------------------------------------------------------
Dim Cmd As SqlCommand = New SqlCommand(ct, Module1.con)
Dim da As SqlDataAdapter = New SqlDataAdapter(Cmd)
Dim dt2 As DataTable = New DataTable
da.Fill(dt2)
Dim qty2 As Integer
qty2 = dt2.Rows(0)("SumOrders").ToString
If qty2 <= 0 Then
Dim rMsg As MsgBoxResult
rMsg = MsgBox("الكمية المطلوبة غير متاحة،، هل تريد الاستمرار بالتسجيل ؟", vbYesNo + vbExclamation, "تحذير")
If rMsg = vbNo Then
txtid.Clear()
txtlabel.Clear()
txtqty.Clear()
txtprice.Clear()
TxtDes.Focus()
Exit Sub
End If
' إذا كان (لا) لا يريد الاستمرار سيتم انهاء الحدث من هنا بدون تنفيذ باقي الكود
' وإذا اختر نعم (يعني الاستمرار) سيتم تنفيذ باقي الكود
End If
For i As Integer = 0 To DGV_PRODUCT.Rows.Count - 1
If DGV_PRODUCT.Rows(i).Cells(0).Value = txtid.Text Then
MsgBox("هدا المنتج موجود مسبقا", MsgBoxStyle.Critical, "تحذير")
cl()
Exit Sub
End If
Next
Dim row As DataRow = dt.NewRow
row(0) = txtid.Text
row(1) = txtlabel.Text
row(2) = txtqty.Text
row(3) = txtprice.Text
row(4) = txtamount.Text
dt.Rows.Add(row)
Me.DGV_PRODUCT.DataSource = dt
cl()
tootal()
End If
---
ثانيا المشكلة التي وقعت فيها هنا تدل على ضعف الأساسيات لديك .
كيف تريد أن ينفذ كود شرطي كل الحالات فيه بالرغم من أنه من أساسيات الشرط أن ينفذ حالة واحدة فقط ؟؟؟
الأساسيات تعني تطبيق على كل ما يخطر ببالك من حالات .. عليك أن تتعم ثم تجرب ثم تجرب ثم تجرب حتى لا يبقى في نفسك شيء على هذا الكود.
بإمكانك أن تقرأ كتاب برمجي من ألف صفحة في ثلاثة أيام، ولكن لا يمكنك أن تفهم كل ما فيه بأقل من عدة سنوات.
فليس كل ما كتبه مؤلف الكتاب موجود على سطور الكتاب،، هناك تعلميات بين السطور تركها المؤلف لك لتكتشفها بعد أن تجرب بنفسك (تعادل ما كتبه المؤلف وأكثر)..
---
[b]ثم لا يوجد أحد هنا يستهزأ بك أو بغيرك ..
[/b]
من طريقة أسلوبك في الكتابة واضح أنك لست عربي ..
[b]لذلك لم تميز أننا نستهزأ أم جديين .[/b]
[b]---[/b]
نحن العرب(في نفس الدولة) إذا أختلفت لهجاتنا نفهم على بعضنا البعض خطأً فكيف (ببلدين مختلفين) أو بشخص غير عربي ..
تعلمت من مشايخنا :
- بأنه عليك دوماً إفتراض حسن النية لدى كل من يقايلك حتى يجهر صراحة بأنه يسيء المعاملة..
- والصاحب الذي يقسى عليك ليعلمك خير من الأخ الذي يعلم ببدلاً عنك ليريحك ..
كود :
Dim ct As String = "Select max(id_order) As maxOrders from Tbl_Orderes Where ID_order = '" & TextBox2.Text & "'" ' اكبر رقم فاتورة
'-----------------------------------------------------------------------------------
Dim Cmd As SqlCommand = New SqlCommand(ct, Module1.con)
Dim da As SqlDataAdapter = New SqlDataAdapter(Cmd)
Dim dt2 As DataTable = New DataTable
da.Fill(dt2)
Dim qty2 As Integer
qty2 = dt2.Rows(0)("maxOrders")
Dim CR As New CrystalReport5
CR.SetDataSource(qty2)
'CR.SetParameterValue("@id", Me.DGV_PRODUCT.CurrentRow.Cells(0).Value.ToString())
Form_print.CrystalReportViewer1.ReportSource = CR
Form_print.Show()