MO属性查询问题，帮我看看代码

<P>  Dim strExpression As String<BR>    <BR>   If Combo2.Text = "<选择字段值>" Then<BR>   MsgBox "请选择一个合适的字段值 "<BR>   End If<BR>    <BR> If Frmmain.Map1.Layers(0).Records.Fields(List1.List(List1.ListIndex)).Type = moString Then<BR>       strExpression = List1.List(List1.ListIndex) ; "" ; Combo1.List(Combo1.ListIndex) ; "" ; Combo2.Text ; ""<BR>  Else<BR>       strExpression = List1.List(List1.ListIndex) ; " " ; Combo1.List(Combo1.ListIndex) ; "" ; Combo2.Text<BR>  End If</P>
<P> Set recs = Frmmain.Map1.Layers(0).SearchExpression(strExpression)<BR> ///我想将属性查询得到的值输出到另外一个Form的ListView1内。下面代码应该如何修改<BR>  <BR> If recs.EOF Then<BR>     FrmAttribute.Show   《属性值要显示的Form》<BR>       For Each <STRONG>fld</STRONG> In recs.Fields  ' iterate over the fields<BR>          Set newCol = FrmAttribute.ListView1.ColumnHeaders.Add<BR>          newCol.Text = fld.Name<BR>          Set newItem = FrmAttribute.ListView1.ListItems.Add<BR>           newItem.Text = fld.ValueAsString<BR>      Next <STRONG>fld<BR></STRONG><BR>      <BR>  End If</P>

<P><B>ListView</B> 控件可使用四种不同视图显示项目。通过此控件，可将项目组成带有或不带有列标头的列，并显示伴随的图标和文本。</P>
<P><B>语法</B></P>
<P><B>ListView</B></P>
<P><B>说明</B></P>
<P>可使用<FONT face=Verdana> <B>ListView</B> 控件将称作 <B>ListItem</B> 对象的列表条目组织成下列四种不同的视图之一：</FONT>
<UL type=disc>
<LI>大（标准）图标<BR><BR>
<LI>小图标<BR><BR>
<LI>列表<BR><BR>
<LI>报表 </LI></UL>
<P><B>View</B> 属性决定在列表中控件使用何种视图显示项目。还可用<FONT face=Verdana> <B>LabelWrap</B> 属性控制列表中与项目关联的标签是否可换行显示。另外，还可管理列表中项目的排序方法和选定项目的外观。</FONT></P>
<P><B>ListView</B> 控件包括 <B>ListItem </B>和<FONT face=Verdana> <B>ColumnHeader</B> 对象。<B>ListItem</B> 对象定义 <B>ListView</B> 控件中项目的各种特性，诸如：</FONT>
<UL type=disc>
<LI>项目的简要描述。<BR><BR>
<LI>由<FONT face=Verdana> <B>ImageList</B> 控件提供的与项目一起出现的图标。</FONT><BR><BR>
<LI>附加的文本片段，称作子项目，它们与显示在报表视图中的<FONT face=Verdana> <B>ListItem</B> 对象关联。</FONT> </LI></UL>
<P>可以使用<FONT face=Verdana> <B>HideColumnHeaders</B> 属性决定是否在 <B>ListView</B> 控件中显示列标头。列标头可以在设计时添加，也可以在运行时添加。设计时，使用 <B>ListView</B>“控件属性”对话框的“列首”选项卡添加列标头。运行时，使用 <B>Add</B> 方法添加 <B>ColumnHeader</B> 对象到 <B>ColumnHeaders</B> 集合中。</FONT></P>
<P><B>发行注意</B><FONT face=Verdana>   <B>ListView</B> 控件是 Mscomctl.ocx 文件中一组 ActiveX 控件的一部分。若要在应用程序中使用 <B>ListView</B> 控件，则必须将 Mscomctl.ocx 文件添加到工程中。当发行应用程序时，请将 Mscomctl.ocx 文件安装到用户的 Microsoft Windows System 或 System32 目录下。关于如何将 ActiveX 控件添加到 Visual Basic 工程的详细信息，请参阅 Visual Basic《程序员指南》。</FONT></P>

<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />

^_^，我第一次用的时候也是没注意，要注意lvwreport或lvwlist，好像是这样的，忘了！

不能用foreach