Sto impazzenzo...non capisco più che devo fare! Sempre dimensioni colo...

venerdì 24 settembre 2004 - 12.34

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

sasha296 Profilo | Newbie

13 messaggi | Data Invio: ven 24 set 2004 - 12:34

Cosa sbaglio o cosa manca?

Private c1Style As DataGridColumnStyle ->se metto il new mi da errore!
Private c2Style As DataGridColumnStyle
Private c3Style As DataGridColumnStyle
Private c4Style As DataGridColumnStyle
Private dtgStyle As New DataGridTableStyle

OdbcDataAdapter.Fill(myTable)
dgrLista.DataSource = myTable

'Stile griglia
dtgStyle.MappingName = "Principale" 'myTable.TableName
c1Style.MappingName = myTable.Columns(1).ColumnName
c2Style.MappingName = myTable.Columns(2).ColumnName
c3Style.MappingName = myTable.Columns(3).ColumnName
c4Style.MappingName = myTable.Columns(4).ColumnName
'-------------

dtgStyle.GridColumnStyles.Add(c1Style)
dtgStyle.GridColumnStyles.Add(c2Style)
dtgStyle.GridColumnStyles.Add(c3Style)
dtgStyle.GridColumnStyles.Add(c4Style)

dgrLista.TableStyles.Add(dtgStyle)

oCls.SetColWidth(dtgStyle, 1, 30)
oCls.SetColWidth(dtgStyle, 2, 50)
dgrLista.Refresh()

---

Public Sub SetColWidth(ByVal tStyle As DataGridTableStyle, _
ByVal colNum As Integer, _
ByVal colWidth As Integer)
tStyle.GridColumnStyles(colNum).Width = colWidth
tStyle.DataGrid.Refresh()
End Sub

ovviamente non vede gli oggetti c1Style... inizializzati! Ma come devo fare?

Aiuuuuuto!!!

Grazie
Mary

francescox78 Profilo | Junior Member

117 messaggi | Data Invio: ven 24 set 2004 - 15:10

Aspetta credo di avere una cosa che ti può dare una mano... la cerco dammi 10 minuti

francescox78 Profilo | Junior Member

117 messaggi | Data Invio: ven 24 set 2004 - 15:27

Prova a riscrvere il codice in questo modo
nella tua sub o function

dim GridTabStyle1 as new datadridtableStyle()

whit GridTabStyle1
.mappingname= ( es. Dataview.Table.tablename) (oppure "TABELLA DI PIPPO")
end

dim GridColStyle1 as new datagridtextboxcloumn()

whit GridColStyle1

.mappingname="nome del campo"
.HeaderText="nome della collonna"
.Whith=140
end

dim GridColStyle2 as new datagridtextboxcloumn() 'Colonna 2

whit GridColStyle2

.mappingname="nome del campo"
.HeaderText="nome della collonna"
.Whith=180
end

GridTabStyle1.gridcolumnstyle.addrenge(new datagridcolumnstyle() {GridColStyle1,GridColStyle2})

DataGrid.tablestyle.add(grdtablestyle1)

per le variabili publiche invece, non puoi istanziarle con il new...
basta che poi nella sub o function metti
nomevariabile=new datagrid.....

spero che sia chiaro
fammi sapere poi...

sasha296 Profilo | Newbie

13 messaggi | Data Invio: ven 24 set 2004 - 15:43

Grazie! alla fine in effetti ho fatto esattamente quello che hai scritto tu,
però ho avuto ancora problemi, che si sono miracolosamente risolti aggiungendo un tablestyle da proprietà e poi togliendolo! Mha! vallo a capire.

Cmq se può essere utile lo posto :

***************************

Private dtgStyle As New DataGridTableStyle

OdbcDataAdapter.Fill(myTable)
dgrLista.DataSource = myTable

StileGrigliaD()

--------------------

Private Sub StileGrigliaD()

Dim c0Style As New DataGridTextBoxColumn
c0Style.MappingName = myTable.Columns(0).ColumnName
c0Style.Width = 0
c0Style.HeaderText = ""

Dim c1Style As New DataGridTextBoxColumn
c1Style.MappingName = myTable.Columns(1).ColumnName
c1Style.Width = 150
c1Style.HeaderText = "Campo1"

Dim c2Style As New DataGridTextBoxColumn
c2Style.MappingName = myTable.Columns(2).ColumnName
c2Style.Width = 60
c2Style.HeaderText = "Campo2"

....

dtgStyle.MappingName = myTable.TableName
dtgStyle.GridColumnStyles.Add(c0Style)
dtgStyle.GridColumnStyles.Add(c1Style)
dtgStyle.GridColumnStyles.Add(c2Style)
...

dgrLista.TableStyles.Add(dtgStyle)
dtgStyle.DataGrid.Refresh()

End Sub

francescox78 Profilo | Junior Member

117 messaggi | Data Invio: ven 24 set 2004 - 15:51

Bene,
sono contento che hai risolto!

alla prox.
Francesco.

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !