[amgadtamer]

PHP كود :

هكذا

        ' تأكيد حفظ البيانات
        Dim y As DialogResult = MessageBox.Show("هل تريد حفظ بيانات الشهر", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If y = DialogResult.Yes Then
            Dim cn1 As New SqlConnection(Con_STR)

            Dim cm As New SqlCommand("add_sa_m_data", cn1)
            cm.CommandType = CommandType.StoredProcedure
            cm.Parameters.Add("@mo_nm", SqlDbType.NVarChar, 50)
            cm.Parameters.Add("@e_class_no", SqlDbType.Int)
            If cn1.State = ConnectionState.Closed Then
                cn1.Open()
            End If
            For i As Integer = 0 To DGV1.RowCount - 1
                cm.Parameters("@mo_nm").Value = mo_nm_com.SelectedItem.ToString
                cm.Parameters("@e_class_no").Value = DGV1.Rows(i).Cells("e_class_no_col").Value.ToString
                cm.ExecuteNonQuery()
            Next
            MessageBox.Show("تم حفظ البيانات", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information)
            e_bran_com.Enabled = True
            mo_nm_com.Enabled = True
            e_bran_com.SelectedIndex = -1
            mo_nm_com.SelectedIndex = -1
            DGV1.DataSource = Nothing
        Else
            Exit Sub
        End If