如何改变dbgrid单元格内容？(50分)

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #1

我的问题是这样的：
有一个整形字段：1代表Ready
2代表out
要求当某行字段值为1时，单元格显示Ready，2时显示out

 

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #2

怎么没人理我，自己顶一下

 

P

patriot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #3

问题不清楚

 

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #4

比如数据库里有一个status字段，是整型的，
我想当这个字段值为1时，在dbgrid上显示ready，当值为2时显示out

 

P

patriot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #5

dbgrid那里？是在子段标题显示？还是此字段的值显示

 

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #6

呵呵，不好意思，是此字段的值显示

 

P

patriot

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #7

我见过类似的，明天找找给你贴上，你急用吗？

 

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-07

• #8

那我等到明天好了，一定贴啊，谢了先！

 

Y

y2ky2k

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #9

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if column.FieldName='字段名' then
begin
if column.Field.Value=1 then
column.Field.AsString:=ready;
if column.Field.Value=2 then
column.Field.AsString:=out;
end;
end;

 

A

aware

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #10

把field单元格改为combol可能好用一些。。。

 

L

leehq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #11

procedure TForm_Main.DBGrid_DrawColumnCell(
Sender: TObject;
const Rect: TRect;
DataCol: Integer;
Column: TColumn;
State: TGridDrawState);
var
vText Char;
VRect :TRect;
begin
if column.FieldName='字段名' then
begin
vRect := Rect;
if(Column.Field.AsString = '1' then vText := 'ready' else
if(Column.Field.AsString = '2' then vText := 'out' else VText := '';
vRect.Right := vRect.Right -2;
Canvas.FillRect(Rect);
DrawText(Canvas.Handle, vText, StrLen(vText), vRect, DT_RIGHT or DT_SINGLELINE);
end;
end;

 

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #12

to y2ky2k：你写的那段程序测试过吗？为什么我一运行的时候老报错
to leehq：你的程序不报错，但是怎么没变化啊？

 

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #13

自己up一下

 

S

sanming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #14

应该添加一个计算字段

 

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #15

数据库的内容不能变啊

 

Y

y2ky2k

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #16

不好意思.下面是我试过的...
procedure TForm1.IBTable1idGetText(Sender: TField; var Text: String;
DisplayText: Boolean);
begin
if sender.Value=1 then
text:='ready';
if sender.Value=2 then
text:='out';
end;
添加永久字段,在ONGETTEXT里写
给分吧[]

 

F

flybirdwxp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-08

• #17

你不是改一下Display text就行了吧

 

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #18

to y2ky2k：你是在说dbgrid吗？我怎么找不到你说的事件？
问题已经解决了，我用sql语句搞定的。
也许是我表述不清吧
select agent_Stats
case agent_Stats.Status when 1 then 'Ready'
when 2 then 'Wrap'
end as Status
from.....

 

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-09

• #19

多人接受答案了。