[عبد العزيز البسكري]

السلام عليكم ور حمة الله و بركاته
بارك الله فيك و لك أخي و أستاذي الغالي " عبد الله الدوسري " على المثال الرائع و المميز
قمة الأبداع و تحفة فنية لا مثيل لها .. أعجبتني كثيرا بكل صدق
باسم الله ما شاء الله
ربنا يبارك فيك وفي صالح أعمالك و يزيدك من علمه و فضله
فقط يا غالي .. و بعد اذن سيادتك و شخصك القدير
فضل و كرم و احسان منك ..و رجاء و لو بعد شهر او شهرين ..
لو يتم تحويل نفس الملف بالأكواد العادية بعيدا عن الأداة الداتاسيت  
ألف شكر و بارك الله فيك و لك مقدما و جزاك خير الجزاء
احتراماتي

[ملهمـ]

السلام عليكم 
أخي قم بعمل حقل في جدول الأصناف 
وسميه مثلا Item_cheack من نوع Bit
وقم بوضع أداة شيك بوكس في حالة كانت ترو فـ يكون ترو في قاعدة البيانات 
الأن إلى الكود وهو كالتالي 
أول شيء سنستخدم أداة FlowLayoutPanel
نضعها في الفورم 
ثاني شيء  للكود وهو كالتالي وبسيط وساهل 
في حدث اللود للفورم 

كود :

       Dim dt As New DataTable
       Dim da As New SqlClient.SqlDataAdapter("select * from Items where Item_Cheack ='true' ", SqlConn)
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           Dim Value As Integer

           For Value = 0 To dt.Rows.Count - 1

               Dim Btn As New System.Windows.Forms.Button
' هنا طبعا تضع اسم حقل كود الصنف + كود الصنف
               Btn.Name = dt.Rows(Value).Item("Item_Bar")
               Btn.Text = dt.Rows(Value).Item("Item_Name")
               Btn.Font = Label1.Font
               Btn.Width = 150
               Btn.Height = 45

               AddHandler Btn.Click, AddressOf ButtonClickInFlp

               FlpSales.Controls.Add(Btn)

           Next

 وبعدها نقوم بعمل صب وهو كالتالي

كود :

Private Sub ButtonClickInFlp(ByVal sender As System.Object, ByVal e As System.EventArgs)
       sender.GetType()
       ItemBarCode.Text = sender.Name
       ' TxtIDProducer_Leave(Me, e)
       ItemBarCode_Leave(Me, e)
   End Sub

مع مراعاة البحث عن طريق الباركود للصنف مثلما وضعت البحث في حدث البحث في المغادرة 
بالتوفيق