Jump to content

d_albino

Members
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Comum

About d_albino

  1. Bom dia! Estou com o seguinte problema ao carregar o registro selecionado: Quando a Grid carrega e eu seleciono, ela leva para um form e eu consigo atualizar perfeitamente, porém, ao fechar o form e repetir a operação, ele traz o primeiro registro do banco, independente dele atender os requisitos solicitados Segue código: Public Class Form3 Private Sub Form3_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load PCarregaDados() End Sub Private Sub PCarregaDados() Using con As SqlConnection = GetConnection() Try con.Open() Dim sql As String = "SELECT idchamado, tiposolicitacao, nomefuncionario,nomesetor,descricaochamado, dataabertura, chamadoencerrado, dataencerramento, meiosolicitacao, logincriador FROM TblChamado INNER JOIN TblSetor nomesetor on (idsetor = setorfuncionario) INNER JOIN TblSolicitacao tiposolicitacao on (idsolicitacao = solicitacaotipo) INNER JOIN TblViaSolicitacao meiosolicitacao on (idmeiosolicitacao = solicitacaomeio) WHERE (TblChamado.chamadoencerrado = 0)" 'Dim sql As String = "SELECT * FROM TblChamado" Dim cmd As SqlCommand = New SqlCommand(sql, con) Dim da As SqlDataAdapter = New SqlDataAdapter(cmd) Dim dt As DataTable = New DataTable da.Fill(dt) dgvChamados.DataSource = dt 'dgvChamados.AllowUserToResizeColumns = False 'dgvChamados.MultiSelect = False 'dgvChamados.Columns.Item(0).HeaderText = "Chamado Nº" 'dgvChamados.Columns.Item(0).AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.ColumnHeader 'dgvChamados.Columns.Item(1).HeaderText = "Tipo da Solicitação" 'dgvChamados.Columns.Item(1).Width = 250 'dgvChamados.Columns.Item(2).HeaderText = "Func.Solicitante" 'dgvChamados.Columns.Item(3).HeaderText = "Setor Solicitante" 'dgvChamados.Columns.Item(3).Width = 200 'dgvChamados.Columns.Item(4).HeaderText = "Descrição do Chamado " 'dgvChamados.Columns.Item(4).Width = 200 'dgvChamados.Columns.Item(5).HeaderText = "Data de Abertura" 'dgvChamados.Columns.Item(5).Width = 160 'dgvChamados.Columns.Item(6).HeaderText = "Encerrado" 'dgvChamados.Columns.Item(6).Visible = False 'dgvChamados.Columns.Item(7).HeaderText = "Data de Encerramento" 'dgvChamados.Columns.Item(7).Visible = False 'dgvChamados.Columns.Item(8).HeaderText = "Forma de Solicitação" 'dgvChamados.Columns.Item(8).Visible = False 'dgvChamados.Columns.Item(9).HeaderText = "Login Criador" 'dgvChamados.Columns.Item(9).Visible = False Catch ex As Exception MsgBox(ex.Message) Finally con.Close() End Try End Using End Sub Private Sub PListaChamados() intIdChamado = dgvChamados.CurrentRow().Cells(0).Value intSoltipo = dgvChamados.CurrentRow().Cells(1).Value strNomefunc = dgvChamados.CurrentRow().Cells(2).Value intSetor = dgvChamados.CurrentRow().Cells(3).Value strDescricao = dgvChamados.CurrentRow().Cells(4).Value datAbrechamado = dgvChamados.CurrentRow().Cells(5).Value booChamadoEnc = dgvChamados.CurrentRow().Cells(6).Value datEncChamado = dgvChamados.CurrentRow().Cells(7).Value intSolmeio = dgvChamados.CurrentRow().Cells(8).Value strLogcriador = dgvChamados.CurrentRow().Cells(9).Value Form4.ShowDialog() PCarregaDados() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End Sub Private Sub dgvChamados_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvChamados.CellMouseDoubleClick 'Form4.CmbSolicitacaoTipo.Enabled = False 'Form4.TxtNomeFuncionario.Enabled = False 'Form4.CmbSetorFuncionario.Enabled = False 'Form4.MskDataAbertura.Enabled = False 'Form4.CmbSolicitacaoMeio.Enabled = False 'Form4.BtnAdNovo.Enabled = False 'Form4.BtnExcluir.Enabled = False 'Form4.BtnSalvar.Enabled = False PListaChamados() End Sub End Class
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.