小弟是delphi新手
在clientdataset 中 設立一個Calculated欄位
想透過判斷來對它作操作
但dbgrid對應的欄位都不會顯示出值來
用的是delphi5 語法如下
if chk.fieldbyname('chk').value = chk2.fieldbyname('chk2').value then chk2.fieldbyname('calcu').asstring :='有';
chk這個calculated欄位不用寫回資料庫~只要正確的秀到dbgrid上就行了
謝謝

小弟也有想過在clientdataset chk這欄位中的ongettext中直接做text:='有'
不過因為還要做sql語法的篩選所以會造成效能低落且一直重覆執行
如果用變數判斷觸發執行的話,則chk這欄位中的資料只有會顯示一次
只要滑鼠去點到dbgrid裡的cell後就會消失不見(dbgrid有開dgrowselect做其他功能)

編輯記錄

Hi 

試試在ClientDataSet.OnCalcFields事件中的處理

===================引 用 kndd 文 章===================
在clientdataset 中 設立一個Calculated欄位
但dbgrid對應的欄位都不會顯示出值來
用的是delphi5 語法如下
if chk.fieldbyname('chk').value = chk2.fieldbyname('chk2').value then chk2.fieldbyname('calcu').asstring :='有';

謝謝pedro的回答
不過我在這事件中加入程式碼後
整個程式就關掉了,還在找原因
謝謝~

===================引 用 pedro 文 章===================
Hi

試試在ClientDataSet.OnCalcFields事件中的處理

===================引 用 kndd 文 章===================
在clientdataset 中 設立一個Calculated欄位
但dbgrid對應的欄位都不會顯示出值來
用的是delphi5 語法如下
if chk.fieldbyname('chk').value = chk2.fieldbyname('chk2').value then chk2.fieldbyname('calcu').asstring :='有';

Hi, 也只能在 OnCalcFields 修改計算欄位的值。不建議直接用 Variant 來比較，之前我同事這樣寫，常會出錯，都被我改掉，要先判斷是不是 null，
if (Value1 <> null) and (Value2 <> null) then
begin
// 再來比較兩個值
end;

謝謝cancer的回覆
想請教一下如果要在該計算欄位直接寫入資料的話要怎麼寫呢?
目前是用一變數來判斷是否要寫入,事前的查詢寫在另外的地方
不過不曉得能不能觸發OnCalcField事件

===================引 用 cancer 文 章===================
Hi, 也只能在 OnCalcFields 修改計算欄位的值。不建議直接用 Variant 來比較，之前我同事這樣寫，常會出錯，都被我改掉，要先判斷是不是 null，
if (Value1 <>null) and (Value2 <>null) then
begin
// 再來比較兩個值
end;

謝謝 pedro與cancer的幫忙
終於弄出來了~也了解到Calculated欄位跟OnCalcFields的用法
真的很感謝!!!

謝謝大大給分，要填入計算欄位，一定要在 OnCalcField 裡面寫，在其他事件寫，會出錯，包含 BeforePost，這我有試過。
OnCalcField 引發時間很多，查一下 Delphi 說明檔，包括資料有改變、切換資料列。
===================引 用 kndd 文 章===================
謝謝cancer的回覆
想請教一下如果要在該計算欄位直接寫入資料的話要怎麼寫呢?
目前是用一變數來判斷是否要寫入,事前的查詢寫在另外的地方
不過不曉得能不能觸發OnCalcField事件