تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] مساعدة في كود keyDown
#1
السلام عليكم
ممكن مساعدة يا اخواني في هذا الكود
عند كتابة اسم المعرف في ليبيل ال ID يظهر لي اسم الصنف في التيكست بوكس الخاص به
ولكني أريد كتابة اسم الصنف بدلا من اسم المعرف ، ولكن يبدو ان هذه الخاصية لا تدعم كتابة النصوص
أرجو منكم المساعدة
Private Sub txtLabel_KeyDown(sender As Object, e As KeyEventArgs) Handles txtLabel.KeyDown
If e.KeyCode = Keys.Enter Then
Try
cmd = New OleDb.OleDbCommand("select Price from TBL_PRODUCTS where Label = " & txtLabel.Text, con)
con.Open()

Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
dr.Read()


If dr.HasRows Then
txtPrice.Text = dr(0)
txtQty.Focus()

Else
MsgBox("الصنف غير موجود", MsgBoxStyle.Exclamation, "تنبيه")
txtLabel.Clear()
txtQty.Clear()
txtPrice.Clear()
txtAmount.Clear()

txtLabel.Focus()

End If
dr.Close()


Catch ex As Exception
Exit Sub
Finally
con.Close()

End Try
End If

End Sub
الرد
تم الشكر بواسطة:
#2
في خاصية اسمها KeyPreview على مستوى الفورم اذا كانت FAlse خليها True
لا شيء مستحيل
الرد
تم الشكر بواسطة: المبرمج العبقري
#3
السلام عليكم


ما هو Label الموجود في where Label هل اسم اصنف؟
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم