Cita: Sub Sr_carga()
Ds_Tcont.Clear()
SqlM = "Select percod,pernom,perapp,perapm from tpers"
'If DTP_dato01.Text <> "" Then SqlM = SqlM & " where percod ='" & DTP_dato02.Text & "'"
Da_Tcont = New MySqlDataAdapter(SqlM, CO) 'DataAdapter Tcont
Da_Tcont.Fill(Ds_Tcont, "Tcont") 'Dataset Tcont
Sr_Adiciona_Columnas() 'llamas a la subrutina Sr_Adiciona_Columnas
DGV1.DataSource = Ds_Tcont.Tables("Tcont")
End Sub
Cita: Sub Sr_Adiciona_Columnas()
SqlM = "Select * from tfecha2"
Ds_Tcont.Tables(0).Columns.Add("Lunes", System.Type.GetType("System.Boolean"))
Ds_Tcont.Tables(0).Columns.Add("Martes", System.Type.GetType("System.Boolean"))
Ds_Tcont.Tables(0).Columns.Add("Miercoles", System.Type.GetType("System.Boolean"))
Ds_Tcont.Tables(0).Columns.Add("Jueves", System.Type.GetType("System.Boolean"))
Ds_Tcont.Tables(0).Columns.Add("Viernes", System.Type.GetType("System.Boolean"))
Dim row As DataRow
For Each row In Ds_Tcont.Tables(0).Rows
P_parm01 = Convert.ToString(row.Item("percod"))
SqlM = "Select feccod from Tfecha2 where "
For i As Integer = 0 To Me.DGV1.Rows.Count - 1
dif = DateDiff(DateInterval.Weekday, var2, var1)
Next
MsgBox("dif" + dif, 16, "Mensaje del sistema")
por ejemplo.. te explico mi código tiene columnas temporales.. en este caso..
lunes, martes, miércoles, jueves y viernes que son de tipo checkbox para marcarse cada vez que un usuario entre a otro sistema, este es un sistema de marcación de asistencia. El for es para cada vez que entre al sistema de marcación.. se guarde en una variable temporal y después se refleje en ese datagrid