tabella ordinabile ...errore

[fillotto]

Da un poco che non usavo più tabella ordinabile adesso provando uno script con tabellaordinabile mi da errore: -2147221164- interfaccia non registrata.
L'errore lo da anche in tutti i vecchi script la tabella "normale" invece funziona
cosa è successo?

 

[i legend]

Ciao ,io ho la versione 1.6.31 .funziona .

 

[fillotto]

io ho la 1.6.34 win 10 il computer l'ho cambiato da più di 6 mesi e non ricordo di aver avuto a che fare con script con tab ordinabili
Qualche giorno fa ho messo su un programma "Cambia numeri vers 1.2.1 " che mi diceva , come del resto spaziometria,di stare attento.
Tutto qui è quello che posso ricordare-
Siccome Tabella ordinabile ha un ' indubbia utilità chiedo aiuto

 

[fillotto]

Questo è lo script ,che ripeto funziona, si riferisce al lotto svizzero
qui metto " Call CreaTabella(2,1)" ovvero la colonna 2 la voglio ordinata dal + piccolo al + grande funziona tutto siccome è pià comodo avere la possibilità di ordinarea piacimento le colonne che più mi aggradono ho pensatodi togliere quel (2,1) ed aggiungere "ordinabile".
la cosa funziona ma solo a metà nel senso che appare la tabella ordinabile ma andando a ordinare una colonna si guasta totto eappare il messaggio -2147221164- interfaccia non registrata.
Il bello (brutto)è che andando su vecchi script dove cè la tabella ordinabile non funzionano più.Però se spengo e riaccendo i vecchi script funzionano a meno che non vado su questo script lo lancio
e siamo daccapo speriamo che passi da queste parti Mike58
o ilegend o chi sappia dove è l'errore

Sub Main
   Dim num(42,2)
   Dim n(1),ruota(1)
   Dim archFill
   Dim sFile
   Dim sez
   Dim sfilearchivio
   Dim x
   sez = InputBox("Quale Arc Virtuale vuoi prendere in considerazione (Arc 1 ORIG) ? "," 1 - 7 ",1)
   'x = InputBox("che num? ",,1)
   sfilearchivio = GetDirectoryAppData & "Svizzera\svizz" & sez & ".txt"
   Call ApriBaseDatiFT(sfilearchivio,06,",",42)
   Ini = 2
   fin = 730
  SetColorSezione(6)' da qui il colore di fondo in questo caso CELESTE fino a quando non interviene il comando EndColorSezione
   Scrivi "                                                    SEZIONE n°    " & sez,1,,,1,3,,1
Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
Scrivi Space(100) & "Script By Mike58 revisione fillotto",1
Scrivi "Inizio Ricerca.............. " & GetInfoEstrazioneFT(Ini)
Scrivi "Fine Ricerca.............. " & GetInfoEstrazioneFT(fin)
Scrivi "Totali Estrazioni........... " & fin - Ini
EndColorSezione 'fine colore di fondo
                                                  
          ReDim atitoli(6)
   atitoli(1) = " numero "
   atitoli(2) = " ritardo attuale "
   atitoli(3) = " ritardo storico "
   atitoli(4) = " Ritardo storico precedente se superato "
   atitoli(5) = " frequenza  "
   atitoli(6) = " frequenza media in 7 estraz "
   Call InitTabella(atitoli,1,,2,5)
   For x = 1 To 42 ' ciclo for .. next
      a = EstrattoStoricoFT(x,Ini,fin)
      b = EstrattoIncrStoricoFT(x,Ini,fin)
      c = EstrattoRitardoFT(x,Ini,fin)
      d = EstrattoFrequenzaFT(x,Ini,fin)
      e = Round(fin/d,2)
      ReDim avalori(6)
      avalori(1) = x
      avalori(2) = c
      avalori(3) = a
      avalori(4) = b
      avalori(5) = d
      avalori(6) = e
      Call AddRigaTabella(avalori,,,3)
      'Scrivi Ini & "-" & fin,1
      '      Scrivi
      '   Scrivi "ritardo attuale  " & c & " SEZ  " & sez
      '   Scrivi " frequenza media   " & fin/d
      '   Scrivi "Estratto " & x & " " & " swtz Ritardo Storico corrente " & a
      '   Scrivi "Incremento sullo storico precedente     " & b
      '   Scrivi "Ritardo storico precedente se superato  " & a - b
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(2,1)
End Sub

 

