[عبدالله الدوسري]

كود :

   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