Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
Dim dr As DataRow
If Tables("xxx").Current IsNot Nothing Then
dr= Tables("xxx").Current.DataRow
End If
Tables("xxx").ApplyFilter = False
If dr IsNot Nothing Then
Tables("xxx").Position = Tables("xxx").Findrow(dr)
End If