Olá Pessoal
Tenho um form de consulta Contas Receber, ele mostra os clientes devendo na loja num grid em duas colunas(idContasReceb, NomedoCliente) feito isso eu pego o evento mouseup na linha do grid para selecionar somente essa linha com esse código:
Private
Sub GridConsultaContasReceber_MouseUp(ByVal sender AsObject, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GridConsultaContasReceber.MouseUp'Clique do mouse para navegar nos registrosDim pt As Point = New Point(e.X, e.Y)Dim hti As DataGrid.HitTestInfo = GridConsultaContasReceber.HitTest(CType(pt, Point))If hti.Type = DataGrid.HitTestType.Cell ThenGridConsultaContasReceber.CurrentCell =
New DataGridCell(hti.Row, hti.Column)GridConsultaContasReceber.Select(hti.Row)
AQUI EU CHAMO O MEU MÉTODO DA CLASSE cSQLSERVER
frmContasReceber.setDataRow(cSqlServer.GetContasReceb.Tables(
"ContasReceber, ParcelasaReceber").Rows(GridConsultaContasReceber.CurrentRowIndex))frmContasReceber.Show()
Me.Close()EndIfEndSubEis o Método:
PublicSharedFunction GetContasReceb() As DataSetDim command As SqlCommand = con.CreateCommand()Dim adapter AsNew SqlDataAdaptercommand.CommandText =
"Select ContasReceber.idContasReceb, ContasReceber.idCliente, valorParcela - valorAbatido as valordevido, Clientes.Cnome, ContasReceber.dataRecebe, ContasReceber.valor, ContasReceber.numerParcelas, ParcelasaReceber.idParcela,ParcelasaReceber.idcontasreceb, ParcelasaReceber.datavencimento, ParcelasaReceber.valorparcela, ParcelasaReceber.valorabatido, ParcelasaReceber.dataliquidacao, ParcelasaReceber.pago from ContasReceber inner join Clientes on ContasReceber.idCliente = Clientes.idCliente , ParcelasaReceber where Clientes.idCliente = ContasReceber.idCliente and ContasReceber.idContasReceb = ParcelasaReceber.idContasReceb and ContasReceber.idContasReceb = @idContasReceb"command.Parameters.Add(
"@idContasReceb", SqlDbType.Int).Value = frmContasReceber.lblidContasReceb.Textadapter.SelectCommand = command
ds =
New DataSetadapter.Fill(ds,
"ContasReceber, ParcelasaReceber")command.ExecuteNonQuery()
Return dsEndFunctionTudo isso para abrir um outro form com essas duas tabelas
frmContasReceber.Show()
Só que tenho que pegar o codigo(lblContasReceb.text) para mostrar somente o cliente clicado no evento.
Mas ocorre o seguinte ERRO:
Failed to convert parameter value from a String to a Int32.
Não sei porque ele nao converte?
Não sei se fui claro mas é bastante codigo aqui que eu uso para poder explicar.
Obrigado.