12-09-22, 01:23 PM
السلام عليكم لدي كود لاستدعاء بيانات الاصناف وعرضها في داتا جريد بشكل متسلسل عن طريق زيادة رقم 1 على كود الصنف في كل مره ولك في بعض الاحيان يحدث خطا عندما يكون كود الصنف غير موجود المطلوب عمل لووب لجعل البرنامج يقفز عن كود الصنف غير الموجود مثال اذا كان عندي كود صنف 1,2,5,6,7
ان يقفز البرنامح عن كود الصنف 3 و 4 وينتقل الى 5
ان يقفز البرنامح عن كود الصنف 3 و 4 وينتقل الى 5
تم وضع الكود في زر امر
Dim sql = "select * from item where item_code=N'" & (itemcode.text+ 1) & "'"
Dim adp As New SqlDataAdapter(sql, sqlconn)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
If dt.Rows.Count > 0 Then
Dim adp As New SqlDataAdapter(sql, sqlconn)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
If dt.Rows.Count > 0 Then
يتم عرض البيانات الخاصة في الصنف
Else