13-02-23, 11:36 PM
السلام عليكم ممكن طريقة اخر لي تقليص حجم الكود هذا بطريقه اخرى
كود :
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