MASCARAR INFORMACAO NO DATAGRIDVIEW
montei uma pequena aplicação e inserir um datagridview no form, a tabela foi criada pelo SQL compact e definido a coluna como datetime( nao sei se é possivel colocar apenas time)
farei o lançamento de uma hora por um campo maskdedtextbox no form,
meu problema é q depois que faço o lançamento no maskded textbox e passo para o proximo maskdedtextbox, a hora que gostaria de lançar como time [Ô]00:00[Ô]
muda para long [Ô]quarta-feira 08 de fevereiro de 2012, 00:00[Ô]
a hora fica salva correta como lancei, mas este complemento da data que gostaria de mascarar ou retirar.
Isto é possivel?
utilizo visual studio 2010 com sql 2008
Grato
farei o lançamento de uma hora por um campo maskdedtextbox no form,
meu problema é q depois que faço o lançamento no maskded textbox e passo para o proximo maskdedtextbox, a hora que gostaria de lançar como time [Ô]00:00[Ô]
muda para long [Ô]quarta-feira 08 de fevereiro de 2012, 00:00[Ô]
a hora fica salva correta como lancei, mas este complemento da data que gostaria de mascarar ou retirar.
Isto é possivel?
utilizo visual studio 2010 com sql 2008
Grato
Como você esta fazendo o insert?
Explica melhor. Você quer formatar o valor que aparece no datagrid?
vendo os campos da tabela, lancei o dia (09/02) com entrada de trabalho as (8:30). mas fiz este lançamento no dia 08 e a informação do dia corrente esta sendo armazenado na tabela.
na tabela na coluna horario_entrada ele mostra a informação (08/02/2012 8:30), gostaria que aparecesse somente a informação da hora (08:30).
nos maskedtextbox que uso para lançar as informações ele tambem fica aparente a informação referente ao dia de lançamento (08/02)
http://www.macoratti.net/vbn5_mdt.htm
estou seguindo um exemplo desse link, nao sei informar como esta sendo feito o insert, ainda estou estudando sobre o datagridview,
na tabela que estou usando seleciono detail no datasource e insiro no form.
Grato
na tabela na coluna horario_entrada ele mostra a informação (08/02/2012 8:30), gostaria que aparecesse somente a informação da hora (08:30).
nos maskedtextbox que uso para lançar as informações ele tambem fica aparente a informação referente ao dia de lançamento (08/02)
http://www.macoratti.net/vbn5_mdt.htm
estou seguindo um exemplo desse link, nao sei informar como esta sendo feito o insert, ainda estou estudando sobre o datagridview,
na tabela que estou usando seleciono detail no datasource e insiro no form.
Grato
Alevale, vou me informar sobre esse comando
Grato
Grato
Cara, se possÃvel, poste seu código aqui para analisarmos.
Att,
Lucas
Att,
Lucas
fonte do form
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing.Printing
Public Class Form1
[ô]variaveis para impressao
Dim cmd As SqlCommand
Private paginaAtual As Integer = 1
Private MyConnection As SqlConnection
Private Leitor As SqlDataReader
Private RelatorioTitulo As String
Private Sub TblRegHorariosBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.TblRegHorariosBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.PontoDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]TODO: This line of code loads data into the [ô]PontoDataSet.tblRegHorarios[ô] table. You can move, or remove it, as needed.
Me.TblRegHorariosTableAdapter.Fill(Me.PontoDataSet.tblRegHorarios)
[ô]TODO: This line of code loads data into the [ô]PontoDataSet.tblRegHorarios[ô] table. You can move, or remove it, as needed.
Me.TblRegHorariosTableAdapter.Fill(Me.PontoDataSet.tblRegHorarios)
End Sub
[ô]realizar calculo de horas
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TblRegHorariosDataGridView.SelectedRows.Count > 0 Then
[ô]seleciona tabela
Dim drc As DataGridViewSelectedRowCollection = TblRegHorariosDataGridView.SelectedRows
[ô]variaveis
Dim dblHora As Double
Dim dblMinutos As Double
Dim dblTempoTotal As Double
dblTempoTotal = 0
Dim dblthora As Double
Dim dblTminuto As Double
Dim dbltempoalmoco As Double
dbltempoalmoco = 0
[ô]soma das horas trabalhadas e de almoco
For i As Integer = 0 To drc.Count - 1
Dim dbltemalmoco As Double
Dim almocoe As String
Dim almocos As String
Dim dblTemp As Double
Dim dataE As String
Dim dataS As String
dataE = drc(i).Cells(2).Value.ToString
dataS = drc(i).Cells(3).Value.ToString
almocoe = drc(i).Cells(4).Value.ToString
almocos = drc(i).Cells(5).Value.ToString
dbltemalmoco = DateDiff([Ô]N[Ô], CDate(almocoe), CDate(almocos))
dbltempoalmoco = dbltempoalmoco + dbltemalmoco
dblTemp = DateDiff([Ô]N[Ô], CDate(dataE), CDate(dataS))
dblTempoTotal = dblTempoTotal + dblTemp
Next
[ô]conversao das horas
dblthora = CLng(dbltempoalmoco / 60)
dblTminuto = dbltempoalmoco - dblthora * 60
dblHora = CLng(dblTempoTotal / 60)
dblMinutos = dblTempoTotal - dblHora * 60
If dblTminuto < 0 Then
dblTminuto = dblTminuto * -1
End If
If dblMinutos < 0 Then
dblMinutos = dblMinutos * -1
End If
[ô]subtracao das horas de almoco das trabalhadas
dblHora = dblHora - dblthora
dblMinutos = dblMinutos - dblTminuto
[ô]mostra resultado
Label1.Text = CStr(dblHora) & [Ô]:[Ô] & CStr(dblMinutos)
End If
End Sub
Private Sub TblRegHorariosBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TblRegHorariosBindingNavigatorSaveItem.Click
Me.Validate()
Me.TblRegHorariosBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.PontoDataSet)
End Sub
Imports System.Data
Imports System.Data.SqlClient
Imports System.Drawing.Printing
Public Class Form1
[ô]variaveis para impressao
Dim cmd As SqlCommand
Private paginaAtual As Integer = 1
Private MyConnection As SqlConnection
Private Leitor As SqlDataReader
Private RelatorioTitulo As String
Private Sub TblRegHorariosBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.TblRegHorariosBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.PontoDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
[ô]TODO: This line of code loads data into the [ô]PontoDataSet.tblRegHorarios[ô] table. You can move, or remove it, as needed.
Me.TblRegHorariosTableAdapter.Fill(Me.PontoDataSet.tblRegHorarios)
[ô]TODO: This line of code loads data into the [ô]PontoDataSet.tblRegHorarios[ô] table. You can move, or remove it, as needed.
Me.TblRegHorariosTableAdapter.Fill(Me.PontoDataSet.tblRegHorarios)
End Sub
[ô]realizar calculo de horas
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TblRegHorariosDataGridView.SelectedRows.Count > 0 Then
[ô]seleciona tabela
Dim drc As DataGridViewSelectedRowCollection = TblRegHorariosDataGridView.SelectedRows
[ô]variaveis
Dim dblHora As Double
Dim dblMinutos As Double
Dim dblTempoTotal As Double
dblTempoTotal = 0
Dim dblthora As Double
Dim dblTminuto As Double
Dim dbltempoalmoco As Double
dbltempoalmoco = 0
[ô]soma das horas trabalhadas e de almoco
For i As Integer = 0 To drc.Count - 1
Dim dbltemalmoco As Double
Dim almocoe As String
Dim almocos As String
Dim dblTemp As Double
Dim dataE As String
Dim dataS As String
dataE = drc(i).Cells(2).Value.ToString
dataS = drc(i).Cells(3).Value.ToString
almocoe = drc(i).Cells(4).Value.ToString
almocos = drc(i).Cells(5).Value.ToString
dbltemalmoco = DateDiff([Ô]N[Ô], CDate(almocoe), CDate(almocos))
dbltempoalmoco = dbltempoalmoco + dbltemalmoco
dblTemp = DateDiff([Ô]N[Ô], CDate(dataE), CDate(dataS))
dblTempoTotal = dblTempoTotal + dblTemp
Next
[ô]conversao das horas
dblthora = CLng(dbltempoalmoco / 60)
dblTminuto = dbltempoalmoco - dblthora * 60
dblHora = CLng(dblTempoTotal / 60)
dblMinutos = dblTempoTotal - dblHora * 60
If dblTminuto < 0 Then
dblTminuto = dblTminuto * -1
End If
If dblMinutos < 0 Then
dblMinutos = dblMinutos * -1
End If
[ô]subtracao das horas de almoco das trabalhadas
dblHora = dblHora - dblthora
dblMinutos = dblMinutos - dblTminuto
[ô]mostra resultado
Label1.Text = CStr(dblHora) & [Ô]:[Ô] & CStr(dblMinutos)
End If
End Sub
Private Sub TblRegHorariosBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TblRegHorariosBindingNavigatorSaveItem.Click
Me.Validate()
Me.TblRegHorariosBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.PontoDataSet)
End Sub
Tópico encerrado , respostas não são mais permitidas