Tech Articles


Grid datawindow object with variable number of columns


Here is a way to build a grid datawindow which contains columns corresponding to an unknown number of data elements. You could use this approach in creating a project schedule, inventory location system, baseball box score, or any number of other examples. My example assumes the minimum number of columns to be four.

This create grid event returns a string.

long    ll_columns, ll_count, ll_pos
string ls_errors, ls_sql, ls_dw_presentation, ls_dw_syntax, ls_find, ls_name, ls_mod_string
// base presentation information
ls_dw_presentation =    "style( type=Grid                          &
            Horizontal_spread = 25 )            &
     datawindow( units=1                       &
             Color= 16777215)              &
     column( Font.Face='Arial'         &
         Font.Height=-9                    &
         Font.Weight=400)                  &
         text(   Font.Face='Arial' &
         Font.Height=-9                    &
         Font.Weight=400                   &
             Border=6)"

// set initial grid to 4 columns (plus time_of_day and last_col columns)
ls_sql = "SELECT space(10) as time_of_day, space(40) as col1, space(40) as col2, space(40) as col3, space(40) as col4,"

ll_count = 5 // next column to add would be 5

// this is the variable number of data elements
ll_columns = ids_trains.rowcount()

// add any additional columns past 4
DO WHILE ll_count <= ll_columns
    ls_sql += " space(40) as col" + string(ll_count) + ","
    ll_count++
LOOP

ls_sql += " '' as last_col"
ls_sql += " FROM dbo.TRAINS WITH (NOLOCK) WHERE 1 = 2"
// build the datawindow syntax from the presentation and sql statement
ls_dw_syntax = SQLCA.Syntaxfromsql( ls_sql, ls_dw_presentation, ls_errors)
IF Len(ls_errors) = 0 THEN
    // widen the header band a bit
    ls_dw_syntax = Replace(ls_dw_syntax, Pos(ls_dw_syntax,"header(height=19)"), Len("header(height=19)"), "header(height=23)")
    // create dwo and assign to grid
    dw_grid.create(ls_dw_syntax,ls_errors)
END IF
// appearance modifies
dw_grid.modify("last_col.visible=FALSE")

FOR ll_count = 1 TO Long(dw_grid.Object.DataWindow.Column.Count)
    IF dw_grid.Describe("#" + String(ll_count) + ".Visible") = "1" Then
        ls_name = dw_grid.Describe("#" + String(ll_count) + ".Name") 
        ls_mod_string = ls_name + "_t.background.mode=0" // must set to opaque or color does not show
        ls_errors = dw_grid.modify(ls_mod_string)
        // set the column heading color
        ls_mod_string = ls_name + "_t.background.color=12632256"
        ls_errors = dw_grid.modify(ls_mod_string)
        IF POS(ls_name ,'time_of_day') = 0 THEN
            ls_mod_string = ls_name + "_t.Alignment=0" //left
            ls_errors = dw_grid.modify(ls_mod_string)
        END IF
        ls_mod_string = ls_name + "_t.Height=18"
        ls_errors = dw_grid.modify(ls_mod_string)
        ls_mod_string = ls_name + "_t.tooltip.enabled=1"
        ls_errors = dw_grid.modify(ls_mod_string)
    END IF
NEXT
RETURN ls_errors


Now I know you can do several modifies with a single statement but it is much easier to debug if you do a single attribute at a time.

Once you have the grid set up you can call subsequent methods to populate it (and make columns invisible if needed), resize the width of the columns, etc.

Example schedule grid datawindow


Example grid for a time schedule with fifteen minute increments.

Comments (0)
There are no comments posted here yet

Find Articles by Tag

OrcaScript Debugger 64-bit RESTClient OLE IDE Event Handler SnapObjects Outlook RibbonBar Builder Array JSONGenerator CI/CD JSONParser Import Debug REST Platform Charts NativePDF DLL OAuth Validation CrypterObject Branch & Merge Excel Database Service Visual Studio Mobile PBNI Encoding SDK Migration Linux OS Class DataWindow WebBrowser TortoiseGit BLOB RibbonBar Database Connection Configuration DevOps Filter Model PowerBuilder Syntax CoderObject SOAP TLS/SSL SqlExecutor COM Authentication UI Themes SnapDevelop Interface PowerBuilder Compiler Source Code Oracle PDFlib Bug Icon Windows OS Deployment .NET DataStore WinAPI Graph SQL Server GhostScript .NET Assembly Web API Performance Event DataType Messagging MessageBox JSON Elevate Conference .NET Std Framework Azure SVN Repository Git Database Table Data XML Window HTTPClient Transaction DataWindow JSON TFS PFC Error External Functions PostgreSQL Database Profile UI SqlModelMapper Source Control Resize Debugging Testing Database Object Database Table Schema Web Service Proxy OAuth 2.0 ODBC RichTextEdit Control Installation Variable PowerServer Web Menu Windows 10 Icons Text DragDrop Script PowerServer Mobile PowerScript (PS) Expression iOS Jenkins Database Painter Design C# Export PowerBuilder (Appeon) PDF Open Source Event Handling Data InfoMaker Trial File License TreeView Android Database Table API 32-bit PostgreSQL ODBC driver Authorization ActiveX Application UI Modernization Sort Encryption Automated Testing Stored Procedure SQL Export JSON PBVM PBDOM Import JSON