procedure TForm1.Table1BZGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin if Sender.AsString = '0' then text := '出库' if Sender.AsString = '1' then text := '入库' end;
SELECT *, kk = CASE 字段 WHEN 0 THEN '出库' WHEN 1 THEN '入库' ELSE 'Not' END FROM test
很简单,在该字段的OnGetText事件中处理: procedure TDM.Query1MyfieldGetText(Sender: TField; var Text: String; DisplayText: Boolean); begin if Sender.IsNull then exit; case sender.AsInteger of 0: Text:='出库'; 1: Text:='入库'; end; end;
0:dbgrid1.Columns.Items[1].field.asstring:='出库'
1:dbgrid1.Columns.Items[1].field.asstring:='入库’
end;
如;
if sender.text=0 then text:='出库'; if sender.text=1 then text:='入库';
DisplayText: Boolean);
begin
if Sender.AsString = '0' then text := '出库'
if Sender.AsString = '1' then text := '入库'
end;
kk = CASE 字段 WHEN 0 THEN '出库' WHEN 1 THEN '入库' ELSE 'Not'
END
FROM test
procedure TDM.Query1MyfieldGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
if Sender.IsNull then exit;
case sender.AsInteger of
0: Text:='出库';
1: Text:='入库';
end;
end;
或者用 OnSetext 和 OnGettext
0:dbgrid1.Columns.Items[1].field.asstring:='出库'
1:dbgrid1.Columns.Items[1].field.asstring:='入库’
end;