[Zuhare]

الجداول فاضيه وضعت بيانات سطر واحد من عندي وجربته لم تظهر الرساله يمكن هذا التعديل يحل المشكله في مشروعك

كود :

   Private Sub GetSearchItem(ByVal SearchItem As Integer)

       'Try
       '  اجراء مخزن لجلب بيانات الصنف
       Dim da As New SqlDataAdapter("Get_itemCode", conn)
       da.SelectCommand.Parameters.AddWithValue("@itemCode", SearchItem)
       da.SelectCommand.CommandType = CommandType.StoredProcedure
       Dim dt As New DataTable
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           txtitmID.Text = dt.Rows(0)("id")
           txtItemCode.Text = dt.Rows(0)("itemCode")
           txtItemName.Text = dt.Rows(0)("itemName")
           txtSection.Text = dt.Rows(0)("itemSection")
           txtGroup.Text = dt.Rows(0)("itemGroup")

           txtUintName.Text = dt.Rows(0)("UintName")
           txtUnitCode.Text = dt.Rows(0)("unitCode")

        Else
           txtItemCode.SelectAll()
           txtItemCode.Focus()
           MsgBox("لا يوجد صنف مطابق  ", MsgBoxStyle.Exclamation, "خطاء فى ادخال البيانات")
       End If
       'Catch ex As Exception
       '    MsgBox(ex.Message)
       'End Try

   End Sub