主题：有条件下载网页数据

各位老师：下面的代码可以正常下载网页的全部数据，但实际中我想带条件下载部分数据，就是下面标红的条件。实在汗颜，怎样也把这个条件加不到代码中并正确执行！

。。。。。

Dim dr As Row
For n1 As Integer = 1 To elems.count - 1             '把网页中的第一列取掉,要不然有一行是空值
    Dim tds = elems(n1).getelementsbytagname("td")    '在网页中查找td(第行中每列的数据)
      ' Like "LJ222009"  就是在网页中，查找elems(4) like "LJ222009"行
    dr = Tables("装配部件临时表").AddNew()
    For tn As Integer = 0 To tds.count -1
        If dict.ContainsKey(tn) Then                 '如果临时表表头的列名
           dr(dict(tn)) = tds(tn).InnerText          '以临时表表头列名来引用数据
        End If
    Next
Next

。。。。

 

下面这是部分网页分析的代码：

。。。。

<TH scope=col>序号</TH>
<TH scope=col><A href="javascript:__doPostBack('ctl00$C$gv','Sort$CPBH')">车型编号</A></TH>
<TH scope=col><A href="javascript:__doPostBack('ctl00$C$gv','Sort$WLBH')">物料编号</A></TH>
<TH scope=col><A href="javascript:__doPostBack('ctl00$C$gv','Sort$FDJH')">发动机号</A></TH>

<TH scope=col><A href="javascript:__doPostBack('ctl00$C$gv','Sort$DPH')">底盘号</A></TH>

<TH scope=col><A href="javascript:__doPostBack('ctl00$C$gv','Sort$LBJH')">零部件号</A></TH>
<TH scope=col><A href="javascript:__doPostBack('ctl00$C$gv','Sort$LJMC')">零件名称</A></TH>
<TH scope=col><A href="javascript:__doPostBack('ctl00$C$gv','Sort$GHDW')">供货单位</A></TH>
<TH scope=col><A href="javascript:__doPostBack('ctl00$C$gv','Sort$LJSCRQ')">零件生产日期</A></TH>
<TH scope=col><A href="javascript:__doPostBack('ctl00$C$gv','Sort$CGDD')">零件批次号</A></TH>
<TH scope=col><A href="javascript:__doPostBack('ctl00$C$gv','Sort$LJSL')">零件数量</A></TH>
<TH style="WIDTH: 30px" vAlign=middle scope=col align=center>查看</TH></TR>

<TR align=center>
<TD align=center><INPUT id=ctl00_C_gv_ctl02_cb type=checkbox name=ctl00$C$gv$ctl02$cb> </TD>

<TD style="WIDTH: 50px">1 </TD>

<TD>DFV4258GP6C-T54KF-J5-C08AY</TD>

<TD>000000000013100754</TD>

<TD>13N8DFL30010</TD>

<TD>LJ222009</TD>

<TD>C1141010-8260DNY</TD>
<TD>CNG气柜合件总成</TD>
<TD>XIE10</TD>
<TD>201021</TD>
<TD>20102100669</TD>

 

。。。。。

 

请各位老师及大咖们指教！

请费心！

谢谢！