[silensieux2013]

كود :

   Private Sub InsertAtOnes()
       ' عدد السجلات المطلوب
       Dim Counter As Integer = 4
       ' رقم الجرد الأولي
       Dim Xx_numinventer_xX As Integer = 555
       ' اضافة السجلات في قاعدة البيانات
       For I As Integer = 1 To Counter
           prd.Addbass_invontory(Txt_objet_fullname.Text, Xx_numinventer_xX, Txt_classe.Text, Convert.ToDouble(Txt_num1.Text), Dtp_dateinvontory.Value, Dtp_dateachat.Value, Txt_Notes.Text, Txt_invo_fondamontal.Text)
           Xx_numinventer_xX += I

       Next

FillData()
   End Sub

شكرا أخي الكريم الكود شغال جيد رائع لكن لا يعطيني رقم تسلسلي بعد  السجل التالت يصبح يزيد رقم على الرقم  متلا اجد 555 تم 556 تم 558 تم 600 يعني يفقد التسلسل