Italian Problema con Macro-Sustitution &

Lello1964

Well-Known Member
Licensed User
Longtime User
Grazie per la vostra risposta, ma forse ho esposto male il mio problema.

vi faccio un esempio diverso :

Sub Activity_Create(FirstTime As Boolean)
'Activity.LoadLayout("Layout1")
Dim sqlqry As String
' If File.ExternalWritable Then TargetDir = File.DirDefaultExternal Else TargetDir = File.DirInternal
File.Copy(File.DirAssets, DBFileName, DBFileDir, DBFileName)
sql1.Initialize(DBFileDir, DBFileName, True)
sqlqry="insert into prova values(1,'prova',10)"
sql1.ExecNonQuery(sqlqry)
sqlqry="insert into prova values(2,'prov 3a',22)"
sql1.ExecNonQuery(sqlqry)
'
sqlqry="select * from prova"
Dim cur As Cursor
Dim a,b,c As String
cur=sql1.ExecQuery(sqlqry)
cur.Position=0
' comando diretto
c="descrizione" ' setto il campo che mi occorre
a=cur.GetString(c )
' mi restituisce msgbox con "prova"
'
Msgbox(a,"esatto")
'
a="cur.GetString(" & Chr(34) & c & Chr(34) & ")"
b="" & a
Msgbox(b,"")
' dovrebbe restituire "prova" ma restituisce cur.GetString("descrizione")
End Sub

***********
Non vi stò a spiegare il perchè della mia richiesta, troppo lungo il discorso.

Programmando in Visual FoxPro, la & mi consente di sosituire un parte di codice con una variabile :

esempio

a=" for i =1"

&a to 10

è come se avessi scritto
for i = 1 to 10

questo è quello che mi serve come macro sostituzione.

grazie


Raffaele
 

IlCasti

Active Member
Licensed User
Longtime User
Dubito fortemente che si possa fare
La variabile viene tradotta come stringa e non come un comando
Quindi il valore che sarà restituito è quello che metti tra ""

Ciao
 
Top