以下是引用chychychy在2015-5-16 08:25:12的发言:
我是想知道代码写在哪里?
我是想知道代码写在哪里?
在GRID.Column.TextBox的LostFocus事件中处理可以吗?
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