ABRIR FORMUL?RIO COM OS DADOS QUE FOI FECHADO

SANROMAN 08/07/2015 22:28:41
#448611

Olá amigos

Como faço para, ao abrir um formulário, mostrar os mesmos dados com que foi fechado?

Estou tentando usar o seguinte código:

[Code=vbnet] Private Sub btnVendas_Click(sender As Object, e As EventArgs) Handles btnVendas.Click

Dim sqlCon As New SqlConnection(strCmd)
Dim strSql As String = [Ô]SELECT * [Ô] & _
[Ô]FROM TB_Caixa [Ô] & _
[Ô]WHERE StatusCaixa = [ô]C A I X A A B E R T O[ô][Ô]

Dim sqlCmd As New SqlCommand(strSql, sqlCon)
Dim da As New SqlDataAdapter(sqlCmd)
Dim dr As SqlDataReader

sqlCmd.Connection.Open()
dr = sqlCmd.ExecuteReader

If dr.HasRows Then
frmCaixa.Show()
frmCaixa.txtNumCaixa.Text = dr([Ô]NumCaixa[Ô]).ToString
frmCaixa.txtHoraCX.Text = dr([Ô]DataCaixa[Ô]).ToString
frmCaixa.lblStatusCX.Text = dr([Ô]StatusCaixa[Ô]).ToString
frmCaixa.txtVendedor.Text = dr([Ô]ReponsavelCaixa[Ô]).ToString
frmCaixa.txtEntrada.Text = dr([Ô]HoraEntRespCaixa[Ô]).ToString
frmCaixa.txtSaldoAtual.Text = dr([Ô]SaldoAtualCaixa[Ô]).ToString
frmCaixa.txtSaldoAnterior.Text = dr([Ô]SaldoAnteriorCaixa[Ô]).ToString
frmCaixa.txtTotVendaDia.Text = dr([Ô]VendaCaixa[Ô]).ToString
frmCaixa.txtTotPrazoRecebido.Text = dr([Ô]VendaPrazoRecebCaixa[Ô]).ToString
frmCaixa.txtTotalSuplemento.Text = dr([Ô]SuplementoCaixa[Ô]).ToString
frmCaixa.txtTotalEntradas.Text = dr([Ô]TotalEntradaCaixa[Ô]).ToString
frmCaixa.txtTotalSaida.Text = dr([Ô]SangriaCaixa[Ô]).ToString
frmCaixa.txtTotalDesconto.Text = dr([Ô]DescontoCaixa[Ô]).ToString
frmCaixa.txtTotalSaidaDia.Text = dr([Ô]TotalSaidaCaixa[Ô]).ToString

Else
frmSelecionarVendedor.Show()
End If

dr.Close()
sqlCon.Close()

End Sub [/code]

Dá o seguinte erro.

Tentativa inválida de leitura quando não existem dados.

Mas os dados estão na tabela.

Fico no aguardo.

Abraços