Modificar datos en un datagridview que cumplan una condición
Publicado por Miguel (281 intervenciones) el 26/08/2016 13:05:21
Tengo este código que no me da errores, chequea los valores que cumplen la condición pero no me los actualiza.
Creo que tengo un pequeño lio de los conceptos usados.
Haber si alguna persona puede ayudarme a saber cual es mi error.
Muchas gracias y un saludo
Creo que tengo un pequeño lio de los conceptos usados.
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
Private Sub VtosGarantias(ByVal sender As Object, ByVal e As EventArgs)
Open("Mp.accdb")
Dim da As New OleDb.OleDbDataAdapter("Select * from Caldera", cn)
Dim ds As New DataSet
dgv.DataSource = ds.Tables("Caldera")
Dim FechaHoy = Format(Now.Today, "Short Date")
'For Each row As DataGridViewRow In dgv.Rows
For Fila As Integer = 0 To dgv.Rows.Count - 1
Dim miVto As String = dgv.Rows(Fila).Cells("VtoGarantia").Value
If miVto > FechaHoy ThenMe.dgv.Rows(Fila).Cells("Vto").Value = "Si"
End If
Next
Try
da.Fill(ds, "Caldera")
Dim cb As OleDbCommandBuilder
cb = New OleDbCommandBuilder(da)
cb.GetUpdateCommand()
da.Update(dt)
cn.Close()
MsgBox("Los Vtos han sido actualizados")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, ToString)
End Try
End Sub
Haber si alguna persona puede ayudarme a saber cual es mi error.
Muchas gracias y un saludo
Valora esta pregunta
0