function DelField( aFields, cFieldName, oGet, oBrw )
if Len( aFields ) >= 1
ADel( aFields, oBrw:nArrayAt, .T. )
// ASize( aFields, Len( aFields ) - 1 )
oBrw:SetArray( aFields )
endif
oGet:VarPut( cFieldName := Space( 10 ) )
oGet:SetPos( 0 )
oGet:SetFocus()
oBrw:GoBottom()
return nil
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: FiveWiDi and 45 guests