[ali_ahmed12]

(13-10-22, 07:46 PM)Taha Okla كتب : المطلوب ::
الكود الذي أدخل البيانات الأولى في الداتا جريد وليس كودك في النافذة الثانية.

كود :

'====الادخال قيود
       If IMPORTERNAME.SelectedIndex < 0 Then
           MessageBox.Show("يرجي ادخال اسم المورد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           IMPORTERNAME.Select()
           Exit Sub
       End If
       If BUYTYPE.SelectedIndex < 0 Then
           MessageBox.Show("يرجي اختيار نوع الفاتورة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           BUYTYPE.Select()
           Exit Sub
       End If
       If DataGridView1.Rows.Count = 0 Then
           MessageBox.Show("لاتوجد اصناف لحفظها", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Exit Sub
       End If
       '====================حفظ راس فاتورة===============
       Dim DT As New DataTable
       Dim DA As New SqlDataAdapter("select *from buybill where buycode='" & BUYCODE.Text & "'", sqlcon)
       DA.Fill(DT)
       If DT.Rows.Count > 0 Then
           BUYCODE.Text = CODE_GENE("BUYBILL", "ID") + 1
       Else
           Dim DR = DT.NewRow
           DR!buycode = BUYCODE.Text
           DR!buytype = BUYTYPE.Text
           DR!importername = IMPORTERNAME.Text
           DR!notes = NOTES.Text
           DR!buydate = BUYDATE.Value
           DR!total = Convert.ToDecimal(TOTAL.Text)
           DR!discound = Convert.ToDecimal(DISCOUND.Text)
           DR!totalarabic = TOTALARABIC.Text
           DR!totalqty = Val(TOTALQTY.Text)
           DR!buyuser = BUYUSER.Text
           DT.Rows.Add(DR)
           Dim SAVE As New SqlCommandBuilder(DA)
           DA.Update(DT)
           MessageBox.Show("تم حفظ عملية حفظ فاتورة المشتريات بنجاح", "رسالة تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)


       End If

انا احضر دورة اخ ملهم الصويعي هنا وصلت في دقيقة 23

كود :

https://www.youtube.com/watch?v=c8akL1T36qE&list=PLEwx6T1ZoWiWbRT1OJgORHFydHIdBzV-l&index=8