各位高手，请进！！

[matian]

if dw_1.update()=1 then
commit using sqlca;
else
rollback;
end if

select curxn,curxq
into :s_curxn,:i_curxq
from curinfo
using sqlca;

w_genapp_frame.wf_settitle('')
boolean bValid

window wSheet[20]
integer i_sheet,i_i
i_sheet=1
wSheet[i_sheet] = w_genapp_frame.GetFirstSheet()
IF IsValid(wSheet[i_sheet]) THEN
i_sheet=i_sheet+1
DO
wSheet[i_sheet] = w_genapp_frame.GetNextSheet(wSheet[i_sheet -1])
bValid = IsValid (wSheet[i_sheet])
if bValid then
i_sheet=i_sheet+1
end if
LOOP WHILE bValid
END IF
for i_i=1 to i_sheet -1
close(wsheet[i_i])
next


close(parent)


请帮我在一些重点的代码后加注释好吗？谢谢了

[jia12345678901]

你累不累 ：）

[programbcb]

不懂你的意思，加什么解释啊，不就是关闭所有SHEET窗口吗