使用FastReprot的UserDataSet， ListView作为数据源就可以了，
在UserDtaSet的OnGetValue事件下对每行的赋值，例如：
if VarName='No' then
begin
Value := listview.Items[uds.RecNo].Caption;
Exit;
end;
if varName='Name' then
begin
Value := listview.Items[uds.RecNo].SubItems[0];
Exit;
end;
....
