' Il seguente frammento di codice mostra come aggiungere una colonna ad una grid di un form ASPX
' Va inserito nello "Script Creazione" della grid o di altro oggetto del form
' Nello specifico, lo script aggiunge alla griglia DOMANDE del form SCQUEST.ASPX una colonna contenente una combobox che attinge dalla causale parametrizzabile ISTAG
dim form as SCQUESTFORM=this.page
if not form.isPostback
dim g as QWWebControls.QWWebGrid=ctype(form.findcontrol2("DOMANDE"),QWWebControls.QWWebGrid)
' Definisce la colonna per il tag
Dim col As Infragistics.WebUI.UltraWebGrid.UltraGridColumn = New Infragistics.WebUI.UltraWebGrid.UltraGridColumn
col.Key = "TAG"
col.BaseColumnName = "TAG"
col.Width = New System.Web.UI.webControls.Unit(100)
col.HeaderText = "Tag"
col.HTMLEncodeContent = False
col.Type = Infragistics.WebUI.UltraWebGrid.ColumnType.DropDownList
g.Columns.insert(3, col)
dim q as new QWTable
q.database=form.form_state.dmd_ref.DB
q.sql="select DESCRIZION from CAUSPAR where CODICE like 'ISTAG%' and CODICE<>'ISTAG' order by 1"
q.requestlive=false
q.active=true
q.rowset.first()
col.ValueList.ValueListItems.Add("","")
While Not q.rowset.endofset
col.ValueList.ValueListItems.Add(q.rowset.fields("DESCRIZION").value, q.rowset.fields("DESCRIZION").value)
q.rowset.Next()
End While
q.active=false
g.refresh()
end if
' Il seguente frammento di codice mostra come aggiungere una colonna ad una grid di un form ASPX
' Va inserito nello "Script Creazione" della grid o di altro oggetto del form
' Nello specifico, lo script aggiunge alla griglia DOMANDE del form SCQUEST.ASPX una colonna contenente una combobox che attinge dalla causale parametrizzabile ISTAG
dim form as SCQUESTFORM=this.page
if not form.isPostback
dim g as QWWebControls.QWWebGrid=ctype(form.findcontrol2("DOMANDE"),QWWebControls.QWWebGrid)
' Definisce la colonna per il tag
Dim col As Infragistics.WebUI.UltraWebGrid.UltraGridColumn = New Infragistics.WebUI.UltraWebGrid.UltraGridColumn
col.Key = "TAG"
col.BaseColumnName = "TAG"
col.Width = New System.Web.UI.webControls.Unit(100)
col.HeaderText = "Tag"
col.HTMLEncodeContent = False
col.Type = Infragistics.WebUI.UltraWebGrid.ColumnType.DropDownList
g.Columns.insert(3, col)
dim q as new QWTable
q.database=form.form_state.dmd_ref.DB
q.sql="select DESCRIZION from CAUSPAR where CODICE like 'ISTAG%' and CODICE<>'ISTAG' order by 1"
q.requestlive=false
q.active=true
q.rowset.first()
col.ValueList.ValueListItems.Add("","")
While Not q.rowset.endofset
col.ValueList.ValueListItems.Add(q.rowset.fields("DESCRIZION").value, q.rowset.fields("DESCRIZION").value)
q.rowset.Next()
End While
q.active=false
g.refresh()
end if
' Il seguente frammento di codice mostra come aggiungere una colonna ad una grid di un form ASPX ' Va inserito nello "Script Creazione" della grid o di altro oggetto del form ' Nello specifico, lo script aggiunge alla griglia DOMANDE del form SCQUEST.ASPX una colonna contenente una combobox che attinge dalla causale parametrizzabile ISTAG dim form as SCQUESTFORM=this.page if not form.isPostback dim g as QWWebControls.QWWebGrid=ctype(form.findcontrol2("DOMANDE"),QWWebControls.QWWebGrid) ' Definisce la colonna per il tag Dim col As Infragistics.WebUI.UltraWebGrid.UltraGridColumn = New Infragistics.WebUI.UltraWebGrid.UltraGridColumn col.Key = "TAG" col.BaseColumnName = "TAG" col.Width = New System.Web.UI.webControls.Unit(100) col.HeaderText = "Tag" col.HTMLEncodeContent = False col.Type = Infragistics.WebUI.UltraWebGrid.ColumnType.DropDownList g.Columns.insert(3, col) dim q as new QWTable q.database=form.form_state.dmd_ref.DB q.sql="select DESCRIZION from CAUSPAR where CODICE like 'ISTAG%' and CODICE<>'ISTAG' order by 1" q.requestlive=false q.active=true q.rowset.first() col.ValueList.ValueListItems.Add("","") While Not q.rowset.endofset col.ValueList.ValueListItems.Add(q.rowset.fields("DESCRIZION").value, q.rowset.fields("DESCRIZION").value) q.rowset.Next() End While q.active=false g.refresh() end if