查询检索 ，很急

<P> 请问 我进行查询检索SQl生成器 先创建了一个Ptable( as Itable) </P>
<P>如果Ptable 是  IFeatureClass 则直接在MapControl 显示</P>
<P>如果Ptable 不是  IFeatureClass 则显示其属性数据  </P>
<P>该如何做啊 ，很急！</P>
<P>下面 只实现了第一个目标  </P>
<P>该怎么显示 pStTable </P>
<P>If TypeOf pTable Is IFeatureClass Then
      Dim pDSet As IDataset
      Dim pFeatureLayer As IFeatureLayer
      Set pFeatureLayer = New FeatureLayer
      Set pFeatureLayer.FeatureClass = pTable
      Set pDSet = pTable
      pFeatureLayer.Name = pDSet.Name
       Set m_f = pFeatureLayer.FeatureClass
      Dim pfeatlay As IFeatureLayer
      Set pfeatlay = New FeatureLayer
      Set pfeatlay.FeatureClass = m_f
      
      If MsgBox("需要显示属性数据吗？", vbYesNo, "显示属性数据") = vbYes Then
      DE.AttributeShow
      End If
    
      frmShowMap.MapControl1.AddLayer pFeatureLayer
      frmShowMap.Show vbModal
    
          
      Else ' Add the table to map
      Dim pStTabCol As IStandaloneTableCollection
      Dim pStTable As IStandaloneTable
      Set pStTabCol = m_pMxDoc.FocusMap
      Set pStTable = New StandaloneTable
      pStTable.Name = Me.strname.text
      Set pStTable.Table = pTable
      pStTabCol.AddStandaloneTable pStTable
      </P>

帮助里应该就有的

<P>帮助上 就是这样些的，但如何把 Ptable保存或显示出来啊  很急</P>

这是在VB中还是VBA中,帮你顶!

vb中的  谢谢！