Domanda per Luigi

[LuigiB]

Ciao Mike , ora ho capito .. per fare le altre probve è necessario sostituire sia l'ocx sia l'eseguibile di spaziometria .( prima va fatto il setup dell'ultima versione se non si è fatto già)

fatemi sapere ..

https://www.mediafire.com/file/b1ab160rh19z940/Test_1_6_30.rar/file

 

[Mike58]

Ciao Luigi, fatto come suggerito ora sembra funzionare il tutto.
Trovo la Tabella anche più elegante.
Per ora non riesco a fare altri Test (ahimè me tocca iniziare ed andare a lavorare).

Vi leggerò domani…
Grazie di tutto.

 

[LuigiB]

benissimo .. buon lavoro .. passiamo la palla a legend e agli altri appena mi confermate che funziona faccio il nuovo setup ..

 

[i legend]

Ciao mike buon lavoro
ciao luigi

scaricata la versione 1.6.30
sostituito l ocx
nei titoli anziché il testo viene fuori field_1 ecc.
ora faccio n po di prove e ti dico con più precisione
a dopo

 

[LuigiB]

ciao legend accertati di aversostituito sia l'eseguibile che l'ocx .. mi sembra strano .. comunque per ogni anomalia mi dovresti mandare lo scrpt ...mi sa che l'ocx non l'hai sostituita bene se è vero quanto dici .. forse sbagli percorso ..

 

[i legend]

ciao luigi
allora penso di aver sostituito la ocx
ho utilizzato lo script precedente ,per far vedere che le criticita di prima non ci sono piu

Option Explicit
' lo script crea volutamente l errore per testare la tabella
Sub Main
   Dim idErr:idErr = MsgBox("Vuoi riprodurre l Errore ?",4+32,"Scelta OutPut")
   ReDim aR(0):Call ScegliRuote(aR)
   Dim sRu:sRu = StringaRuote(aR)
   Dim aTit:aTit = Array(0,"ID","Ruota_Ver","F o r m.","Frequenza","Ritardo")
   Call InitTabella(aTit)
   ReDim aNum(90)
   Dim n,j
   For n = 1 To 90
      aNum(n) = n
   Next
   Dim col:col = InitSviluppoIntegrale(aNum,2)
   ReDim aStat(col)
   n = 0
   Do While GetCombSviluppo(aNum)
      n = n + 1
      aStat(n) = n & ";" & sRu & ";" & MyStr(aNum) & ";" & SerieFreqTurbo(EstrazioneIni,EstrazioneFin,aNum,aR,2) & ";" & SerieRitardoTurbo(EstrazioneIni,EstrazioneFin,aNum,aR,2)
      Call AvanzamentoElab(1,col,n)
   Loop
   For n = 1 To UBound(aStat)
      Dim aV:aV = Split("0;" & aStat(n),";")
      Dim aTab: aTab = Array(0,aV(1),aV(2),aV(3),aV(4),aV(5))
      Call AddRigaTabella(aTab)
      Call AvanzamentoElab(1,UBound(aStat),n)
   Next
   If idErr = 6 Then
      Call CreaTabellaOrdinabile()
   Else
      Call CreaTabella()
   End If
End Sub
' con questa funzione riproduco l errore
' utilizzando stringanumeri si ha un altro tipo di errore
Function MyStr(aNum)
   Dim i
   MyStr = ""
   For i = 1 To UBound(aNum)
      MyStr = MyStr & Format2(aNum(i)) & " - "
   Next
   MyStr = RimuoviLastChr(MyStr," - ")
End Function

ti allego le immagini per farti vedere come si comporta
filtro ed ordinamento mi sembra ok

questo è il file che ho sostituito



Ciao e grazie per tutto il lavoro che fai

 

[LuigiB]

ciao Legend , non va bene ... l'ultima versione è di ieri sera .. tu ne hai una che come data ultima modifica porta ieri mattina ....

 

[LuigiB]

nuovo aggiornamento per i test ...

https://www.mediafire.com/file/85ebfbg41l1txu6/Test_1_6_30_b.rar/file

 

[i legend]

Ciao luigi Buona domenica
sono riuscito a sostituire il file
ora sembra andare bene.
Il nuovo file è diverso oppure è per chi vuole aggiornare ? Se è da testare lo scarico.
A dopo
ciao a tutti

 

[i legend]

Mi correggo non va. Esce la stessa foto di mike con le scroll bar in giro per il form

 

[i legend]

ciao ecco un riassunto di come si comporta ora. se clicco sui campi per ordinare va in err.
dice che non puo inizializzare l oggetto

ho sostituito correttamente il file?
a dopo

 

[LuigiB]

ciao Legend , mi sembra che Mike abbia risolto i problemi-

nel tuo caso c'è un problema di registrazione del componente

DEREGISTRA IL COMPONENTE
apri notepad

scrivi regsvr32 LbGrigliaOrd2.ocx /u

salva i lfile come Deregistra.Bat

poi esegui come amministratore il file bat


REGISTRA IL COMPONENTE
ora prendi l'ultimo file che ho postato (l'ocx) valla a sostriture

apri notepad

scrivi regsvr32 c:\windows\system32\LbGrigliaOrd2.ocx
oppure
c:\windows\sysWOW64\LbGrigliaOrd2.ocx

a seconda del tuo percorso

salva il file come Registra.Bat

poi esegui come amministratore il file bat


riprova i test ...

 

[i legend]

Luigi non mi derigistrare io ho syswow64
ho fatto copia incolla , mi apre il cmd ma dice errore
che devo fa?

 

[LuigiB]

gli devi passare il percorso completo a regsvr32 sia per la deregistrazione sia per la registrazione ..

 

[i legend]

Grazie luigi. ci provo.
A dopo

 

[Mike58]

Ciao una buona domenica a tutti.

Io se posso essere di aiuto non ho nessun problema di questo tipo.

installato il test B e relativa ocx, tutti i test vanno a buon fine, anche la scroolbar è presente.

 

[i legend]

ciao Luigi non riesco a deregistrare ho provato anche da prompt, e da esegui
sicuramente sbaglio il percorso.

 

[i legend]

allora sono riuscito a fare con i file.bat come hai detto prof
allora deregistrazione ocx (riuscita)
estratto file in syswow64 (riuscito)
registrazione file (riuscita)
ho provato ma purtroppo il filtro funzione ma se clicco sui campi della tabella per ordinare
viene questo messaggio di errore
se a mike funzia deve essere solo un mio problema

 

[LuigiB]

legend che ne diresti di postare lo script ?

 

[i legend]

Ciao luigi.
scusa se rispondo solo adesso.
qualsiasi script lancio la tabella va in crash.
Più tardi se vuoi ti posto degli esempi , ma anche con gli script già postati qui non funzia.
mi dispiace farti perdere tempo così.
a dopo.