在GRID.Column.TextBox的LostFocus事件中处理可以吗?

别人写了一个表单，可我不明白他将计算的代码写在哪里了，我刚学习，麻烦帮我看一下，说的简单明确点，附上附件。

能通过qq咨询你吗？

[ 本帖最后由 chychychy 于 2015-5-20 09:22 编辑 ]

示例：
如果是静态设计，直接在Grid1.Column1.Text1的LostFocus事件写：
        REPLACE 跑得分 WITH IIF(跑成绩<=3.25, 100,;
                            IIF(BETWEEN(跑成绩, 3.26, 4), 90, 89)) IN "表1"

CREATE CURSOR 表1 (跑成绩 N(6,2), 跑得分 I)
APPEND BLANK
APPEND BLANK
APPEND BLANK
GO TOP 
of = CREATEOBJECT("_Form")
of.Show(1)
RETURN

DEFINE CLASS _Form AS Form
    ADD OBJECT Grid1 AS Grid
    
    PROCEDURE Grid1.Init
        this.ColumnCount = 2
        BINDEVENT(this.Column1.Text1, "LostFocus", thisform, "_LostFocus")
    ENDPROC

    PROCEDURE _LostFocus
        REPLACE 跑得分 WITH IIF(跑成绩<=3.25, 100,;
                            IIF(BETWEEN(跑成绩, 3.26, 4), 90, 89)) IN "表1"
    ENDPROC
ENDDEFINE

叫你上传表，你上传个表单。算了。

不好意思，你是高手吗。我是想你帮我看看，代码究竟写在哪里了，应该怎样方便以后的修改并精简。

na是什么东西？你把完整的计算处理过程叙述清楚。

写这程序的人在设置Grid各栏目数据的时候，鼠标点来点去，手指会不会疼？

这是我用记事本打开的表单中有他写的一段代码，我一直不明白他是将代码写在哪里了，na是什么我也不明白，而且太复杂能否精简。具体说这是一个体育测试，学生要跑和球。比如女生跑的成绩在大于0小于等于3.24区间，则跑的得分为100分，在大于3.24小于3.29区间，得分为98分。以此类推。我将他代码放在附件中。他具体代码见附件 。我想通过qq详细咨询并上传附件，可以吗？不好意思，新手。

代码写在哪里？很多地方都可以写，写的方式也很多，但要先找出原来程序写在哪里才能改。用表单写的，作者自己维护最好，代码遍地开花，我可没那时间和耐心到处翻找（写在PRG中一眼就看到，都不知道现在的人是不是习惯繁琐不怕累的）。如果不先把原来的处理代码找出来，我补上去，二来难免被后续过程破解掉，二来也可能造成数据错乱。