+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ما هي مشكلة KeyDown (/showthread.php?tid=24850)
ما هي مشكلة KeyDown - فراس الغزي - 07-05-18
[attachment=17935]السلام عليكم الاخوة الاعزاء ارفق اليكم الكود الخاص بفاتورة العميل وصورة الخطا
اتمنى منكم معرفة لسبب حيث لما اكتب كود الماد واضغط انتر بيطلع هذي الرسالة وشكرا لكم
الكود
كود :
Private Sub Textpro_KeyDown_1(sender As Object, e As KeyEventArgs) Handles Textpro.KeyDown
If e.KeyCode = Keys.Enter Then
Try
cmd = New OleDbCommand("Select SellingPrice_q, MaterialName from Materials where MaterialBarCode = " & Textpro.Text, Conn)
Conn.Open()
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
If dr.HasRows Then
Textpro.Text = dr(1)
Textprice.Text = dr(5)
Textnum.Focus()
Else
MsgBox("هذا المنتج غير موجود في سجلاتك ", MsgBoxStyle.Exclamation, "تنبيه")
Textpro.Clear()
Textprice.Clear()
Textnum.Clear()
Textpro.Focus()
End If
dr.Close()
Catch ex As Exception
MsgBox(ex.Message)
Finally
Conn.Close()
End Try
End If
End Subصورة الخطا
RE: ما هي مشكلة KeyDown - عبد العزيز البسكري - 07-05-18
السّلام عليكم و رحمة الله و بركاته
أخي الكريم .. عبارة Mysmatch غالبا ما تدلّ على تناقض في الكود
راجع أحداث التاكست جيدا .. ربما تجد الحل إن شاء الله
تحياتي
RE: ما هي مشكلة KeyDown - viv - 07-05-18
خطاء في تطابق نوع البيانات
يحدث كثيرا عند الاضافة او التعديل غالبا
ولكن بما انك في حالة استعلام فربما احدى الادوات تستلم بيانات حقل ليس لها
ولكن لاحظت هذه العبارة
PHP كود :
MaterialBarCode = " & Textpro.Text
هل انت متأكد ان امورها تمام يعني ما نوع الحقل وما البيانات التي فيه
وايضا يفضل ان تجعل نقطة توقف وتشغل البرنامج خطوة بخطوة
وتعرف اين توقف بالضبط
هل توقف على امر Open
ام هل توقف هنا
PHP كود :
Dim dr As OleDbDataReader = cmd.ExecuteReader
PHP كود :
Textpro.Text = dr(1)
Textprice.Text = dr(5)
Textnum.Focus()