[خالد كامل1]

(19-02-19, 04:21 AM)عبد العزيز البسكري كتب :

السّلام عليكم و رحمة الله و بركاته

تمنيت لو كانت الصورة كاملة من جهة اليمين أخي الكريم ..

كبداية حاول .. إضافة عبارات مثلا

[b]Code.Text [/b]

تحياتي

هذا هو الكود اخى الكريم

كود :

 Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
       cmd = New OleDbCommand("insert into tbl_buy (id, buy_date, user_name, name_import, total_buy, dd_buy, bb_buy) values (@id, @buy_date, @user_name, @name_import, @total_buy, @dd_buy, @bb_buy)", con)
       cmd.Parameters.Add("@id", OleDbType.Integer).Value = txt_no.Text
       cmd.Parameters.Add("@order_date", OleDbType.VarChar).Value = txt_date.Text
       cmd.Parameters.Add("@user_name", OleDbType.VarChar).Value = txt_sales.Text
       cmd.Parameters.Add("@nameimport", OleDbType.VarChar).Value = txt_name_import.Text
       cmd.Parameters.Add("@total_buy", OleDbType.Currency).Value = txt_total.Text
       cmd.Parameters.Add("@dd_buy", OleDbType.Currency).Value = txt_dd.Text
       cmd.Parameters.Add("@bb_buy", OleDbType.Currency).Value = txt_bb.Text
       con.Open()

       cmd.ExecuteNonQuery()
       Dim code, nam As String
       Dim price, tot, qty As Double
       For i As Integer = 0 To dgvbuy.Rows.Count - 1
           code = dgvbuy.Rows(i).Cells(0).Value
           nam = dgvbuy.Rows(i).Cells(1).Value
           price = dgvbuy.Rows(i).Cells(2).Value
           qty = dgvbuy.Rows(i).Cells(3).Value
           tot = dgvbuy.Rows(i).Cells(4).Value

           cmd = New OleDbCommand("insert into tbl_buy_d(id_buy, code, item_name, price, qty, tot) values (@id_buy, @code, @item_name, @price, @qty, @tot)", con)
           cmd.Parameters.Add("@id", OleDbType.Integer).Value = txt_no.Text
           cmd.Parameters.Add("@code", OleDbType.VarChar).Value = code
           cmd.Parameters.Add("@item_name", OleDbType.VarChar).Value = nam
           cmd.Parameters.Add("@price", OleDbType.Double).Value = price
           cmd.Parameters.Add("@qty", OleDbType.Decimal).Value = qty
           cmd.Parameters.Add("@tot", OleDbType.Currency).Value = tot
           cmd.ExecuteNonQuery()
       Next
       con.Close()
       txt_no.Text = max_order() + (1)
       MsgBox("تم جفظ الفاتورة")