Não há respostas para este tópico

[FREITAS]

Boa tarde, pessoal,
Estou aqui na batalha, as dúvidas são muitas mas não tenho tido muita sorte na solução. Quem sabe agora dou sorte.
Criei o código abaixo e preciso o seguinte:
Comparar o estoque atual com o estoque mínimo e toda vez que o estoque atual chegar num valor igual ou abaixo do valor do estoque mínimo, uma label me dizer "Favor repor estoque".
Obs: vEA - Valor do Estoque Atual
vEM - Valor do estoque Mínimo
Eu comparo uma label com a outra e se "vEA <= vEM" me retorna, em uma outra label, a mensagem "Favor repor o estoque".
Não sei se tem que fazer conversão para que seja entendido como número, talvez algo assim, mas também se for não sei por onde começar. Conto com a valiosa ajuda de vocês que sabem, por favor.

Private Sub txtCod_materiais_produtos_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCod_materiais_produtos.LostFocus, txtCod_materiais_produtos.LostFocus
Dim cs As String = My.Settings.EstoqueConnectionString
Dim conect As New OleDb.OleDbConnection
conect.ConnectionString = cs
Try
conect.Open()
Dim selcom As New OleDb.OleDbCommand
selcom.Connection = conect
selcom.CommandText = "SELECT materiais_produtos FROM tb_estoque WHERE cod_materiais_produtos=" & "txtCod_materiais_produtos.Text"

Dim vEA As String = selcom.ExecuteScalar
If vEA <> "" Then
lblEstoque_atual.Text = vEA
lblEstoque_atual.ForeColor = Color.Black
txtEstoque_atual.Text = lblEstoque_atual.Text
End If
Dim vEM As String = selcom.ExecuteScalar
If vEM <> "" Then
lblEstoque_minimo.Text = vEM
lblEstoque_minimo.ForeColor = Color.Black
txtEstoque_minimo.Text = lblEstoque_minimo.Text
End If
If vEA <= vEM Then
lblAlerta_estoque.text = ("Repor Estoque")
Else
lblAlerta_estoque.Text = ""
End If

Catch ex As Exception

End Try
End Sub



Obrigado

FREITAS