access数据库表如下: 期号 条目 作者
12 aaa 张三
12 aaa 李四
12 aaa 陈五
13 bbb 小王
14 ccc 张水
14 ccc 小赵
......
......
如何显示成:
期号 条目 作者
12 aaa 张三 李四 陈五
13 bbb 小王
14 ccc 张水 小赵
请各位赐教,急,急!谢谢各位!(用Adoquery连接数据库)分不够可以在加!!!
12 aaa 张三
12 aaa 李四
12 aaa 陈五
13 bbb 小王
14 ccc 张水
14 ccc 小赵
......
......
如何显示成:
期号 条目 作者
12 aaa 张三 李四 陈五
13 bbb 小王
14 ccc 张水 小赵
请各位赐教,急,急!谢谢各位!(用Adoquery连接数据库)分不够可以在加!!!
解决方案 »
- DBGridEh1做中式账薄?
- 如何实现运行从ftp上下载下来的应用程序
- 如何写一个鼠标移入事件,比如移动进一个Panel就让它的颜色变成红色,移出的时候变回原来的颜色。
- 高分求教如何实现关闭所有系统托盘图标。
- 如何使用一个按钮将Memo控件中的内容实现字体加粗,斜体,加下划线?
- 如何根据一个表中的字段去更新另一个表中的数据?
- 插入一条记录时抛出Einvalidop异常,什么原因?(在线等待)
- delphi 的edit passwordchar
- 用bde开发的数据库查询程序,用installshield express custom editon做成安装程序应注意些什么?
- :请教高手,为什么我的windows Media Player(version 1.0)控件无法播放VCD碟中的.DAT文件,DVD碟又怎么办?(必给分)
- BCB如何调用Delphi的DLL函数?
- delphi中如何操作ini文件?
APPEND ({})
建议处理后用STringgrid显示。
好像需要N步处理。
我帮你UP,期待高手!
期号 条目 作者,然后再在程序中遍历一下,将记录写入临时表中,你再将临时表的内容显示出来不就行了。
没问题的。access应该也支持事务的。
var
s : String ;
sQh : String ;
begin
with TADOQuery.Create(Nil) do
begin
try
Connection := ADOConnection1 ;
Sql.Text := 'select distinct qh from trythis' ;
Open ;
First ;
while Not Eof do
begin
sQh := FieldByName('qh').AsString ;
s := '' ;
with TADOQuery.Create(Nil) do
begin
Try
Connection := ADOConnection1 ;
Sql.Text := 'select zz from trythis where qh = ''' + sQh + '''' ;
Open ;
First ;
while Not Eof do
begin
s := s + ' ' + FieldByName('zz').AsString ;
Next ;
end ;
Finally
Free ;
End ;
end ;
with DataSet do
begin
if Trim(FieldByName('qh').AsString) = Trim(sQh) then //如果没有则只显示 writers 字段 最末 记录的值
FieldByName('Writers').AsString := s ;
end;
Next ;
end ;
Finally
Free ;
End ;
end ;
end;