DataChange事件报错**

tyl123

IF (NOT dsbTERMINAL_UNION_DT.DataSet.IsEmpty) AND (Field <> nil)  THEN
    BEGIN
        IF Field.FieldName = 'SAVEORNOT' THEN
        BEGIN
            IF dsbTERMINAL_UNION_DT.DataSet.FieldByName('SAVEORNOT').AsInteger = 1 THEN
               dsbTERMINAL_UNION_DT.DataSet.FieldByName('DELETEORNOT').AsInteger := 0
           ELSE
               dsbTERMINAL_UNION_DT.DataSet.FieldByName('DELETEORNOT').AsInteger := 1;
        END
        ELSE IF Field.FieldName = 'DELETEORNOT' THEN
        BEGIN
            IF dsbTERMINAL_UNION_DT.DataSet.FieldByName('DELETEORNOT').AsInteger = 1 THEN
               dsbTERMINAL_UNION_DT.DataSet.FieldByName('SAVEORNOT').AsInteger := 0
            ELSE
               dsbTERMINAL_UNION_DT.DataSet.FieldByName('SAVEORNOT').AsInteger := 1;
        END;
    END;


这段代码为什么会报错呢？如果我后面的 ELSE IF Field.FieldName = 'DELETEORNOT' THEN。。。去掉也不会报错，这里怎么写啊，急，谢

Akon

楼主,死循环了,
你在DataChange事件中在修改某个字段的数据,修改完了之后,又解发了DataChange事件,反复执行内存溢出了.就报错了