Jump to content
Sign in to follow this  
Lythari

Ajuda EM VB

Recommended Posts

Lythari

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

Share this post


Link to post
Share on other sites
anolsi

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.


"Nós somos o que fazemos repetidamente, a excelência não é um feito, e sim, um hábito."
Não respondo a questões por PM que possam ser colocadas no fórum!

Share this post


Link to post
Share on other sites
anolsi

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()


"Nós somos o que fazemos repetidamente, a excelência não é um feito, e sim, um hábito."
Não respondo a questões por PM que possam ser colocadas no fórum!

Share this post


Link to post
Share on other sites
Lythari

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...

😲

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

52142011.png

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.