各位老大帮忙看一下

wulinxia

不明白你的意思？什么问题？？

kunpeng_li

我想把BLOCK3里的数据输入到表LINES里。该怎么实现？

Harry_shan

最初由 kunpeng_li 发布
[B]我想把BLOCK3里的数据输入到表LINES里。该怎么实现？ [/B]

你的循环是死循环吧

Harry_shan

FIRST_RECORD;
INSERT INTO LINES
(CHECK_DATE, CR_LF)
VALUES
(:BLOCK3.CHECK_DATE,
:BLOCK3.CR_LF);

while :system.last_record<>'TRUE'   LOOP
NEXT_RECORD;
INSERT INTO LINES
(CHECK_DATE, CR_LF)
VALUES
(:BLOCK3.CHECK_DATE,
:BLOCK3.CR_LF);
END LOOP;

Harry_shan

或者
FIRST_RECORD;
LOOP
INSERT INTO LINES
(CHECK_DATE, CR_LF)
VALUES
(:BLOCK3.CHECK_DATE,
:BLOCK3.CR_LF);
EXIT WHEN :system.last_record = 'TRUE';
NEXT_RECORD;
END LOOP;

wulinxia

最初由 kunpeng_li 发布
[B]我想把BLOCK3里的数据输入到表LINES里。该怎么实现？ [/B]

是死循环；

SET_APPLICATION_PROPERTY(CURSOR_STYLE,
'BUSY');
GO_BLOCK('BLOCK3');
FIRST_RECORD;
LOOP
INSERT INTO LINES
(CHECK_DATE, CR_LF)
VALUES
(:BLOCK3.CHECK_DATE,
:BLOCK3.CR_LF);
exit when last_record = 'TRUE' ;
next_record;
END LOOP;
FORMS_DDL('COMMIT');
UPDATE_RECORD;
SET_APPLICATION_PROPERTY(CURSOR_STYLE,
'DEFAULT');

kunpeng_li

是的

kunpeng_li

谢谢老大了

wulinxia

最初由 wulinxia 发布
[B]

是死循环；

SET_APPLICATION_PROPERTY(CURSOR_STYLE,
'BUSY');
GO_BLOCK('BLOCK3');
FIRST_RECORD;
LOOP
INSERT INTO LINES
(CHECK_DATE, CR_LF)
VALUES
(:BLOCK3.CHECK_DATE,
:BLOCK3.CR_LF);
exit when :system.last_record = 'TRUE' ;
next_record;
END LOOP;
FORMS_DDL('COMMIT');
UPDATE_RECORD;
SET_APPLICATION_PROPERTY(CURSOR_STYLE,
'DEFAULT'); [/B]

kunpeng_li

老大当我关闭窗口的时候，它会自动的提示是否保存所做的修改。我想让它不出现。应该怎么设置？以为我在前面已经提交了，要是再来一次的话就重复了。