جرب هذا :
ثم لا يوجد أحد هنا يستهزئ بك أو بغيرك ..
من طريقة أسلوبك في الكتابة واضح أنك لست عربي ..
لذلك لم تميز أننا نستهزئ أم جديين .
نحن العرب(في نفس الدولة) إذا أختلفت لهجاتنا نفهم على بعضنا البعض خطأً فكيف (ببلدين مختلفين) أو بشخص غير عربي ..
---
ثانيا المشكلة التي وقعت فيها هنا تدل على ضعف الأساسيات لديك .
كيف تريد أن ينفذ كود شرطي كل الحالات فيه بالرغم من أنه من أساسيات الشرط أن ينفذ حالة واحدة فقط ؟؟؟
الأساسيات تعني تطبيق على كل ما يخطر ببالك من حالات .. عليك أن تتعم ثم تجرب ثم تجرب ثم تجرب حتى لا يبقى في نفسك شيء على هذا الكود.
بإمكانك أن تقرأ كتاب برمجي من ألف صفحة في ثلاثة أيام، ولكن لا يمكنك أن تفهم كل ما فيه بأقل من عدة سنوات.
فليس كل ما كتبه مؤلف الكتاب موجود على سطور الكتاب،، هناك تعلميات بين السطور تركها المؤلف لك لتكتشفها بعد أن تجرب بنفسك (تعادل ما كتبه المؤلف وأكثر)..
---
تعلمت من مشايخنا :
- بأنه عليك دوماً إفتراض حسن النية لدى كل من يقابلك حتى يجهر صراحة بأنه يسيء المعاملة..
- والصاحب الذي يقسى عليك ليعلمك خير من الأخ الذي يعمل ببدلاً عنك ليريحك ..
كود :
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ثم لا يوجد أحد هنا يستهزئ بك أو بغيرك ..
من طريقة أسلوبك في الكتابة واضح أنك لست عربي ..
لذلك لم تميز أننا نستهزئ أم جديين .
نحن العرب(في نفس الدولة) إذا أختلفت لهجاتنا نفهم على بعضنا البعض خطأً فكيف (ببلدين مختلفين) أو بشخص غير عربي ..
---
ثانيا المشكلة التي وقعت فيها هنا تدل على ضعف الأساسيات لديك .
كيف تريد أن ينفذ كود شرطي كل الحالات فيه بالرغم من أنه من أساسيات الشرط أن ينفذ حالة واحدة فقط ؟؟؟
الأساسيات تعني تطبيق على كل ما يخطر ببالك من حالات .. عليك أن تتعم ثم تجرب ثم تجرب ثم تجرب حتى لا يبقى في نفسك شيء على هذا الكود.
بإمكانك أن تقرأ كتاب برمجي من ألف صفحة في ثلاثة أيام، ولكن لا يمكنك أن تفهم كل ما فيه بأقل من عدة سنوات.
فليس كل ما كتبه مؤلف الكتاب موجود على سطور الكتاب،، هناك تعلميات بين السطور تركها المؤلف لك لتكتشفها بعد أن تجرب بنفسك (تعادل ما كتبه المؤلف وأكثر)..
---
تعلمت من مشايخنا :
- بأنه عليك دوماً إفتراض حسن النية لدى كل من يقابلك حتى يجهر صراحة بأنه يسيء المعاملة..
- والصاحب الذي يقسى عليك ليعلمك خير من الأخ الذي يعمل ببدلاً عنك ليريحك ..
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».
