집에와서 다시 해봤는데여~~
Invalid variant type conversion.
이런 메세지는 머예여??
아래부분을 넣으면 에러가 뜨고 빼면 괜찮거든여~~~
틀린부분 수정좀 해주세여~~ 캄사캄사~~
procedure TForm1.Image5Click(Sender: TObject);
var sum : real;
begin
with table1 do
begin
try
first;
while not EOF do
begin
edit;
sum:=fieldbyname('jungkan').value + fieldbyname('gimal').value
+ fieldbyname('chulsuk').value + fieldbyname('report').value;
fieldbyname('hap').value:=sum;
UpdateRecord;
post;
next;
end;
except
cancel;
raise;
end;
end;
form2.Show;
end;
hap필드 타입이 잘못되었던가....
그래서 서로 둘이 않맞으니깐.....컨버젼에러 나온거 같아요...
자~~~~~~알~~~~보고 하세요....--;;db가 access에요???
델초보 wrote:
> 집에와서 다시 해봤는데여~~
>
> Invalid variant type conversion.
>
> 이런 메세지는 머예여??
> 아래부분을 넣으면 에러가 뜨고 빼면 괜찮거든여~~~
> 틀린부분 수정좀 해주세여~~ 캄사캄사~~
>
> procedure TForm1.Image5Click(Sender: TObject);
> var sum : real;
> begin
> with table1 do
> begin
> try
> first;
> while not EOF do
> begin
> edit;
> sum:=fieldbyname('jungkan').value + fieldbyname('gimal').value
> + fieldbyname('chulsuk').value + fieldbyname('report').value;
> fieldbyname('hap').value:=sum;
> UpdateRecord;
> post;
> next;
> end;
> except
> cancel;
> raise;
> end;
> end;
> form2.Show;
> end;