domanda dell'ultimo minuto per quelli veramente nabbi come me .....
perche' questo codice non funziona (le textbox rimangono vuote anche se la column view e' piena):
Dim Indice As Integer
Try Indice = ColumnView_Media.Current.Key
If Error Then Return
Form_Edit.Load
'Message.Info("indice=" & Indice, "OK")
Form_Edit.Label_id.Text = Indice
Form_Edit.TextBox_Programma.Text = ColumnView_Media.Item[1]
Form_Edit.TextBox_Stagione.Text = ColumnView_Media.Item[2]
Form_Edit.TextBox_Episodio.Text = ColumnView_Media.Item[3]
Form_Edit.TextBox_Durata.Text = ColumnView_Media.Item[4]
Form_Edit.TextBox_Taglist.Text = ColumnView_Media.Item[5]
Form_Edit.DrawingArea_Preview.Tag = ColumnView_Media.Item[6]
Form_Edit.Show
mentre questo si?
Dim Comando As String = "select * from Programs_episodes"
Dim $Con As New Connection
Dim Risultato As Result
$Con.close() ' Close the connection
$Con.Type = "MySQL" ' Type of connection
$Con.Host = DB_server_IP ' Name of the server
$Con.Login = DB_server_DBuser ' User's name for the connection
$Con.Port = DB_server_Port ' Port to use in the connection, usually 3306
$Con.Name = DB_server_DBname ' Name of the database we want to use
$Con.Password = DB_server_DBpass ' User's password
Risultato = $Con.Exec(comando)
For Each Risultato
ColumnView_Media.Add(Risultato!id, Risultato!id, PictureBox_OK.Picture)
ColumnView_Media.Item[1] = Risultato!program
ColumnView_Media.Item[2] = Risultato!season
ColumnView_Media.Item[3] = Risultato!episode_name
ColumnView_Media.Item[4] = Somma(Risultato!Parts)
ColumnView_Media.Item[5] = Risultato!Tags
ColumnView_Media.Item[6] = Risultato!episode_path
Next
come al solito ringrazio anticipatamente