Add textbox value to datatable multiple times

[LadySylvia]

Here is my code:

Dim num As Integer
num = Me.txtCopies.Text

If num = 0 Then
  MessageBox.Show("The number of copies cannot be under 1.", "Popcorn Movie Rentals Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
  Me.txtCopies.Select()
  Me.txtCopies.Focus()
Else
  Me.PmrDataSet.Movies.Rows.Add(movie)
End If

My textbox (txtCopies) default value is 1 so naturally, as it is coded above, the datarow is added once into the Movies Table. But what I need to know is how to code if the txtCopies field has a greater integer value.

Thx for all the help in advance!

LadySylvia

[.paul.]

try this:

Dim num As Integer
integer.tryparse(Me.txtCopies.Text, num)
 
If num = 0 Then
    MessageBox.Show("The number of copies cannot be under 1.", "Popcorn Movie Rentals Warning", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
    Me.txtCopies.Select()
    Me.txtCopies.Focus()
Else
    for x as integer = 1 to num 
        Me.PmrDataSet.Movies.Rows.Add(movie)
    next
End If

[LadySylvia]

Unfortunately no, it didn't work, here's the error message:

ArgumentException was unhandled
This row already belongs to this table.

No idea what that means!

[.paul.]

what is movie? is it a datarow?

try movie.clone instead of movie

[LadySylvia]

yes, movie is a datarow.
i was told to arrange the loop so that the row is only handled once, then found and copied after.
the loop is written after the code i posted above.
think that would work?

here's the current loop:

Me.MoviesTableAdapter.Update(Me.PmrDataSet)
 
            Dim findmovies As DataRow
            Me.PmrDataSet.Members.PrimaryKey = New DataColumn() {Me.PmrDataSet.Movies.Columns("Title")}
            findmovies = Me.PmrDataSet.Members.Rows.Find(Me.txtTitle.Text)
 
            For Each findmovies In Me.PmrDataSet.Movies.Rows
                If findmovies.Item("Title") = Me.txtTitle.Text Then
                    movieIdsfrm.lbxHidden.Items.Add(findmovies.Item("MovieId"))
                End If
            Next
 
            movieIdsfrm.Show()

[.paul.]

why do you need to add multiples of the same datarow to your datatable?
looking at your code in post#5 it looks like you want to add the movie MovieId to a listbox?

[.paul.]

try this:

Me.MoviesTableAdapter.Update(Me.PmrDataSet)
 
Dim findmovies As DataRow
Me.PmrDataSet.Members.PrimaryKey = New DataColumn() {Me.PmrDataSet.Movies.Columns("Title")}
findmovies = Me.PmrDataSet.Members.Rows.Find(Me.txtTitle.Text)
 
movieIdsfrm.Show() 
 
For Each movie In findmovies 
    If movie.Item("Title") = Me.txtTitle.Text Then
        movieIdsfrm.lbxHidden.Items.Add(movie.Item("MovieId"))
    End If
Next