Running Sesame 2.52.  Parent form is "Data".  Subform is "Detail".  I am trying to run calculations to figure what percent each record of a subform is to the total.  I then multiply that result by a field in the parent form.  I then want to put the result back in the subform in the record used in the calculation.  The code below is my attempt.  This code is in the "On Element Entry" of a command button.  

When I first ran it, I had all of the writeln's within the code active and all the information was correct.  However, nothing "posted".  After some playing I enclosed the results in @ToNumber and everything seemed to work fine.  On subsequent tests, some of the items post and some don't.  There is usually at least one row in the subform that does not have data filled in.  Even in these instances, the writeln shows all of the numbers calculating properly.  If I click in the row, sometimes the numbers will fill in and sometimes not.  

I am sure I have broken some rule, but can't figure it out.  Thanks for any direction you can give.

[code]#include "sbasic_include.sbas"

var vKey as int

var VRSKey as String
var vNoOfRecords as Double
var vTotal as String
var vloop as Double
var vTotpmt as Double
var vIndpercnt as Double
var vLE2 as Double      
var vLE3 as Double      
var vLE4 as Double
var vActSoft as Double
var vActHard as Double
var vSoft as Double
var vHard as Double
var vIndtot as double


vLE2 = LE2
vLE3 = LE3
vActSoft = Act.Soft
vActHard = Act.Hard
vKey = ParID
//writeln("vKey  " + vKey)
VRSKey = @XResultSetSearch(@FN, "Data!Detail", SEARCH_MODE_AND, SEARCH_SYNTAX_QA, "ChildID=" + vKey)
if(vRSKey > -1)
{
vNoOfRecords = @XResultSetTotal(vRSKey)
//writeln ("vNoOfRecords  " + vNoOfRecords)
vTotal = 0
for vLoop = 1 to vNoOfRecords
XResultSetCurrentPosition(vRSKey, vLoop)
vSoft = @XResultSetValue(vRSKey, "Soft")
vHard = @XResultSetValue(vRSKey, "Hard")
//writeln("vLE2  " + vLE2)
//writeln("vLE3  " + vLE3)
//writeln("vActSoft  " + vActSoft)
//writeln("vActHard  " + vActHard)
//writeln("vSoft  " + vSoft)
//writeln("vHard  " + vHard)
vIndpercnt = vSoft/vLE2
vLE4 = vHard/VLE3
vIndtot = vIndpercnt * vActSoft
vTotpmt = vLE4 * vActHard
//writeln("Soft  " +vIndtot)
//writeln("Hard  " +vTotpmt)
XResultSetValue(vRSKey, "ActSoft", @ToNumber(vIndtot))
XResultSetValue(vRSKey, "ActHard", @ToNumber(vTotpmt))
next
XResultSetClose(vRSKey)
}



[/code]

You should not use XResultSet to write to records that are currently on your screen. Use FormFieldValue and the associated family of commands instead.