i miss an error when update the browse fields

[sharkdim]

i got an error when update the browse fields

hello friends,
i want to update the browse's fields in the GUI mode ,but ,program give me an error, the errorid is 3135 and 3140.
but in the CHR mode ,program have not any error information ,
i check the src code ,but i can not find any problem

environment
progress : 91d sp9
mfg/pro : eb2 sp9
OS : winnt

/**********source code***********************/
{mfdtitle.i "aaa"}
CREATE WIDGET-POOL.
define temp-table tt
fields tt_code_fldname like code_fldname
fields tt_code_value like code_value
fields tt_code_cmmt like code_cmmt
fields tt_code_user1 like code_user1.

for each code_mstr:
create tt.
assign tt_code_fldname = code_fldname
tt_code_value = code_value
tt_code_cmmt = code_cmmt
tt_code_user1 = code_user1.
end.
define query q1 for tt scrolling.
define browse b1 query q1 no-lock
display tt_code_fldname tt_code_value tt_code_cmmt tt_code_user1
enable tt_code_value tt_code_cmmt tt_code_user1
with 15 down no-assign separators.
define variable method-return as logical no-undo.
define button button1 label "new row".
define frame f1
skip(1)
space(8)
b1 skip(1)
space(8)
button1
with no-box width 590.
frame f1ARENT = current-window.

open query q1 for each tt.
enable all with frame f1.

wait-for window-close of current-window.

 

[sharkdim]

Re: i got an error when update the browse fields

hello friends,
i want to update the browse's fields in the GUI mode ,but ,program give me an error, the errorid is 3135 and 3140.
but in the CHR mode ,program have not any error information ,
i check the src code ,but i can not find any problem

environment
progress : 91d sp9
mfg/pro : eb2 sp9
OS : winnt

/**********source code***********************/
{mfdtitle.i "aaa"}
CREATE WIDGET-POOL.
define temp-table tt
fields tt_code_fldname like code_fldname
fields tt_code_value like code_value
fields tt_code_cmmt like code_cmmt
fields tt_code_user1 like code_user1.

for each code_mstr:
create tt.
assign tt_code_fldname = code_fldname
tt_code_value = code_value
tt_code_cmmt = code_cmmt
tt_code_user1 = code_user1.
end.
define query q1 for tt scrolling.
define browse b1 query q1 no-lock
display tt_code_fldname tt_code_value tt_code_cmmt tt_code_user1
enable tt_code_value tt_code_cmmt tt_code_user1
with 15 down no-assign separators.
define variable method-return as logical no-undo.
define button button1 label "new row".
define frame f1
skip(1)
space(8)
b1 skip(1)
space(8)
button1
with no-box width 590.
frame f1ARENT = current-window.

open query q1 for each tt.
enable all with frame f1.

wait-for window-close of current-window.

somebody can give me any advise ?