se repite el ultimo registro? hola ,
tengo una matriz :
Public Shared matriz(100, 4) As String
Public Shared i As Integer
Public Shared contador As Integer
y dos botones.
boton1: "el cual agrega datos a la matriz y despues a los listbox"
If (matriz(i, 0) Is Nothing) Then
matriz(i, 0) = TextBox17.Text 'codigo epp
matriz(i, 1) = TextBox9.Text 'descripcion
matriz(i, 2) = DropDownList5.SelectedValue.ToString() 'talla
matriz(i, 3) = DropDownList6.SelectedValue.ToString() 'color
matriz(i, 4) = Val(TextBox13.Text) 'cantidad
Dim var As String
var = matriz(i, 1)
lstLista.Items.Add(var)
var = matriz(i, 2)
ListBox1.Items.Add(var)
var = matriz(i, 3)
ListBox2.Items.Add(var)
var = matriz(i, 4)
ListBox3.Items.Add(var)
TextBox13.Text = ""
i = i + 1
End If
boton2:"esto agrega los datos de la matriz(listbox) a la tabla en la base de datos"
Try
Using cn
cn.Open()
For contador = 0 To 99
If (Not (matriz(contador, 0) Is Nothing)) Then
da.InsertCommand.Parameters(0).Value = TextBox16.Text
da.InsertCommand.Parameters(1).Value = matriz(contador, 0)
da.InsertCommand.Parameters(2).Value = matriz(contador, 2)
da.InsertCommand.Parameters(3).Value = matriz(contador, 3)
da.InsertCommand.Parameters(4).Value = matriz(contador, 4)
da.InsertCommand.Parameters(5).Value = 1
da.InsertCommand.ExecuteNonQuery()
Else
Exit For
End If
Next
End Using
Catch ex As Exception
MsgBox(ex.Message)
End Try
lstLista.Items.Clear()
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear() etc.....
la primera grabada en la bdd es buena, pero cuando kiero hacer el proceso por segunda ves
agrega los registros de la primera y la segunda tambien. como se puede solucionar eso,gracias?
