Newsgroup: it.comp.lang.visual-basic
Titolo: Differenza tra Progetto e Eseguibile

Salve, ho questo tipo di problema.
Ho sviluppato un software di paghe, e praticamente nel progetto In VB
mi funziona correttamente un If Then Else, nell'eseguibile non c'č
verso di avere un funzionamento corretto di questa istruzione in un
modulo particolare.
Come č possibile che c sia questa differenza tra il progetto e
l'eseguibile?!?!

 ha scritto nel messaggio
news:8d24f343.0203...@posting.google.com...

Posta il codice incriminato... cosi' in generale e' difficile dire qualcosa,
e la sfera di cristallo di Paperino e' perennemente in lucidatura (no
offence) ;-)
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

scommetto che testi il valore string restituito di un booleano.
?cStr(True)
ti restituisce "True" nell'IDE e "Vero" nel compilato
Fabio

 e la sfera di cristallo di Paperino e' perennemente in lucidatura
E' vero: sul Ng manca molto una "Maga Magò" o un "Mago Merlino"...  :-)
ciao
ugo

 ha scritto nel messaggio
news:8d24f343.0203...@posting.google.com...

Verifica che la variabile che stai testando con l'IF non sia null,
altrimenti ti esegue sempre l'ELSE.
Ciao

Salve, ho questo tipo di problema.
Ho sviluppato un software di paghe, e praticamente nel progetto In VB
mi funziona correttamente un If Then Else, nell'eseguibile non c'è
verso di avere un funzionamento corretto di questa istruzione in un
modulo particolare.
Come è possibile che c sia questa differenza tra il progetto e
l'eseguibile?!?!
Il codice è  questo....
Nella mia ultima versione ho sostitutito l'If Then Else con un select
Case.
selrou fa parte di una matrice ed è di tipo string * 2
Select Case TIPOVC(Mid(RSAptac!voci, (T * 29) - 28,
2)).selrou(Mid(RSAptac!voci, (T * 29) - 26, 4))
Case 23
       lista.Col = 9
       lista.Text = val(Mid(RSAptac!voci, (T * 29) - 22, 11) *
Mid(RSAptac!voci, (T * 29) - 11, 11))
 
Case 24
       lista.Col = 17
       valvirg = Format(Mid(RSAptac!voci, (T * 29) - 22, 11) * Mid
(RSAptac!voci, (T * 29) - 11, 11), "#,000.00")
       Call AnnulZe(valvirg)
       lista.Text = valvirg
end select
Praticamente nell'eseguibile prende in considerazione tutti i case,
anche se nella matrice "TIPOVC" in questione c sono i valori corretti.
Naturalmente ho provato anche a mettere gli apici "" nei case
"23","24".
Grazie



 ha scritto nel messaggio
news:8d24f343.02032...@posting.google.com...


Per quanto riguarda il tuo problema, non so esserti molto utile... Ma mi
viene da pensare che possa essere dovuto a qualche libreria che e'
disponibile a livello di progetto, ma non per l'eseguibile.
Ti volevo chiedere un favore, scusa se approfitto, ma ho visto che fai
parte dello staff di google, mi sbaglio?
Se cosi' fosse, dato che devo realizzare una toolbar per explorer sulla
falsariga di quella di Google, e non so proprio da dove iniziare, sai
per caso se qualcuno li' da te mi potrebbe essere d'aiuto, per lo meno
per avere una mezza idea?
Ti ringrazio e ti saluto.
Giuliano
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Scrivi:
Dim v as Long
Dim Ln as Long
Dim Idx1 as Long, idx2 as Long
Ln=T * 29
  Idx1 = Val(Mid(RSAptac!voci, Ln - 28,2)) ' <--- Nota il Val()
Idx2 = Val(Mid(RSAptac!voci, Ln - 26, 4))
' Anche se selrou fa parte di
una matrice ed è di tipo string * 2
' il suo indice è per forza nomerico
Msgbox TIPOVC(Idx1).selrou(Idx2)
Fabio
--------------------------------
Inviato via 
http://usenet.iol.it
 

> Sei sicuro che non si verifichino errori di run time?
...non si verificano errori di run time.....!

No so cosa dirti ma, se fossi in te, comincerei a mettere qualche msgbox nei
punti "strategici" con la visualizzazione delle variabili interessate per
verificare il giro che fa il programma.
Prova anche visualizzare ogni singolo elemento di TIPOVC(Mid(RSAptac!voci,
(T * 29) - 28, 2)).selrou(Mid(RSAptac!voci, (T * 29) - 26, 4))
Una spece di debug.
Enrico

Ho già creato un file log, in cui visualizzo tutti i valori delle
variabili, e sono corretti.
La cosa + assurda è che nell'eseguibile, testo anche la condizione
dell'If, e giustamente mi risulta "FALSE", xrò la esegue lo stesso!

....ti sbagli, non faccio parte dello staff di Google. ( come mai hai
pensato questo?)

 ha scritto nel messaggio
news:8d24f343.02032...@posting.google.com...


 Organization: 
http://groups.google.com/

 Organization: 
http://groups.google.com/
:-)
Bye, G.