dataTable、dataView经验

Dim prodView As DataView = New DataView(prodDS.Tables("Products"), _
   "UnitsInStock <= ReorderLevel", _
   "SupplierID, ProductName", _
   DataViewRowState.CurrentRows) 

---

常为首页链接池满而苦恼，已经多年的顽疾，一夕得解。使用Dataview来实现，代码如下。

PART1：dim lanmuID(100) as Long  : dim i%
          for i=0 to 100  : lanmuID(i)=99999 : next
          dim conn1 as sqlconnection=new sqlconnection(application("strConn"))
          dim sql1="select * from 新闻 " 
          dim da1 as sqldataAdapter=new sqldataAdapter(sql1,conn1)
          conn1.open
          dim ds as dataset=new dataset
          da1.fill(ds,"News")
          conn1.close
          dim dv as dataview=new dataview                  
          with dv
            .Table=ds.tables("News")
            .RowFilter="栏目=6 or 栏目=7 or 栏目=11" 
            .sort="置顶 desc,时间 desc"
          end with         
         

PART2：  dim row as datarow=dv.totable.rows(0)  

PART3： dim title$,text_color$
             i=1
             do while i<dv.totable.rows.count and i<=8
                row=dv.totable.rows(i)
                LanmuID(row("栏目"))=row("ID")
                text_color=iif(row("置顶"),"blue","black")     
                if len(row("标题"))>14 then title=left(row("标题"),14) & "…" else title=row("标题") 
             %>
            <tr>
              <td width="50%" height="23">[<a title=<%=row("标题")%> style=color:<%=text_color%>  target=_blank href=news_open.aspx?ID=<%=row("ID")%>><%=title%></a>]</td>
          <%    i=i+1
                row=dv.totable.rows(i)
                LanmuID(row("栏目"))=row("ID")
                text_color=iif(row("置顶"),"blue","black")
                if len(row("标题"))>14 then title=left(row("标题"),14) & "…" else title=row("标题")
          %>
              <td width="50%" height="23">[<a title=<%=row("标题")%> style=color:<%=text_color%>  target=_blank href=news_open.aspx?ID=<%=row("ID")%>><%=title%></a>]</td>
            </tr>
          <%    i=i+1
             loop