Newsgroup: it.comp.lang.visual-basic
Titolo: HELP Ma possibile che nessuno lo sa?????

A capo automatico con DataGrid???? C'è una proprietà del controllo che
lo dovrebbe permettere (WrapText).
Il layout però non cambia pur impostandola. Credo sia un problema
legato 
al metodo con cui popolo la griglia... Quindi allego il codice
relativo...
Ringrazio Anticipatamente tutti coloro che mi daranno una mano
---------------------------------------------------------------------------
La prima parte del codice crea la tabella T_Finale. L'utima parte
associa 
tale tabella a Adodc2 che è collegata a DataGrid2, e ne fa il Rebind.
Le string
---------------------------------------------------------------------------
On Error Resume Next 'Se la tabella non esiste, passo all'istruzione
di creazione
cn.Execute "DROP TABLE TFinale" 'Se la tabella esiste già, la cancello
e poi la ricreo
cn.Execute "CREATE TABLE TFinale " & "(x TEXT);" 'Creo la tabella
TFinale
'Aggiungo tanti campi quante sono le relazioni topologiche
NumeroRecord = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
    For i = 0 To NumeroRecord - 1
        cn.Execute "ALTER TABLE TFinale " & "ADD COLUMN " & "Rbc_" &
Adodc1.Recordset!Nome & " TEXT;"
        Adodc1.Recordset.MoveNext
    Next
'Aggiungo tanti record quanti sono le relazioni topologiche
'e ripeto nel primo campo "_" il nome delle relazioni stesse
Adodc1.Recordset.MoveFirst
    For i = 0 To NumeroRecord - 1
        cn.Execute "INSERT INTO TFinale (x) VALUES ('Rab_" +
Adodc1.Recordset!Nome + " ')"
        Adodc1.Recordset.MoveNext
    Next
cn.Close
'Riempio la griglia Tabella delle composizioni
'sulla base della tabella TFinale
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data
Source=" & UbicazioneDB & "\" & NomeDatabase
Adodc2.RecordSource = "TFinale"
Adodc2.Refresh
DataGrid2.ReBind
FrmRelazioni.Caption = "Relazioni" & " - " & "[Database in uso: " &
UbicazioneDB & "\" & NomeDatabase & "]"
---------------------------------------------------------------------------
Di seguito il metodo per riempire tutte le griglie della DataGrid.
Ripeto 
che il mio probelama è che le stringhe che popolano le celle non vanno
a capo automaticamente...
---------------------------------------------------------------------------
Dim Totale As String
'Faccio un confronto tra la matrice derivata e tutte le relazioni note
For i = 0 To NumeroRecord - 1
If (Relazioni(100).BB = Relazioni(i).BB Or Relazioni(100).BB = 2 Or
Relazioni(100).BB = 3) And _
    (Relazioni(100).BI = Relazioni(i).BI Or Relazioni(100).BI = 2 Or
Relazioni(100).BI = 3) And _
    (Relazioni(100).BE = Relazioni(i).BE Or Relazioni(100).BE = 2 Or
Relazioni(100).BE = 3) And _
    (Relazioni(100).IB = Relazioni(i).IB Or Relazioni(100).IB = 2 Or
Relazioni(100).IB = 3) And _
    (Relazioni(100).II = Relazioni(i).II Or Relazioni(100).II = 2 Or
Relazioni(100).II = 3) And _
    (Relazioni(100).IE = Relazioni(i).IE Or Relazioni(100).IE = 2 Or
Relazioni(100).IE = 3) And _
    (Relazioni(100).EB = Relazioni(i).EB Or Relazioni(100).EB = 2 Or
Relazioni(100).EB = 3) And _
    (Relazioni(100).EI = Relazioni(i).EI Or Relazioni(100).EI = 2 Or
Relazioni(100).EI = 3) And _
    (Relazioni(100).EE = Relazioni(i).EE Or Relazioni(100).EE = 2 Or
Relazioni(100).EE = 3) Then
 
    Valida = True
    Relazioni(99) = Relazioni(i)
    InferenceRule5
    InferenceRule6
    If Valida = True Then
        'Per evitare di mettere "V" a inizio stringa
        If Totale = "" Then
            Totale = Relazioni(i).Nome
                Else
                    Totale = Totale & " V " & Relazioni(i).Nome
        End If
    End If
End If
Next i
'Apro connessione a DB per inserire il risultato del confronto
'nella casella (record,field) corrispondente
Dim cn  As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
UbicazioneDB & "\" & NomeDatabase
cn.Execute "UPDATE TFinale SET Rbc_" & Relazioni(Ry).Nome & " = '" +
Totale + "' WHERE x = 'Rab_" + Relazioni(Rx).Nome + "';"
cn.Close
Adodc2.Refresh

Grazie a tutti, ma ho risolto da solo...

bravo

bravo io non lo ancora capito

Ho un problema con le datagrid. Come faccio una volta riempita la
datagrid con dei valori a riempire i campi di alcune text una volta che
seleziono una cella nella grid?
Perche trovo in tutti i testi esempi con flexgrid e meno con le datagrid

 wrote in message
6yQE8.68332$US3.1...@twister1.libero.it...


 Grazie a tutti, ma ho risolto da solo...
In questi casi si posta la soluzione sul NG, in modo che possano
beneficiarne tutti ...
Ciao
--
Faber

 Grazie a tutti, ma ho risolto da solo...
Dunque é normale che gli altri si diano da fare per rispondere, però te no,
eh ?
Sal

 Grazie a tutti, ma ho risolto da solo...
simpaticissimo...
fiiiiiiiiiiiiiiiiiiiii... PLONK!! (Cit.)
aloha
--
Stefano Zamboni 
sz...@libero.it
Legge di Biondi:
Se il tuo progetto non funziona, controlla la parte che non ti pareva
importante.

Quanto siete scontrosi...
Non ho postato xchè pareva non importasse a nessuno...
Ecco la semplice soluzione...
Ciao, Ivan
---------
'Per mandare a capo il contenuto delle celle 'Tabella delle
Composizioni'
For i = 0 To NumeroRecord
    DataGrid2.Columns.Item(i).WrapText = True
Next