Question

delphi stringgrid 的问题

A表 B表
id b_id a_name id bume
1 1 小张 1 管理部
2 3 小李 2 事业部
3 4 小王 3 销售部
4 运营部

在stringgrid 表里A和B合成显示成

id bume a_name
1 管理部 小张
2 销售部 小李
3 运营部 小王

请高手帮忙写完整代!

Answer 1

lineNumber0 :=1;//行计数
strSQL:='select B.id,B.bume,A.a_name from A,B'+
' where B.id=A.id';
with ADOquery1 do
begin
sql.clear;
sql.add(strSQL);
open;
with stringgrid1 do
begin
RowCount:=RecCount+1;
ColCount:=3;
Cell[0,0]:='id';
Cell[1,0]:='bume';
Cell[2,0]:='a_name';
end
while not eof do
begin
Cell[0,lineNumber0] := Fields[0].AsString;
Cell[1,lineNumber0] := Fields[1].AsString;
Cell[2,lineNumber0] := Fields[2].AsString;
lineNumber0 := lineNumber0+1;
Next;
end;
end;