18-12-17, 03:03 AM
(18-12-17, 02:41 AM)عبدالله الدوسري كتب :كود :
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 يعني يفقد التسلسل
