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 &= temp & ","
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
亲， 我想的是， 显筛选 关键字， 然后在 从 筛选的结果里， 随机 4个数据..
可是 当 代码 执行到 粉色 那里是， 他会重新筛选数据... 而不是 在已经筛选的数据里筛选...
有什么办法解决么？
加好友 
发短信
Post By：2014/6/19 23:35:00 [只看该作者]
