全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1692
推到 Plurk!
推到 Facebook!

DBRadioGroup的問題

尚未結案
nancy
一般會員


發表:8
回覆:19
積分:10
註冊:2002-07-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-12-07 17:52:02 IP:61.222.xxx.xxx 未訂閱
我有一個FLAG的欄位,若值為'1'表示"上午",若值為'2'表示"下午",若為空字串則表示"不指定時間" 我想使用DBRadioGroup來顯示資料,但我發現如果值為空字串的話"不指定時間"的那個選項不會被點選,請問有沒有什麼辦法可以解決?
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-12-07 17:59:36 IP:218.174.xxx.xxx 未訂閱
在dataset的field物件的onGetText事件做如下處理    
    procedure TForm1.query1field1GetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if Sender.isnull then
     text:='';
end;    
nancy
一般會員


發表:8
回覆:19
積分:10
註冊:2002-07-11

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-12-07 18:13:07 IP:61.222.xxx.xxx 未訂閱
我的欄位值並不是NULL,而是' ',我在DBRadioGroup的Values中設定的也是' ', 照理說應該要可以顯示才對...不知道是什麼原因?
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-12-08 09:44:47 IP:202.62.xxx.xxx 未訂閱
您好﹗    把相對應的Values值設為'_'(下劃線代表一個空格)試試﹒    ========================= 我是您的朋友﹐有您真好﹗ ========================= 發表人 - cashxin2002 於 2004/12/08 09:47:18
------
忻晟
nancy
一般會員


發表:8
回覆:19
積分:10
註冊:2002-07-11

發送簡訊給我
#5 引用回覆 回覆 發表時間:2004-12-08 09:56:26 IP:61.222.xxx.xxx 未訂閱
cashxin2002您好, 我試了您的方法發現若點選之後按下儲存是可以正確存入資料庫的(欄位值為'_'),但儲存後重新整理點選的項目就不見了,會不會跟我的資料庫有關呢?我使用的資料庫是sybase12.5
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#6 引用回覆 回覆 發表時間:2004-12-08 10:03:49 IP:202.62.xxx.xxx 未訂閱
您好﹗    沒用過sybase﹒ 想到一個問題﹐不知><>========================= 我是您的朋友﹐有您真好﹗ =========================
------
忻晟
Miles
尊榮會員


發表:27
回覆:662
積分:622
註冊:2002-07-12

發送簡訊給我
#7 引用回覆 回覆 發表時間:2004-12-08 22:14:40 IP:220.135.xxx.xxx 未訂閱
若只考慮1和2
procedure TForm1.query1field1GetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if (Sender.AsString <> '1') and 
     (Sender.AsString <> '2') then
     text:='';
end;
我不是高手, 高手是正在銀幕前微笑的人.
------


我不是高手, 高手是正在銀幕前微笑的人.
nancy
一般會員


發表:8
回覆:19
積分:10
註冊:2002-07-11

發送簡訊給我
#8 引用回覆 回覆 發表時間:2004-12-09 11:31:31 IP:61.222.xxx.xxx 未訂閱
用Miles的方法可以解決了..,但是 class="code"> if (Sender.AsString <> '1') and (Sender.AsString <> '2') then text:='_'; 謝謝大家的幫忙..
系統時間:2024-09-17 8:05:09
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!