主题：数据筛选

 Tables("YAHOO_data").Filter = "path = '家具:????座椅子'" '查询数据
If Tables("YAHOO_data").rows.count > 0 Then
    Dim A1_B1 As Integer = Tables("YAHOO_data").rows.count
    Dim A1_B2 As String = ""
    Dim A1_B3 As Integer = 0
    Dim A1_B4 As Integer
    For A1_B4 = 0 To A1_B1 - 1
        Dim temp As Integer = Rand.Next(A1_B1)
        If ("," & A1_B2).Contains("," & temp & ",") = False Then
            A1_B2 &= Tables("YAHOO_data").Rows(temp)("_Identify") & ","
            A1_B3 += 1
            If A1_B3 =  4 Then
                Exit For
            End If
        End If
    Next
    Tables("YAHOO_data").filter = "_Identify in (" & A1_B2.TrimEnd(",") & ")"
    Tables("网页生成器").Value(11,2) =""
    Dim A1_B5 As Integer = 0
    For Each rw As Row In Tables("YAHOO_data").Rows
        A1_B5+ =1
        Dim A1_B6 As Integer
        A1_B6 = rw("price")
        Tables("网页生成器").Value(11,2)+ = "<li class='fore" & A1_B5 & "'><b class='pi pix1'>新品</b><div class='p-img'><a target='_blank'href='http://teststr.shopping.yahoo.co.jp/tkmall/" &  rw("code").ToLower() & ".html'title='" & rw("name") & "'><img width='160'height='160'src=""http://shopping.geocities.jp/tkmall/img/" &  rw("code").ToLower() & ".jpg""alt='" & rw("name") & "'></a></div><div class='p-name'style='height: 3em;'><a href='http://teststr.shopping.yahoo.co.jp/tkmall/" &  rw("code").ToLower() & ".html'target='_blank'title='" & rw("name") & "'>" & rw("name") & "</a></div><div class='p-price'>TK価:<strong>￥" & Format(A1_B6,"#,###") & "</strong>円(税込)</div></li>"
    Next
    Tables("YAHOO_data").Filter = ""
Else
    msgbox("没有找到你需要的数据1")
End If