Jump to content
Sign in to follow this  
franciscocsilva

Dataviewgrid dúvida

Recommended Posts

franciscocsilva

Boas, estou a criar uma base datagridview, o que acontece é que em algumas linhas não quero listar uns dados, então criei umas checkboxs.

o que me acontece é quando check um desses dados a inserir ele cria duas linhas

fica aqui as linhas de programação se houver alguém que me ajude.

        If cont <= linha Then

            Grelha.Rows.Add("vão " & cont, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox2.Text, TextBox7.Text, TextBox8.Text, TextBox19.Text, ComboBox6.Text, TextBox10.Text, ComboBox4.Text, TextBox9.Text, ComboBox2.Text, TextBox14.Text, ComboBox5.Text, ComboBox3.Text, TextBox11.Text)
            cont += 1

            If CheckBox1.Checked And CheckBox2.Checked Then
                Grelha.Rows.Add("vão " & cont, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox2.Text, TextBox7.Text, TextBox8.Text, TextBox19.Text, ComboBox6.Text, TextBox10.Text, ComboBox4.Text, TextBox9.Text, ComboBox2.Text, TextBox14.Text, ComboBox5.Text, ComboBox3.Text, TextBox11.Text)
                cont += 1
            End If

            If CheckBox1.Checked Then
                Grelha.Rows.Add("vão " & cont, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox2.Text, TextBox7.Text, TextBox8.Text, TextBox19.Text, ComboBox6.Text, TextBox10.Text, ComboBox4.Text, TextBox9.Text, ComboBox2.Text, TextBox14.Text, ComboBox5.Text, ComboBox3.Text, TextBox11.Text)
                cont += 1
            End If

            If CheckBox2.Checked Then
                Grelha.Rows.Add("vão " & cont, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox2.Text, TextBox7.Text, TextBox8.Text, TextBox19.Text, ComboBox6.Text, TextBox10.Text, ComboBox4.Text, TextBox9.Text, ComboBox2.Text, TextBox14.Text, ComboBox5.Text, ComboBox3.Text, TextBox11.Text)
                cont += 1
            End If
        Else
            MsgBox("Já introduziu todos os " + linha.ToString + " Vãos!!!")
        End If

Fica desde já os meus agradecimentos.


Francisco Cruz Silvawww.lojadosdesenhadores.blogspot.com

Share this post


Link to post
Share on other sites
Caça

Nestes casos não deves utilizar IFs encadeados, tenta assim

        If cont <= linha Then
            Grelha.Rows.Add("vão " & cont, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox2.Text, TextBox7.Text, TextBox8.Text, TextBox19.Text, ComboBox6.Text, TextBox10.Text, ComboBox4.Text, TextBox9.Text, ComboBox2.Text, TextBox14.Text, ComboBox5.Text, ComboBox3.Text, TextBox11.Text)
            cont += 1
        ElseIf CheckBox1.Checked And CheckBox2.Checked Then
            Grelha.Rows.Add("vão " & cont, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox2.Text, TextBox7.Text, TextBox8.Text, TextBox19.Text, ComboBox6.Text, TextBox10.Text, ComboBox4.Text, TextBox9.Text, ComboBox2.Text, TextBox14.Text, ComboBox5.Text, ComboBox3.Text, TextBox11.Text)
            cont += 1
        ElseIf CheckBox1.Checked Then
            Grelha.Rows.Add("vão " & cont, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox2.Text, TextBox7.Text, TextBox8.Text, TextBox19.Text, ComboBox6.Text, TextBox10.Text, ComboBox4.Text, TextBox9.Text, ComboBox2.Text, TextBox14.Text, ComboBox5.Text, ComboBox3.Text, TextBox11.Text)
            cont += 1
        ElseIf CheckBox2.Checked Then
            Grelha.Rows.Add("vão " & cont, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox2.Text, TextBox7.Text, TextBox8.Text, TextBox19.Text, ComboBox6.Text, TextBox10.Text, ComboBox4.Text, TextBox9.Text, ComboBox2.Text, TextBox14.Text, ComboBox5.Text, ComboBox3.Text, TextBox11.Text)
            cont += 1
        Else
        MsgBox("Já introduziu todos os " + linha.ToString + " Vãos!!!")
        End If


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
franciscocsilva

Já inseri como disseste o problema é que quando corro não preenche a tabela se colocar os checks.

Será que tem alguma coisa com esta parte da programação de quando dou a ordem no  botão de inserção de linha?

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click


        If TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox2.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Or TextBox19.Text = "" Or ComboBox6.Text = "" Or TextBox9.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or TextBox11.Text = "" Then
            If System.Windows.Forms.MessageBox.Show("Um dos valores não foi preenchido", "observação", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Error) = Windows.Forms.DialogResult.Yes Then
            End If
        ElseIf CheckBox1.Checked Then
            If TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox2.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Or TextBox19.Text = "" Or ComboBox6.Text = "" Or TextBox9.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or TextBox11.Text = "" Or TextBox10.Text = "" Or ComboBox4.Text = "" Then
                If System.Windows.Forms.MessageBox.Show("O valor das Armaduras de Reforço Superior não foi preenchido", "observação", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Error) = Windows.Forms.DialogResult.Yes Then
                End If
            End If
        ElseIf CheckBox2.Checked Then
            If TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox2.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Or TextBox19.Text = "" Or ComboBox6.Text = "" Or TextBox9.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or TextBox11.Text = "" Or TextBox14.Text = "" Or ComboBox5.Text = "" Then
                If System.Windows.Forms.MessageBox.Show("O valor das Armaduras de Reforço inferior não foi preenchido", "observação", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Error) = Windows.Forms.DialogResult.Yes Then
                End If
            End If
       ElseIf CheckBox1.Checked And CheckBox2.Checked Then
            If TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox2.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Or TextBox19.Text = "" Or ComboBox6.Text = "" Or TextBox9.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or TextBox11.Text = "" Or TextBox14.Text = "" Or ComboBox5.Text = "" Or TextBox10.Text = "" Or ComboBox4.Text = "" Then
                If System.Windows.Forms.MessageBox.Show("O valor das Armaduras de Reforço inferior não foi preenchido", "observação", System.Windows.Forms.MessageBoxButtons.OK, System.Windows.Forms.MessageBoxIcon.Error) = Windows.Forms.DialogResult.Yes Then
                End If
            End If
        Else
            escrevergrelha()
            limpardados()
        End If

Já agora como se coloca o código formatado como fazes nos teus posts???

obrigado pela atenção


Francisco Cruz Silvawww.lojadosdesenhadores.blogspot.com

Share this post


Link to post
Share on other sites
Caça

Pode ser por causa da tua primeira condição


Usa Geshi


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
franciscocsilva

obrigado, mas para um novato como eu não percebi... alguém com alguma disponibilidade para ajudar um novato.


Francisco Cruz Silvawww.lojadosdesenhadores.blogspot.com

Share this post


Link to post
Share on other sites
Caça

Suponho que o código que estás a utilizar está dentro do sub escrevergrelha, por isso só entra aqui se todos os Ifs anteriores forem falsos.


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
franciscocsilva

sim é isso.

pelo que percebi existe conflitos, acho que vou tirar os checkbox, deve ficar mais simples em termos de programação para mim.

Obrigado


Francisco Cruz Silvawww.lojadosdesenhadores.blogspot.com

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.