Jump to content

enviar msgbox noutro form


fr
 Share

Recommended Posts

eu tenho um form que mostra o stock dos materiais, a vermelho estao os materiais que estao mxm a acabar e a amarelo os que ainda tenho mts. e tenho outro datagridview em que estao só os q estao a vermelho!

eu quero que ao carregar o meu programa apareça uma msgbox a alertar se o segundo datagridview está preenchido, ou seja, se ha materiais a vermelho!

agradeço a ajuda  👍

Se algum dia alguém lhe disser que o teu trabalho não é o de um profissional, lembra-te : Amadores construíram a Arca de Noé e profissionais, o Titanic

Link to comment
Share on other sites

Explicando melhor:

tenho um form chamado "stock" q tem todos os materiais que tenho. A vermelho estao os materiais que estao prestes a acabar,a amarelo os que ainda demoram a acabar e a branco os que tenho muitos,depois tenho outro datagridview que tem apenas os que estao a acabar, ou seja, os que no datagridview anterior estao a vermelho.

eu quero que ao carregar o meu programa apareça numa msgbox uma msg a dizer "alerta! produtos a acabar..." se houver materiais a acabar,ou seja, se no segundo datagridview houver valores.

eu tenho este codigo no load do form stock:

    'TODO: This line of code loads data into the 'SerralhariaDataSet1.material' table. You can move, or remove it, as needed.

        Me.MaterialTableAdapter.Fill(Me.SerralhariaDataSet1.material)

        For r As Integer = 0 To MaterialDataGridView.Rows.Count - 2

            If MaterialDataGridView.Item(7, r).Value > 3 Then

                DataGridView1.Rows®.Visible = False

            End If

        Next r

        ' colore as notas abaixo de 6 de cor vermelha fundo branco

        Dim estilo_nota As New DataGridViewCellStyle()

        estilo_nota.BackColor = Color.Red

        estilo_nota.ForeColor = Color.White

        'colore as notas abaixo de 6 de cor amarelo fundo branco

        Dim estilo_nota2 As New DataGridViewCellStyle()

        estilo_nota2.BackColor = Color.Yellow

        estilo_nota2.ForeColor = Color.Black

        'colore as notas abaixo de 6 de cor branco fundo branco

        Dim estilo_nota3 As New DataGridViewCellStyle()

        estilo_nota3.BackColor = Color.White

        estilo_nota3.ForeColor = Color.Black

        'percorre as linhas da tabela e verifica se o criterio foi atendido

        'alterando definindo o estilo do item no grid

        For r As Integer = 0 To MaterialDataGridView.Rows.Count - 2

            If MaterialDataGridView.Item(7, r).Value <= 3 Then

                MaterialDataGridView.Item(7, r).Style = estilo_nota

            End If

            If MaterialDataGridView.Item(7, r).Value > 3 And MaterialDataGridView.Item(7, r).Value <= 5 Then

                MaterialDataGridView.Item(7, r).Style = estilo_nota2

            End If

            If MaterialDataGridView.Item(7, r).Value > 5 Then

                MaterialDataGridView.Item(7, r).Style = estilo_nota3

            End If

        Next r

como isto está no evento load so aparece a vermelho quando faço o load , ou seja o codigo que eu tenho actualmente para fazer a msgbox(1apag) é:

For r As Integer = 0 To stock.MaterialDataGridView.Rows.Count - 2

            If stock.MaterialDataGridView.Item(7, r).Value <= 3 Then

                MsgBox("alerta! produtos a acabar...")

            End If

        Next r

e nao resulta porque ao carregar o programa nada está a vermelho.

mudei todos o código para o load do programa(1a pagina) mas nao resultou :S

nao sei se me fiz entender....

Se algum dia alguém lhe disser que o teu trabalho não é o de um profissional, lembra-te : Amadores construíram a Arca de Noé e profissionais, o Titanic

Link to comment
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
 Share

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