//请参考
var
iItem:TListItem;
begin
iItem:=Lv_Code.Items.Add;
iItem.Caption:=dm_xd.Cs_tmp1.fieldbyname('CD_CODE').AsString;
iItem.SubItems.Add(dm_xd.Cs_tmp1.fieldbyname('CD_CHINA').AsString);
iItem.SubItems.Add(dm_xd.Cs_tmp1.fieldbyname('CD_PY').AsString);
end;