• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Lythari

Ajuda EM VB

6 mensagens neste tópico

Boas..

Eu tou a fazer um programa em VB 2008,  e na datagrid tem este codigo

 Private Sub DataGridView1_DoubleClick1(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
        Dim cod As String
        Dim bd As New SqlConnection(constr)
        Dim sqlstr As String


        cod = DataGridView1.CurrentRow.Cells(0).Value
        Requisitar.TextBox1.Text = cod


        bd.Open()



        sqlstr = "Select cod_computador , data_entrega, data_reque from requisicoes where cod_computador =" & cod & "And data_reque >= '" & Today & "'"

        Dim cmd As New SqlCommand(sqlstr, bd)
        Dim r As SqlDataReader

        r = cmd.ExecuteReader
        While r.Read
            Requisitar.DataGridView1.Rows.Add(r.Item("cod_computador"), r.Item("data_reque"), r.Item("data_entrega"))
        End While


        Requisitar.Show()
        Me.Hide()
        bd.Close()

então eu escolho o pc 1 se tiver alguma requisição feita lá aparece, eu faço voltar e escolho o PC  2 e aparece-se me a mesma a do 1, enquanto se eu fechar o programa e escolher logo o PC 2 já parece que nao tem nenhuma... deve ter a ver com refresh não??

Edit: passagem do código a geshi Weasel

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Provavelmente não estás a limpar a DataGridView do formulário Requisitar ao esconder esse formulário Também deves utilizar o Me.Hide(), não? Se lá fizeres antes Me.Close(), ele limpa todos os componentes, se não estou em erro.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

faço

DatagridView1.Rows.Clear() 

quando faço o evento do botão??

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

faço

DatagridView1.Rows.Clear() 

quando faço o evento do botão??

Ou fazes ao esconder o formulário Requisitar, ou no inicio deste botão:

Private Sub DataGridView1_DoubleClick1(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
        Dim cod As String
        Dim bd As New SqlConnection(constr)
        Dim sqlstr As String

        'Limpa a Grid
        Requisitar.DatagridView1.Rows.Clear()

        cod = DataGridView1.CurrentRow.Cells(0).Value
        Requisitar.TextBox1.Text = cod


        bd.Open()



        sqlstr = "Select cod_computador , data_entrega, data_reque from requisicoes where cod_computador =" & cod & "And data_reque >= '" & Today & "'"

        Dim cmd As New SqlCommand(sqlstr, bd)
        Dim r As SqlDataReader

        r = cmd.ExecuteReader
        While r.Read
            Requisitar.DataGridView1.Rows.Add(r.Item("cod_computador"), r.Item("data_reque"), r.Item("data_entrega"))
        End While


        Requisitar.Show()
        Me.Hide()
        bd.Close()

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

era mesmo isso muito obrigado ao dois :)

agora outra coisa, como é que eu faço para por exemplo, eu tenho uma requisição, e se eu fizer outra em que esse pc esteja ocupado, aparece uma msgbox a dizer para essa hora o pc estará ocupado...

:eek:

como eu tenho ele deixa fazer as requisições todas...

52142011.png

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora