Version 5.00 build 0081 is what I have in my current development environment, so the error would make sense.
I have now downloaded the correct .chm for my version of iGrid. I am able to get things working correctly in a test form, but my actual application is still seeing issues.
Application consists of 2 iGrids, One visible and one hidden, both are loaded with the exact same columns and cell values for tracking what was changed by the user.
I use 3 scripts for working with the iGrids
1. Initialize - I set various iGrid properties such as RowMode = False...etc. I use the first block of code below to create the Combo Objects. I also have sub routines created
in the Initialize script that are called by other sripts to format and load the cell values
2. AddColumn - Columns are dynamically loaded from a record set in the database, I set default properties for the columns within this script.
3. LoadGrid - takes in a record set and passes the data to the Sub Routines in the Initialize script that handles formatting the data and loading the cells
One of the attached files is a screen shot of the results of the code shown below, The behavior I see now is the equivalent of a combo box with 6 items that have no ItemText specified.
**executed within the Initialize script
With iGrid1.Combos.Add("recheck")
.AddItem "","-1"
.AddItem "Routine","0"
.AddItem "After Warning","1"
.AddItem "Immediate Response","2"
.AddItem "Immediate Response Confirm","3"
.AddItem "Reinstatement","4"
.AutoAdjustWidth
End With
**Executed from within the Add Column script
If cKey = "P1WISRCK" Then
With iGrid1.AddCol(cKey,cHeader,100)
.eType = 1
.sCtrlKey = "recheck"
End With
With iGrid2.AddCol(cKey,cHeader)
.eType = 1
.sCtrlKey = "recheck2"
End With
End If
***Executed from within a sub routine that lives in the Initialize script
If strCol = "P1WISRCK" Then
If IsEmpty(strValue) False
iGrid1.CellValue(vRow,strCol) = strValue
iGrid2.CellValue(vRow,strCol) = strValue
End If
ElseIf IsEmpty(strValue) = False Then
iGrid1.CellValue(vRow,strCol) = strValue
iGrid2.CellValue(vRow,strCol) = strValue
Else
'Do Nothing
End If
iGrid1.CellAlignH(vRow,strCol) = 1
ComboCode.txt
(1kb) downloaded 63 time(s).Click to View Image60 View(s)
Edited by user
2017-07-20T18:59:09Z
|
Reason: Adding examples and updating status