新手请教两个数据库的问题！

Question

顺便在提个问题，就是listview怎么能象这个论坛这样的显示效果，就是一条一条不同颜色的

Answer 1

自己写的一点，只供参考：
procedure……；
var 
  currnode1,currnode2:Ttreenode;
begin 
  table1.open;
  table1.first;
  if not ((table1.eof) and (table2.eof) then 
    begin
     currnode1:=treeview1.items.add(nil,table1.filedbyname('字段名称').asstring);
    currnode2:=treeview1.items.addchilden(currnode1,table2.filebyname('字段名称').asstring);
   table1.next;
   table2.next; 
  end;
end;
试试看，没有运行过的，可能有一些地方不对；

Answer 2

1.treeview.node.add... treeview.node.addchild...
2.adotable.delete;

Answer 3

顺便在提个问题，就是listview怎么能象这个论坛这样的显示效果，就是一条一条不同颜色的 

Answer 4

比如用adotable.delete删除第10行的记录,怎么半？

Answer 5

只要dbgrid和adotable连在一起，只要用户在dbgrid中点第十条记录，然后执行adotable.delete就行了。
如果你想在程序里删除第十条，
那就用
 for i:=1 to 10 do
   begin
     adotable.next;
     if i:=10 then adotable.delete;
   end;

Answer 6

我是和listview连上的，怎么办呢/

Answer 7

var
  Names: TStringList;
begin
  Names:= TStringList.Create;
  Session1.GetTableNames(Names);
  for I:=0 to names.Count - 1 do
    TreeView1.Items.Add(nil, Names.Strings[I]);
end;2://没试，看看
var
  Mark: TBookMark;
begin
  with  ADOTable1 do
  begin
    Mark := GetBook;
    First;
    MoveBy(10);  //到第十行记录。
    Delete;      //删除记录
    try
      GotoBookMark(Mark);
    except
      //no thing to do
    end;
    FreeMem();
  end;
end;

Answer 8

木石三的好！
想用不同颜色显示，那就ownerdraw吧。