226
Programmazione / Re: ...view
« il: 26 Settembre 2013, 23:32:44 »![Occhiolino ;)](http://www.gambas-it.org/smf/Smileys/gambasit-emoticons/wink.gif)
Ho in mente un progetto
![Ghigno ;D](http://www.gambas-it.org/smf/Smileys/gambasit-emoticons/grin.gif)
![Linguaccia :P](http://www.gambas-it.org/smf/Smileys/gambasit-emoticons/tongue.gif)
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
senti ma il chesko che fine ha fatto?dicono sia stato attaccato dalla ceskonite
$hconn.EXEC("ALTER TABLE tipo ALTER COLUMN sconto TYPE double;")
$hconn.EXEC("UPDATE tipo SET sconto = '0'")
For N1 = 0 To MyRS1.Max
chiave1 = "a" & N1
TreeView1.Add(chiave1, MyRS1!primocodice)
TreeView1[chiave1].Picture = Picture["icon/folder1.png"]
sql2 = "select secondocodice from generico"
sql2 = sql2 & " WHERE primocodice = '" & MyRS1!primocodice & "'"
sql2 = sql2 & " GROUP BY secondocodice"
sql2 = sql2 & " ORDER BY secondocodice"
MyRS2 = avvio.$myconn.Exec(sql2)
If MyRS2.Available = True Then
For N2 = 0 To MyRS2.Max
chiave2 = chiave1 & "b" & N2
TreeView1.Add(chiave2, MyRS2!secondocodice,, chiave1)
TreeView1[chiave2].Picture = Picture["icon/folder2.png"]
.......
$valoretree = TreeView1.Item.Key
$valoretree = Replace($valoretree, "a", "")
$valoretree = Replace($valoretree, "b", ";")
....
items = Split($valoretree, ";")
$cod1 = items[0]
$cod2 = items[1]
...
ma che fine hai fatto?Stò provando distro
Dim Pdf As Object
Randomize
pdf = Object.New(name_Report, ["Portrait", "mm", "A4"]) ' oppure "Landscape"
pdf.Open()
pdf.AliasNbPages()
pdf.Data()
pdf.Output(MyReport, False)