[الوادي]

يا علي،


التغييرات التي تمت لحل موضوعك أربع فقط:

(1)
عمل متغير id:
تم عمل المتغير على مستوى الفورم أي ليس داخل أي إجراء من أجل الاحتفاظ رقم id للسجل بشكل عام لكود الفورم
Private id As Integer


في حدث زر الحفظ:

(2)
تم الاحتفاظ بعد ظهور رسالة تمام عملية الحفظ بالرقم الموجود في txtid.Text والذي هو رقم الصادر الوار
id = txtid.Text


في حدث زر طباعة الباركود:

(3)
تم عمل الاستعلام بناء على رقم المتغير id
Dim q = From x In myDatatable Where x.Item("id") = id

(4)
وبما أن نتيجة الاستعلام تكون مصفوفة لهذا تفقدنا عدد المصفوفة إذا كان ليس (صفرا) أي أنه توجد نتيجة عندها تتم إجراءات الطباعة
If q.Count > 0 Then



وأعتذر لعدم توضيحي للتغييرات

ولكني سعيد جددددددا بسؤالك (واش الاضافة التي عملتها في الكود)