Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

½ÐÀ°§Ú§ì¿ù 'DELPHI'

0 views
Skip to first unread message

Blue Eagle

unread,
Sep 25, 1996, 3:00:00 AM9/25/96
to

>>>>>>>>
我寫一個很簡單的程是
把我的 DBTOOLS xBASE 轉變至 PARADOX 上
OldGoodsTable == xBase 沒有 index
NewGoodsTable == paradox 沒有 index

在執行時會出現錯誤在 <2> or <4>
Project DBFlash.EXE raised exception class
EDatabaseError with message 'Cannot perform
this operation on a closed dataset'.
Process stopped. Use Step or Run to continue.


procedure TGoodsForm.GoBtnClick(Sender: TObject);
begin
OldGoodsTable.First; <1>
{ NewGoodsTable.First; } <2>

NewGoodsTable.Append; <4>
NewGoodsTable.FieldByName('GOS_NUM').AsString
:= OldGoodsTable.FieldByName('G_NUMBER').AsString;
NewGoodsTable.FieldByName('GOS_NAME').AsString
:= OldGoodsTable.FieldByName('G_NAME').AsString;
NewGoodsTable.FieldByName('GOS_INCOME').AsString
:= OldGoodsTable.FieldByName('G_LS_DATE').AsString;
NewGoodsTable.FieldByName('GOS_ORDER').AsString
:= OldGoodsTable.FieldByName('G_OR_DATE').AsString;
NewGoodsTable.FieldByName('GOS_COST').AsString
:= OldGoodsTable.FieldByName('G_COST').AsString;
NewGoodsTable.FieldByName('GOS_LOCATE').AsString
:= OldGoodsTable.FieldByName('G_LOCATE').AsString;
NewGoodsTable.FieldByName('GOS_SAFE').AsString
:= OldGoodsTable.FieldByName('G_SAFE_QTY').AsString;
NewGoodsTable.FieldByName('GOS_QTY').AsString
:= OldGoodsTable.FieldByName('G_QTY').AsString;
NewGoodsTable.Post;
OldGoodsTable.Next;

NewGoodsTable.Close;
OldGoodsTable.Close;
end;

--
............ ...........Blue Eagle
[ 基隆第一家全天然草本保養品 : 蝴碟家族 : NECTAR : 在 孝二路 ]
Not Tested on Animals......: :........:

Dennis Huang

unread,
Sep 25, 1996, 3:00:00 AM9/25/96
to

是不是你TABLE元件內的ACTIVE沒有打開？？？？

dr828309

unread,
Oct 3, 1996, 3:00:00 AM10/3/96
to

Dennis Huang (hua...@tk0.taisel.alcatel.com.tw) wrote:
: 是不是你TABLE元件內的ACTIVE沒有打開？？？？

:
: On Wed, 25 Sep 1996 05:45:11 +0800, ufpa...@ms5.hinet.net (Blue
: Eagle) wrote:
:
: >>>>>>>>>
: > 我寫一個很簡單的程是
: > 把我的 DBTOOLS xBASE 轉變至 PARADOX 上
: > OldGoodsTable == xBase 沒有 index
: > NewGoodsTable == paradox 沒有 index
: >
: > 在執行時會出現錯誤在 <2> or <4>
: > Project DBFlash.EXE raised exception class
: > EDatabaseError with message 'Cannot perform
: > this operation on a closed dataset'.
: > Process stopped. Use Step or Run to continue.
: >
: >
: >procedure TGoodsForm.GoBtnClick(Sender: TObject);
: >begin
NewGoodsTable.Open;
OldGoodsTable.Open;
: > OldGoodsTable.First; <1>
:
:

0 new messages