Error en Filas
Publicado por Hector (3 intervenciones) el 10/02/2016 16:41:07
Hola amigos del foro, he aquí nuevamente molestando, tengo un pequeño problema que se detecto ahora, al ingresar varias filas hay veces que se repiten, he tratado de solucionarlo pero siempre me elimina la que no corresponde o bien no lo hace, este es el código que estoy utilizando, al igual adjunto pantallazos del problema que se demuestra el error, favor de ayudarme, he tratado de cambiarlo con las variables y tampoco funciona, ya no se que hacer llevo todo un día en esto y no hay solución, por lo que ven me encuentro un poco mas que desesperado.
esperando una buena cogida a mi ayuda.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Protected Sub CMDVERIFICAR_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CMDVERIFICAR.Click
Dim valor As Integer
Dim A As Integer = 1Dim indice_borrado As Integer
Dim Indice As Integer
Dim i As Integer
ds = Session("Tabla")
For Each item As DataRow In ds.Tables("Grilla").Rows
valor = item("N_Filas")
If A = valor ThenA = valor + 1
Else
i = valorIf CInt(ds.Tables("Grilla").Rows(i).Item("N_Filas")) = Indice + 1 Then
ds.Tables("Grilla").Rows(i).Delete()
indice_borrado = iElseIf CInt(ds.Tables("Grilla").Rows(i).Item("N_Filas")) >= Indice + 1 Then
ds.Tables("Grilla").Rows(i).Item("N_Filas") = CInt(ds.Tables("Grilla").Rows(i).Item("N_Filas")) - 1
End If
Dim builder As Data.SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(da)
Dim vista As DataView = New DataView(ds.Tables("Grilla"), " ", "N_Filas asc", DataViewRowState.CurrentRows)
Grilla.DataSource = vista
Grilla.DataBind()
Me.ds.Tables("Grilla").AcceptChanges()
Session.Add("tabla", ds)
End If
Next
CheckBox1.Focus()
End Sub
- Filas-Repetidas.rar(302,6 KB)
Valora esta pregunta
0