请求

 

 

 

procedure TForm1.Button1Click(Sender: TObject);

var

 tmpItem: TListItem;

begin

 while not ADOQuery1.Eof do

 begin

   tmpItem := ListView1.Items.Add;

   tmpItem.Caption := ADOQuery1.FieldByName('xx').AsString;

   tmpItem.SubItems[0] := ADOQuery1.FieldByName('xx').AsString;

 end;

end;

 

select user_pk ,

CONVERT(varchar(50), CASE isnull(u.user_sex, 0) WHEN 0 THEN '男' ELSE '女' END) AS sex 

from t_user u