In the dbgrid with data load it usually has a strange behavior.After loading data, select the first line with the mouse and click the down arrow, several blank lines are created.Here's a view to simulate the problem.
Code:
Use cWebView.pkgUse cWebPanel.pkg
Use cWebForm.pkg
Use cWebButton.pkg
Use cWebGrid.pkg
Use cWebColumn.pkg
Object oOGrid_manual is a cWebView
// Set piWidth to 700
Set psCaption to "OGrid_manual"
// Your DDO structure will go here
Object oWebMainPanel is a cWebPanel
Set piColumnCount to 50
Object oWebButton1 is a cWebButton
Set piColumnSpan to 0
Set psCaption to "Refresh"
Procedure OnClick
Send GridRefresh of oWebGrid1
End_Procedure
End_Object
Object oWebGrid1 is a cWebGrid
// Set pbFillHeight to True
Set pbDataAware to False
Set peDbGridType to gtManual
Object oWebColumn0 is a cWebColumn
Set psCaption to "Disable"
Set piWidth to 50
Set pbRender to False
End_Object
Object oWebColumn1 is a cWebColumn
Set psCaption to "Disable"
Set piWidth to 50
Set pbEnabled to False
End_Object
Object oWebColumn2 is a cWebColumnCheckbox
Set psCaption to "Enable"
Set piWidth to 50
End_Object
Procedure OnManualLoadData tWebRow[] ByRef aTheRows String ByRef sCurrentRowID
Forward Send OnManualLoadData (&aTheRows) (&sCurrentRowID)
Integer qtde
For qtde from 0 to 8
Move qtde to aTheRows[qtde].sRowID
Move qtde to aTheRows[qtde].aCells[0].sValue
Move qtde to aTheRows[qtde].aCells[1].sValue
Move 0 to aTheRows[qtde].aCells[2].sValue
Loop
End_Procedure
End_Object
End_Object
End_Object
In the dbgrid with data load it usually has a strange behavior.After loading data, select the first line with the mouse and click the down arrow, several blank lines are created.Here's a view to simulate the problem.