يتم الحفظ ولكن دون الترتيب بالرقم - كيف اجبره على الحفظ بالترتب ؟

كود :

USE [Emplo]

GO

/****** Object:  StoredProcedure [dbo].[add_sa_m_data]    Script Date: 14/10/2012 09:39:26 م ******/

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO



ALTER PROCEDURE [dbo].[add_sa_m_data] 

@mo_nm nvarchar(50),

@e_id int,

@e_nm nvarchar(50),

@e_bran nvarchar(50),

@e_asasy float,

@e_omal int,

@e_edafy_1_per int,

@e_edafy_1 float,

@e_edafy_2_per int,

@e_edafy_2 float,

@e_edafy float,

@e_bdl_entkal float,

@e_bdl_tmsel float,

@e_bdl_estkbal float,

@e_bdl_tfrogh float,

@e_bdl_raha float,

@e_bdl_computer float,

@e_bdl_tot float,

@e_day_edafy int,

@e_day_edafy_tot float,

@e_tamen_per_1_26 float,

@e_asay_tot float,

@e_elawa_1 float,

@e_elawa_2 float,

@e_elawa_3 float,

@e_elawa_4 float,

@e_elawa_5 float,

@e_change float,

@e_tamen_per_1_24 float,

@e_tamenat float,

@e_change_all float,

@e_mosthk_tot float,

@e_tamen_per_2_26 float,

@e_tamen_per_14 float,

@e_tamen_per_2_24 float,

@e_tamen_per_11 float,

@e_tamnen_egtmaey float,

@e_day_no_mortb int,

@e_total_day_no_mortb float,

@e_tamen_ghyab_asasy_per_26 float,

@e_tamen_ghyab_change_per_24 float,

@e_day_geza_no int,

@e_day_geza_tot float,

@e_mo_tax float,

@e_day_ghyab_no int,

@e_day_ghyab_tot float,

@e_moda_tamen float,

@e_alex_bank float,

@e_estktaat_tot float,

@e_safy_all float

as

insert into sa_m_data

(mo_nm,

e_id,

e_nm,

e_bran,

e_asasy,

e_omal,

e_edafy_1_per,

e_edafy_1,

e_edafy_2_per,

e_edafy_2,

e_edafy,

e_bdl_entkal,

e_bdl_tmsel,

e_bdl_estkbal,

e_bdl_tfrogh,

e_bdl_raha,

e_bdl_computer,

e_bdl_tot,

e_day_edafy,

e_day_edafy_tot,

e_tamen_per_1_26,

e_asay_tot,

e_elawa_1,

e_elawa_2,

e_elawa_3,

e_elawa_4,

e_elawa_5,

e_change,

e_tamen_per_1_24,

e_tamenat,

e_change_all,

e_mosthk_tot,

e_tamen_per_2_26,

e_tamen_per_14,

e_tamen_per_2_24,

e_tamen_per_11,

e_tamnen_egtmaey,

e_day_no_mortb,

e_total_day_no_mortb,

e_tamen_ghyab_asasy_per_26,

e_tamen_ghyab_change_per_24,

e_day_geza_no,

e_day_geza_tot,

e_mo_tax,

e_day_ghyab_no,

e_day_ghyab_tot,

e_moda_tamen,

e_alex_bank,

e_estktaat_tot,

e_safy_all)

values

(@mo_nm,

@e_id,

@e_nm,

@e_bran,

@e_asasy,

@e_omal,

@e_edafy_1_per,

@e_edafy_1,

@e_edafy_2_per,

@e_edafy_2,

@e_edafy,

@e_bdl_entkal,

@e_bdl_tmsel,

@e_bdl_estkbal,

@e_bdl_tfrogh,

@e_bdl_raha,

@e_bdl_computer,

@e_bdl_tot,

@e_day_edafy,

@e_day_edafy_tot,

@e_tamen_per_1_26,

@e_asay_tot,

@e_elawa_1,

@e_elawa_2,

@e_elawa_3,

@e_elawa_4,

@e_elawa_5,

@e_change,

@e_tamen_per_1_24,

@e_tamenat,

@e_change_all,

@e_mosthk_tot,

@e_tamen_per_2_26,

@e_tamen_per_14,

@e_tamen_per_2_24,

@e_tamen_per_11,

@e_tamnen_egtmaey,

@e_day_no_mortb,

@e_total_day_no_mortb,

@e_tamen_ghyab_asasy_per_26,

@e_tamen_ghyab_change_per_24,

@e_day_geza_no,

@e_day_geza_tot,

@e_mo_tax,

@e_day_ghyab_no,

@e_day_ghyab_tot,

@e_moda_tamen,

@e_alex_bank,

@e_estktaat_tot,

@e_safy_all)

كود :

