listview控件输出显示

Question

if ComboBox1.itemIndex =0 then
  ADOQuery1.SQL.Text:='select * from hub_netsun.minfo where login ='''+Edit1.text+''''
  else
  ADOQuery1.SQL.Text:='select * from hub_netsun.minfo where id ='''+Edit1.text+'''';  ADOQuery1.Open;
如我这样查询出来的结果要用来listview控件与表格方式显示出来。我写了老是错误。

Answer 1

viewStyle:=vsReportcolumns属性添加你需要的列其他的就按我给你的代码写就应该可以的Caption := ADOQuery1.FieldByName('ID').AsString;
SubItems.Add(ADOQuery1.FieldByName('login').AsString);

Answer 2

这个我用过了它说什么SubItems没有定义。

Answer 3

                with lsvData.Items.Add do
                begin
                  SubItems.Add(login字段的值);
                end;这样写的？？？？
上点你的代码

Answer 4

listView1.ViewStyle := vsReport ;  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:= 'set names ''gbk''';
  ADOQuery1.ExecSQL;  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
      if   ComboBox1.itemIndex =0 then
    ADOQuery1.SQL.Text:='select * from hub_netsun.minfo where login ='''+Edit1.text+''''
    else
   ADOQuery1.SQL.Text:='select * from hub_netsun.minfo where id ='''+Edit1.text+'''';   ADOQuery1.Open;
      Caption := ADOQuery1.FieldByName('ID').AsString;
      SubItems.Add(ADOQuery1.FieldByName('login').AsString);

Answer 5

  ADOQuery1.Open;
  with lsvData.Items.Add do
  begin
   Caption := ADOQuery1.FieldByName('ID').AsString;
   SubItems.Add(ADOQuery1.FieldByName('login').AsString);
  end;这样写最好你还是看看Delphi自带的Demo