[shado1796]

شكرا اخي لكن اكتشفت انه يظيف اكثر من العدد الي اكتبه مثل
انا كتبت 3 كرره 4 ،، كتبت 6 كرره 7 والسبب فهمته وهو انه يقوم بتكرار العملية غير العملية الاصليه ،،
يعني الكود عمليه اصليه ،، فهو يضيف فوقه العدد الذي اكتبه ،، ماهو حل هذه المشكلة ؟

وهذا هو الكود بعد تغييري للبارو مترات

كود :

For aLoop As Integer = 0 To Val(TextBox92.Text.Trim)
            Dim cm2 As New SqlCommand("insert into Table2 (NameCloth,TypeCloth,ColorCloth,LengthM,LengthY,Quantity) values (@NameCloth,@TypeCloth,@ColorCloth,@LengthM,@LengthY,@Quantity)", Conn)

            cm2.Parameters.AddWithValue("@NameCloth", SqlDbType.VarChar).Value = (TextBox64.Text).ToString
            cm2.Parameters.AddWithValue("@TypeCloth", SqlDbType.VarChar).Value = (TextBox63.Text).ToString
            cm2.Parameters.AddWithValue("@ColorCloth", SqlDbType.VarChar).Value = (TextBox60.Text).ToString
            cm2.Parameters.AddWithValue("@LengthM", SqlDbType.Decimal).Value = (TextBox72.Text).ToString
            cm2.Parameters.AddWithValue("@LengthY", SqlDbType.Decimal).Value = (TextBox85.Text).ToString
            cm2.Parameters.AddWithValue("@Quantity", SqlDbType.VarChar).Value = (TextBox83.Text).ToString


            If Conn.State = ConnectionState.Closed Then
                Conn.Open()
            End If
            cm2.ExecuteNonQuery()
            cm2.Parameters.Clear()
            Me.RefreshListView2()
        Next