[علي كعبي]

(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
وانا اريده كذلك يعمل مع مفتاح التاب او عند الخروج من التكيست حق الكود