ece apertando espaço, aparece uma inputbox, eu informo a tabela e ele gera uma lista dropdown com os campos.
MinhaTabela.MeuCampoPorém, se eu fizer assim:
lnId = ece apertar espaço para disparar o script, o script não funciona. Pq isso acontece? O erro é comigo ou é no VFP?
LPARAMETERS toFoxCode IF (toFoxCode.Location # 0) AND (toFoxCode.Location # 1) AND (toFoxCode.Location # 10) Return toFoxCode.UserTyped ENDIF toFoxCode.ValueType =[L] LOCAL lnTotalCampos,lsTabela,lsRetorno LOCAL ARRAY laCampos(1) lsTabela = INPUTBOX([Nome da Tabela: ]) IF EMPTY(lsTabela) MESSAGEBOX ([Erro no script: nenhuma tabela foi especificada.],0,[Erro numero 1]) RETURN toFoxCode.UserTyped ENDIF IF NOT FILE(lsTabela + [.DBF]) MESSAGEBOX([Erro no script: a tabela especificada não existe nos seus caminhos de procura. Verifique o seu SET("PATH").],64,[Erro numero 2]) RETURN toFoxCode.UserTyped ENDIF IF NOT USED(lsTabela) USE (lsTabela) IN 0 ENDIF SELECT (lsTabela) lnTotalCampos = AFIELDS(laCampos) DIMENSION toFoxCode.Items(lnTotalCampos,2) FOR i = 1 to lnTotalCampos toFoxCode.Items(i,1) = laCampos(i,1) toFoxCode.Items(i,2) = laCampos(i,2) + [ (] + ALLTRIM(TRANSFORM(laCampos(i,3))) +[)] ENDFOR TEXT TO lsRetorno NOSHOW <<ALLTRIM(LOWER(lsTabela))>>~ ENDTEXT RETURN TEXTMERGE(lsRetorno)Qualquer ajuda será muito apreciada.