combobox e atualizar do banco de dados

[neto_23]

vejam essa linha de comando

vg_trans:= {}

v_gradetrans = space(01)

REDEFINE COMBOBOX v_gradetrans1 VAR v_gradetrans ITEMS vg_trans ;

ID 4029 OF oCeca6 ;

when substr(v_descricao,1,1) # ' ' ;

UPDATE;

color nRgb(0,0,0), nRGB(255,255,255)

// outra rotina valid de um get produto

sele 0

cvar1 = "movim2"+nl

csql = "select * from "+cvar1+" where link = "+sqlntrim(v_link)+" and produto = "+sqlntrim(v_produto)

csql = csql + " and sql_deleted = 'F'"

csql = csql + " order by link,produto"

use sql(csql) alias movim2sqlx via 'Mysql'

go top

if reccount() >= 1

v_descricao = movim2sqlx->descricao

vg_trans:= {alltrim(movim2sqlx->complemento)} //itens adicionado conforme a tabela

v_gradetrans = alltrim(movim2sqlx->complemento) //aqui seleciona o que estava na tabela

v_quantidade = movim2sqlx->quantidade

v_valor = movim2sqlx->valor

v_descontosp = movim2sqlx->descontos

v_total = v_quantidade * v_valor

v_ipi = movim2sqlx->ipi

v_icms = movim2sqlx->icms

v_produto1 :refresh()

v_descricao1 :refresh()

v_gradetrans1:SetItems(vg_trans)

v_gradetrans1:show()

v_gradetrans1:update()

v_gradetrans1:Refresh()

id=code>id=code>

na linha citada acima quando dou um duplo click no listbox era para o combobox atualizar com a opção da tabela, mas não esta fazendo, traz o item da tabela mas não selecionado

grato pela ajuda

fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

programadorcp80@hotmail.com.br ;

[neto_23]

vejam essa linha de comando

vg_trans:= {}

v_gradetrans = space(01)

REDEFINE COMBOBOX v_gradetrans1 VAR v_gradetrans ITEMS vg_trans ;

ID 4029 OF oCeca6 ;

when substr(v_descricao,1,1) # ' ' ;

UPDATE;

color nRgb(0,0,0), nRGB(255,255,255)

// outra rotina valid de um get produto

sele 0

cvar1 = "movim2"+nl

csql = "select * from "+cvar1+" where link = "+sqlntrim(v_link)+" and produto = "+sqlntrim(v_produto)

csql = csql + " and sql_deleted = 'F'"

csql = csql + " order by link,produto"

use sql(csql) alias movim2sqlx via 'Mysql'

go top

if reccount() >= 1

v_descricao = movim2sqlx->descricao

vg_trans:= {alltrim(movim2sqlx->complemento)} //itens adicionado conforme a tabela

v_gradetrans = alltrim(movim2sqlx->complemento) //aqui seleciona o que estava na tabela

v_quantidade = movim2sqlx->quantidade

v_valor = movim2sqlx->valor

v_descontosp = movim2sqlx->descontos

v_total = v_quantidade * v_valor

v_ipi = movim2sqlx->ipi

v_icms = movim2sqlx->icms

v_produto1 :refresh()

v_descricao1 :refresh()

v_gradetrans1:SetItems(vg_trans)

v_gradetrans1:show()

v_gradetrans1:update()

v_gradetrans1:Refresh()

id=code>id=code>

na linha citada acima quando dou um duplo click no listbox era para o combobox atualizar com a opção da tabela, mas não esta fazendo, traz o item da tabela mas não selecionado

grato pela ajuda

fw10.8harbour-xDev.70 Studio-bcc582-Mysql-Pelles

programadorcp80@hotmail.com.br ;