Not. In this way it doesn't work.
I investigated BROWSE control sources and I prepared function for refresh current row.
But, the problem is with numeric columns - they are empty after refreshing, so I decided to convert it to string by hb_ntos
Code: Select all
PROCEDURE RefreshBrowseLine(cForm, cBrowse)
LOCAL i, iMax
LOCAL cField, xValue
local aStruc
local h
nIdx := GetControlIndex ( cBrowse, cForm )
h := GetControlHandle ( cBrowse, cForm )
nRow := LISTVIEW_GETFIRSTITEM ( h) // this function returns current screen row number
aStruc := _HMG_SYSDATA [ 31 ] [nIdx] // array conainig FIELDS parameter
iMax := LEN(aStruc)
FOR i := 1 TO iMax
cField := aStruc[ i ]
xValue := &cField
if valtype(xValue) == "N"
xValue := hb_ntos(xValue)
endif
SetProperty( cForm, cBrowse, "CELL", nRow, i, xValue )
NEXT i
RETURN