É possível usar macro no VB6 como no harbour ou clipper

[LDOSISTEMAS]

Bom dia a todos

No Clipper e no harbour quando eu podia utilizar o seguinte:
TxtCampo:= "Tabela"+Filial

&TxtCampo.->Nome

Alguns de vocês sabem se no VB6 existe algo semelhante as macro como no exemplo acima?

Att

[JoséQuintas]

Talvez via script.

Código: Selecionar todos

Mas se for campo de arquivo, e usa ADO, rs.Fields( "tabela" & filial ).Value

Dependendo do caso, crie sua rotina "tradutora".

Já esqueci do VB6, qual seria a equivalente, mas também poderia ser parecido com:

Código: Selecionar todos

cCampo = StrTran( cCampo, "[campox]", "outro nome/valor" )

Depende da situação.
Pode ser até array e usar const (equivalente do #define)

campo( field_nome )

Vai ter que ver sua necessidade, e o que se encaixa melhor.