[aminesori]

السلام عليكم ممكن طريقة اخر لي تقليص حجم الكود هذا بطريقه اخرى

كود :

           If txtBoox1.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon1", OleDbType.VarChar)).Value = txtBoox1.Text
           ElseIf txtBoox1.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon1", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox2.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon2", OleDbType.VarChar)).Value = txtBoox2.Text
           ElseIf txtBoox2.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon2", OleDbType.VarChar)).Value = ""
           End If

           If txtBoox3.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon3", OleDbType.VarChar)).Value = txtBoox3.Text
           ElseIf txtBoox3.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon3", OleDbType.VarChar)).Value = ""
           End If

           If txtBoox4.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon4", OleDbType.VarChar)).Value = txtBoox4.Text
           ElseIf txtBoox4.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon4", OleDbType.VarChar)).Value = ""
           End If

           If txtBoox5.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon5", OleDbType.VarChar)).Value = txtBoox5.Text
           ElseIf txtBoox5.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon5", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox6.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon6", OleDbType.VarChar)).Value = txtBoox6.Text
           ElseIf txtBoox6.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon6", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox7.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon7", OleDbType.VarChar)).Value = txtBoox7.Text
           ElseIf txtBoox7.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon7", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox8.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon8", OleDbType.VarChar)).Value = txtBoox8.Text
           ElseIf txtBoox8.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon8", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox9.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon9", OleDbType.VarChar)).Value = txtBoox9.Text
           ElseIf txtBoox9.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon9", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox10.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon10", OleDbType.VarChar)).Value = txtBoox10.Text
           ElseIf txtBoox10.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon10", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox11.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon11", OleDbType.VarChar)).Value = txtBoox11.Text
           ElseIf txtBoox11.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon11", OleDbType.VarChar)).Value = ""
           End If
           If txtBoox12.Visible = True Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon12", OleDbType.VarChar)).Value = txtBoox12.Text
           ElseIf txtBoox12.Visible = False Then
               cmd.Parameters.Add(New OleDb.OleDbParameter("@monthmon12", OleDbType.VarChar)).Value = ""
           End If