Vb.net

kaland
(usa Outra)

Enviado em 13/03/2018 - 12:52h

Olá pessoal, estou esenvolvendo um programa onde efetuo a venda e ao clicar em finalizar gostaria que me retornasse a ultima venda efetuada, para que a mesma eu pudesse imprimir , mas pelo meu código esta me retornando todas as vendas, Se puderem me ajudar agradeceria e muito.

Segue o código

Private Sub btnfinalizar_Click(sender As Object, e As EventArgs) Handles btnfinalizar.Click
Dim numero As Integer
con.Open()
sql = "select * from faturas where nfaturas = '" & txtnfatura.Text & "'"

da = New FbDataAdapter(sql, con)
tabela = New DataTable()
da.Fill(tabela)
numero = tabela.Rows.Count
con.Close()


obterultimoregistro()
F_relfaturas.Show()



End Sub

Private Sub obterultimoregistro()


Try
con.Open()
Dim cmd As New FbCommand
cmd.CommandText = "select MAX (nfaturas) from faturas"
cmd.CommandType = CommandType.Text
cmd.Connection = con
da.SelectCommand = cmd
con.Close()
tabela.Clear()
da.Fill(tabela)

Dim nfaturas As String = tabela.Rows.Item(0).Item(0).ToString


Catch ex As Exception
MsgBox(ex.Message)

End Try


End Sub