[خلاف]

(08-03-15, 12:33 PM)سعود كتب : ياليت اضافة الاكواد لاحدى الوسوم

كود :

ur code here

اعتزر لقلت خبرتي في ذلك اتمنا ان يكون الكود كذلك مفهوم

كود :

Private Sub fatora()
        con.ConnectionString = ("Data Source=.\SQLEXPRESS;Initial Catalog=DBTest;Integrated Security=True")
        Dim com2 As New SqlCommand
        com2.CommandType = CommandType.StoredProcedure
        com2.Connection = con
        Dim i As Integer
        Dim DGV As New FORM_ORDERS

        For i = 0 To DGV.DataGridView1.Rows.Count - 1 Step 1
            If i > DGV.DataGridView1.Rows.Count - 1 Then
                Exit For
            End If



            com2.CommandText = ("add_ditels_fatorasel")


            'عملية حفظ اصناف الفاتورة في جدول تفاصيل المبيعات
            com2.Parameters.AddWithValue("@seril_pro", DGV.DataGridView1.Rows(i).Cells(0).Value)



            com2.Parameters.AddWithValue("@name_pro", DGV.DataGridView1.Rows(i).Cells(1).Value)


            com2.Parameters.AddWithValue("@Quint_pro", DGV.DataGridView1.Rows(i).Cells(2).Value)


            com2.Parameters.AddWithValue("@discount", DGV.DataGridView1.Rows(i).Cells(5).Value)


            com2.Parameters.AddWithValue("@nettotal_pro", DGV.DataGridView1.Rows(i).Cells(6).Value)


            com2.Parameters.AddWithValue("@id_fators", DGV.textnumber.Text)



            If con.State = ConnectionState.Open Then con.Close()

            con.Open()
            com2.ExecuteNonQuery()


        Next i

        com2.Dispose()
        con.Close()

    End Sub

    End Class