흐흐흐

다음과 같은 에러가 납니다..

table refresh가 안되는것 같습니다.

그 부분에서 에러가 나거든요..



Project chat.exe raised exception class EDBEngineError with message

'Table does not support this operation because it is not uniquely indexed.'.

Process stopped. Use Step or Run to continue.



소스는 다음과 같습니다.



with temp_qry do

begin

close;

sql.text := ' Insert into DEPT (code, name, gdept_code) '+

' values(:code, :name, :gcode) ';



parambyname('code').AsString := GetMaxNO;

parambyname('name').AsString := name_edt.text;

parambyname('gcode').AsString := copy(gdept_cbo.text,1,2);



try

execsql;

showmessage('정상적으로 입력되었습니다.');

except

showmessage('오류로 입력에 실패하였습니다.');

end;

end;

dm.dept_tab.Refresh;

Edit_Clear(buseoform,1);





고수님들 빨리 알려주세요...