[علي كعبي]

عندي اثنين مربع تكست بوكس وحد للكود حق الصنف والثاني اسم الصنف
اريد عند ادخل رقم الصنف والخروج او ضغط مغتاح التاب من التكيست يظهر اسم الصنف في التكست اسم الصنف

[mmali127]

كل عام وانت بخير

select ItemCode , ItemName from tblItems where ItemCode = " & txtItemCode .Text  &"

            
    If cur1.Count > 0 Then
                

   txtItemName .Text = cur1.Current("ItemName ")

                    Exit Sub

                Else

                    ItemName .Text = ""

[علي كعبي]

(01-01-20, 11:53 AM)mmali127 كتب : كل عام وانت بخير

select ItemCode , ItemName from tblItems where ItemCode = " & txtItemCode .Text  &"

            
    If cur1.Count > 0 Then
                

   txtItemName .Text = cur1.Current("ItemName ")

                    Exit Sub

                Else

                    ItemName .Text = ""

هذا الكود الا انا كتبته يعمل بس عند مفتاح الانتر
 Private Sub aa4_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles aa4.KeyDown
        If e.KeyCode = Keys.Enter Then
            SearchDataSet("Select  * from tb2 where id = " & aa4.Text & " ")
            If cur.Count > 0 Then
                aa5.Text = cur.Current("geht")
            Else
                aa5.Text = ""
            End If
        End If
    End Sub
وانا اريده كذلك يعمل مع مفتاح التاب او عند الخروج من التكيست حق الكود

[محمد كريّم]

جرب التعامل مع حدث Leave والذي يشتغل عند الخروج من الأداة

كود :

Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave

End Sub

[علي كعبي]

(01-01-20, 10:52 PM)محمد كريّم كتب : جرب التعامل مع حدث Leave والذي يشتغل عند الخروج من الأداة

كود :

Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave

End Sub

كتبت الكود كذا ولكن يطلع خطاء

 Private Sub aa4_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles aa4.Leave
        If e.KeyCode = Keys.Enter Then
            SearchDataSet("Select  * from tb2 where id = " & aa4.Text & " ")
            If cur.Count > 0 Then
                aa5.Text = cur.Current("geht")
            Else
                aa5.Text = ""
            End If
        End If
    End Sub


----------------------------------------------------------------------------------------------------------------------
هذا الخطاء
Error 1 'KeyCode' is not a member of 'System.EventArgs'. D:\MyBroj\MyBroj\Form1.vb 276 12 MyBroj

[محمد كريّم]

هذا الحدث لا يتعامل مع النقرات على مفاتيح الكيبورد
هو فقط يشتغل عند الخروج من الأداة

تقدر تكرر نفس الكود في الحدثين

[علي كعبي]

(02-01-20, 09:48 PM)محمد كريّم كتب : هذا الحدث لا يتعامل مع النقرات على مفاتيح الكيبورد
هو فقط يشتغل عند الخروج من الأداة

تقدر تكرر نفس الكود في الحدثين

اكتبه الكود بنفس الصيغة