• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 441
  • Last Modified:

How do I add one textbox at a time after a click of a button?

After the click of btnAdd, I want to add one co-author at a time up to 5 possible. Right now, I click the button and I get 5 textboxes.

Imports System.Data
Imports System.Data.SqlClient
Imports System.Net.Mail

Partial Class Submit

    Inherits System.Web.UI.Page
    Dim objdt As System.Data.DataTable
    Dim objdr As System.Data.DataRow
    Dim ds As New DataSet

    Protected Sub submit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
        Dim strConnection As String = "Data Source=mssql102.manage.myhosting.com;Initial Catalog=db1150602_group3;Integrated Security=False;User ID=u1150602_drnicholsongroup3;Password=w6p?K9x!,l;Connect Timeout=15;Encrypt=False;Packet Size=4096"
        Dim objconnection As New SqlConnection(strConnection)
        Dim mysqlDataAdapter As New SqlDataAdapter("select * From Faculty", objconnection)

        Dim myDataRow As DataRow
        Dim mydatarowscommandbuilder As New SqlCommandBuilder(mysqlDataAdapter)

        mysqlDataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
        mysqlDataAdapter.Fill(ds, "Faculty")
        myDataRow = ds.Tables("Faculty").NewRow()
        myDataRow("Work Title") = txtWorkTitle.Text
        myDataRow("Co-Authors") = txtCoAuthor.Text
        myDataRow("Additional Info") = txtAddInfo.Text

        mysqlDataAdapter.Update(ds, "Faculty")

        txtWorkTitle.Text = ""
        txtCoAuthor.Text = ""
        txtCoAuthor2.Text = ""
        txtCoAuthor3.Text = ""
        txtCoAuthor4.Text = ""
        txtCoAuthor5.Text = ""
        txtAddInfo.Text = ""

            Dim Smtp_Server As New SmtpClient
            Dim e_mail As New MailMessage()
            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("username@rowan.edu", "password")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"
            e_mail = New MailMessage()
            e_mail.From = New MailAddress("username@rowan.edu")
            e_mail.Subject = "Email Sending"
            e_mail.IsBodyHtml = False
            e_mail.Body = DropDownList1.DataTextField
            e_mail.Body = txtWorkTitle.Text
            e_mail.Body = txtCoAuthor.Text
            e_mail.Body = txtCoAuthor2.Text
            e_mail.Body = txtCoAuthor3.Text
            e_mail.Body = txtCoAuthor4.Text
            e_mail.Body = txtCoAuthor5.Text
            e_mail.Body = txtAddInfo.Text
            MsgBox("Mail Sent")
        Catch error_t As Exception
        End Try

    End Sub

    Protected Sub Button1_Click(sender As Object, e As System.EventArgs) Handles btnAdd.Click

        If (txtCoAuthor2.Visible = False) Then

            txtCoAuthor2.Visible = True

        End If

        If (txtCoAuthor3.Visible = False) Then

            txtCoAuthor2.Visible = True
            txtCoAuthor3.Visible = True
        End If

        If (txtCoAuthor4.Visible = False) Then

            txtCoAuthor2.Visible = True
            txtCoAuthor3.Visible = True
            txtCoAuthor4.Visible = True

        End If

        If (txtCoAuthor5.Visible = False) Then

            txtCoAuthor2.Visible = True
            txtCoAuthor3.Visible = True
            txtCoAuthor4.Visible = True
            txtCoAuthor5.Visible = True

        End If

    End Sub

End Class

Open in new window

  • 2
1 Solution
Jens FiedererTest Developer/ValidatorCommented:
You could do ELSE Ifs.

If (txtCoAuthor2.Visible = False)

then your next two lines ALREADY do everything needed, so you can either return right away or guard the next conditionals with elses to keep from doing them, too.
Jens FiedererTest Developer/ValidatorCommented:
If (txtCoAuthor2.Visible = False) Then

            txtCoAuthor2.Visible = True

        End If

Open in new window

and so on
ryanbecker24Author Commented:
Thank you
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Train for your Pen Testing Engineer Certification

Enroll today in this bundle of courses to gain experience in the logistics of pen testing, Linux fundamentals, vulnerability assessments, detecting live systems, and more! This series, valued at $3,000, is free for Premium members, Team Accounts, and Qualified Experts.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now