我想在DBgrid上 keyin數量  時  為正數
但是存在資料庫中是負數
查詢時要讓使用者看到的是正數

簡單的說 在資料庫中 是負的 在DBGrid是正的

請問要怎麼做到呀
謝謝各位

多一個欄位即可解決

FieldA 為正數, FieldB 為負數

在 DBGrid 中只顯示 FieldA

Post 時在 BeforePost 事件中, 再將 FieldA 的值轉給 FieldB

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

JasonWong 
這一個方法我有想到 但是有沒有 不用加欄位的
想試試說 不要增加欄位有沒有辦法去做到這一個功能
謝謝版主
感激你的回覆

1.可以用 SQL 用一個假欄位下來, 一樣是正負欄位

2.用 CLIENTDATASET 裡的 INTERNALCALC 欄位

簡單的問題就用簡單的解法, 不要把問題複雜化了

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

JasonWong
沒有錯~~沒有必要複雜化
但是我老闆要我那樣做><
謝謝你喔

咚, 一定不能加欄位就對了

那多一個 DATASET 行不行....

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

還有一個方法可以參考help...
TField::OnGetText
TField::OnSetText

JasonWong
多一個Dataset怎麼做呀
想聽聽你的作法
小的不才
謝謝你喔

吃飯前忘記發,有人發了 嘿嘿

大致上如樓上說的用ongetext,onsettext
<textarea cols="60" rows="10" class="delphi" name="code"> procedure TForm1.qryAGetText(Sender: TField; var Text: string; DisplayText: Boolean); begin text := IntToStr( - TField(sender).asinteger); DisplayText:=true; end; procedure TForm1.qryASetText(Sender: TField; const Text: string); begin TField(sender).asinteger := - StrToInt(Text); end; </textarea>

------
星期一,二...無窮迴圈＠＠

忘了還有這一招, 建議用這招

===================引 用 nickcai2002 文 章===================
還有一個方法可以參考help...
TField::OnGetText
TField::OnSetText

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

謝謝你!!
我研究一下
感謝你的回應
K.Top有溫情

nickcai2002 pgdennis JasonWong
謝謝各位
小弟試一下
感激