Question

dbgrid单元格

delphi中的dbgird控件,如何向其中单元格赋值(填数据)?
比如字段是 性别，数据库中存储是bit型，存储 0 和 1.
dbgrid中 单元格内容的值通过 判断是否 等于0，则显示 ‘女’，等于1，则显示‘男’。
具体怎么操作？

或者StringGrid来实现，具体代码是怎么样？
目的是修改DBGrid的单元格的值，不想修改数据库中的数据

Answer 1

用strginggrid 就要自己赋值了..

下面的sg 就是一个strigngrid
Query.sql.text:='select name,sex from table ....';
Query.open;
sg.rowcount:=query.recordcount;
i:=1;
while not(query.eof) do
begin
sg.cells[1,i]:=query.fields[0].AsString;
if query.fields[1].Asstring = '0' then
sg.cells[2,i]:='女'
else sg.cells[2,i]:='男';
inc(i);
query.next;
end;