[Mike58]

Ciao Fill, ogni tanto capita anche a me.
Non saprei a cosa sia dovuto, ma forse è meglio non usare le Redim e mettere i valori in un array.
Poi se capita ancora chiudi e riapri il programma , ho simulato il tutto su un mio archivio e funziona.

Ricordo anche che Luigi diceva che c'era un problema anche sul size dei caratteri, quindi è consigliabile non usare i parametri della grandezza del size caratteri.

vedi se ti è utile, mi raccomando cambia i parametri del tuo archivio.

Sub Main
   'Dim num(42,2)
   Dim n(1)
   Dim archFill
   Dim sFile
   Dim sez
   Dim sfilearchivio
   Dim x,at,av
   sez = InputBox("Quale Arc Virtuale vuoi prendere in considerazione (Arc 1 ORIG) ? "," 1 - 7 ",1)
   'x = InputBox("che num? ",,1)
   sfilearchivio = GetDirectoryAppData & "ArchivioMillionDay\MillionDay_ordinato.txt"

   Call ApriBaseDatiFT(sfilearchivio,05,";",55)
   Ini = 2
   fin = 730
  SetColorSezione(6)' da qui il colore di fondo in questo caso CELESTE fino a quando non interviene il comando EndColorSezione
   Scrivi "                                                    SEZIONE n°    " & sez,1,,,1,3,,1
Scrivi "Statistica Numeri Con Elenco Ritardi e RitardoMedio",1,,,1,3,,1
Scrivi Space(100) & "Script By Mike58 revisione fillotto",1
Scrivi "Inizio Ricerca.............. " & GetInfoEstrazioneFT(Ini)
Scrivi "Fine Ricerca.............. " & GetInfoEstrazioneFT(fin)
Scrivi "Totali Estrazioni........... " & fin - Ini
EndColorSezione 'fine colore di fondo
                                                 
          'ReDim atitoli(6)
   'atitoli(1) = " numero "
   'atitoli(2) = " ritardo attuale "
   'atitoli(3) = " ritardo storico "
   'atitoli(4) = " Ritardo storico precedente se superato "
   'atitoli(5) = " frequenza  "
   'atitoli(6) = " frequenza media in 7 estraz "
   at = Array(at,"Numero","Rit Att","Rit sto","Rip pr","Freq","Media")
   Call InitTabella(at)
   For x = 1 To 55 ' ciclo for .. next
      a = EstrattoStoricoFT(x,Ini,fin)
      b = EstrattoIncrStoricoFT(x,Ini,fin)
      c = EstrattoRitardoFT(x,Ini,fin)
      d = EstrattoFrequenzaFT(x,Ini,fin)
      e = Round(fin/d,2)
      'ReDim avalori(6)
      'avalori(1) = x
      'avalori(2) = c
      'avalori(3) = a
      'avalori(4) = b
      'avalori(5) = d
      'avalori(6) = e
      av = Array(av,x,c,a,b,d,e)
      Call AddRigaTabella(av)
      'Scrivi Ini & "-" & fin,1
      '      Scrivi
      '   Scrivi "ritardo attuale  " & c & " SEZ  " & sez
      '   Scrivi " frequenza media   " & fin/d
      '   Scrivi "Estratto " & x & " " & " swtz Ritardo Storico corrente " & a
      '   Scrivi "Incremento sullo storico precedente     " & b
      '   Scrivi "Ritardo storico precedente se superato  " & a - b
   Next
  ' Call SetTableWidth("100%")
  Call CreaTabellaOrdinabile
  'Call CreaTabella()
End Sub

 

[fillotto]

Grazie Mike ....funge !!!