' التأكد من عدم وجود الشهر من قبل

        Dim cn As New SqlConnection(Con_STR)

        Dim sda As New SqlDataAdapter("select * from sa_m_data where mo_nm = @mo_nm ", cn)

        sda.SelectCommand.Parameters.Add("@mo_nm", SqlDbType.NVarChar, 50).Value = mo_nm_com.SelectedItem.ToString

        Dim ds As New DataSet

        sda.Fill(ds)

        Dim dt As DataTable = ds.Tables(0)

        If dt.Rows.Count > 0 Then

            MessageBox.Show("تم عمل مرتبات هذا الشهر من قبل", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)

            mo_nm_com.Focus()

            cn.Close()

            Exit Sub

        End If



        ' تأكيد حفظ البيانات

        Dim y As DialogResult = MessageBox.Show("هل تريد حفظ بيانات الشهر", "تنبيه", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        If y = DialogResult.Yes Then

            Dim cn1 As New SqlConnection(Con_STR)

            For i As Integer = 0 To DGV1.RowCount - 1

                Dim cm As New SqlCommand("add_sa_m_data", cn1)

                cm.CommandType = CommandType.StoredProcedure

                cm.Parameters.Add("@mo_nm", SqlDbType.NVarChar, 50).Value = mo_nm_com.SelectedItem.ToString

                cm.Parameters.Add("@e_id", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_id_col").Value.ToString

                cm.Parameters.Add("@e_nm", SqlDbType.NVarChar, 50).Value = DGV1.Rows(i).Cells("e_nm_col").Value.ToString

                cm.Parameters.Add("@e_bran", SqlDbType.NVarChar, 50).Value = e_bran_com.SelectedItem.ToString

                cm.Parameters.Add("@e_asasy", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_asasy_col").Value.ToString

                cm.Parameters.Add("@e_omal", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_omal_col").Value.ToString

                cm.Parameters.Add("@e_edafy_1_per", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_edafy_1_per_col").Value.ToString

                cm.Parameters.Add("@e_edafy_1", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_edafy_1_col").Value.ToString

                cm.Parameters.Add("@e_edafy_2_per", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_edafy_2_per_col").Value.ToString

                cm.Parameters.Add("@e_edafy_2", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_edafy_2_col").Value.ToString

                cm.Parameters.Add("@e_edafy", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_edafy_col").Value.ToString

                cm.Parameters.Add("@e_bdl_entkal", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_entkal_col").Value.ToString

                cm.Parameters.Add("@e_bdl_tmsel", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_tmsel_col").Value.ToString

                cm.Parameters.Add("@e_bdl_estkbal", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_estkbal_col").Value.ToString

                cm.Parameters.Add("@e_bdl_tfrogh", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_tfrogh_col").Value.ToString

                cm.Parameters.Add("@e_bdl_raha", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_raha_col").Value.ToString

                cm.Parameters.Add("@e_bdl_computer", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_computer_col").Value.ToString

                cm.Parameters.Add("@e_bdl_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_bdl_tot_col").Value.ToString

                cm.Parameters.Add("@e_day_edafy", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_day_edafy_no_col").Value.ToString

                cm.Parameters.Add("@e_day_edafy_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_day_edafy_tot_col").Value.ToString

                cm.Parameters.Add("@e_tamen_per_1_26", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_1_26_col").Value.ToString

                cm.Parameters.Add("@e_asay_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_asay_tot_col").Value.ToString

                cm.Parameters.Add("@e_elawa_1", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_elawa_1_col").Value.ToString

                cm.Parameters.Add("@e_elawa_2", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_elawa_2_col").Value.ToString

                cm.Parameters.Add("@e_elawa_3", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_elawa_3_col").Value.ToString

                cm.Parameters.Add("@e_elawa_4", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_elawa_4_col").Value.ToString

                cm.Parameters.Add("@e_elawa_5", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_elawa_5_col").Value.ToString

                cm.Parameters.Add("@e_change", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_change_tot_col").Value.ToString

                cm.Parameters.Add("@e_tamen_per_1_24", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_1_24_col").Value.ToString

                cm.Parameters.Add("@e_tamenat", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamenat_col").Value.ToString

                cm.Parameters.Add("@e_change_all", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_change_all_col").Value.ToString

                cm.Parameters.Add("@e_mosthk_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_mosthk_tot_col").Value.ToString

                cm.Parameters.Add("@e_tamen_per_2_26", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_2_26_col").Value.ToString

                cm.Parameters.Add("@e_tamen_per_14", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_14_col").Value.ToString

                cm.Parameters.Add("@e_tamen_per_2_24", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_2_24_col").Value.ToString

                cm.Parameters.Add("@e_tamen_per_11", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_per_11_col").Value.ToString

                cm.Parameters.Add("@e_tamnen_egtmaey", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamnen_egtmaey_col").Value.ToString

                cm.Parameters.Add("@e_day_no_mortb", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_day_no_mortb_col").Value.ToString

                cm.Parameters.Add("@e_total_day_no_mortb", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_total_day_no_mortb_col").Value.ToString

                cm.Parameters.Add("@e_tamen_ghyab_asasy_per_26", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_ghyab_asasy_per_26_col").Value.ToString

                cm.Parameters.Add("@e_tamen_ghyab_change_per_24", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_tamen_ghyab_change_per_24_col").Value.ToString

                cm.Parameters.Add("@e_day_geza_no", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_day_geza_no_col").Value.ToString

                cm.Parameters.Add("@e_day_geza_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_day_geza_tot_col").Value.ToString

                cm.Parameters.Add("@e_mo_tax", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_mo_tax_col").Value.ToString

                cm.Parameters.Add("@e_day_ghyab_no", SqlDbType.Int).Value = DGV1.Rows(i).Cells("e_day_ghyab_no_col").Value.ToString

                cm.Parameters.Add("@e_day_ghyab_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_day_ghyab_tot_col").Value.ToString

                cm.Parameters.Add("@e_moda_tamen", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_moda_tamen_col").Value.ToString

                cm.Parameters.Add("@e_alex_bank", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_alex_bank_col").Value.ToString

                cm.Parameters.Add("@e_estktaat_tot", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_estktaat_tot_col").Value.ToString

                cm.Parameters.Add("@e_safy_all", SqlDbType.Float).Value = DGV1.Rows(i).Cells("e_safy_all_col").Value.ToString

                cn1.Open()

                cm.ExecuteNonQuery()

                cn1.Close()

            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